<html><head><title>Text Rotate</title></head>
<body>
<div align="center">
<h2>Text Rotate</h2>
<!--- Create AspImage Object --->
<cfobject type="COM"
name="Image"
class="AspImage.Image"
action="CREATE">
<cfscript>
vbRed="255"; vbBlue="16711680"; vbBlack="0"; vbWhite="16777215";
vbGreen="65280"; vbYellow="65535"; vbCyan="16776960"; vbMagenta="16711935";
vbCrLf="#chr(13)##chr(10)#";
Image.TextAngle = 90;
Image.AutoSize = false;
// rem **********************************************************************
// rem * Set various font parameters
// rem **********************************************************************
Image.FontColor = vbBlack;
Image.Bold = True;
Image.FontName = "Arial";
Image.FontSize = 12;
Image.PadSize = 5;
// rem **********************************************************************
// rem * Calculate the size of the text info is and set the image to this size
// rem * (this has to be done since we want to fill the area with a gradient)
// rem **********************************************************************
Image.MaxX = 225;
Image.MaxY = 100;
// rem **********************************************************************
// rem * Create a two-way gradient that starts with Blue and ends with White
// rem **********************************************************************
Image.GradientTwoWay(vbBlue, vbWhite, 1, 1);
// rem **********************************************************************
// rem * Print our text to the image
// rem **********************************************************************
Image.TextOut("Welcome to", 1, 95, false);
Image.FontColor = vbYellow;
Image.TextAngle = 0;
Image.Italic = False;
Image.FontSize = 14;
Image.TextOut("The Widget Factory", 30, 40, true);
// rem **********************************************************************
// rem * Set the filename and save
// rem * NOTE: You should gen the filename dynamically for multiuser usage
// rem **********************************************************************
Image.FileName = "#expandpath(".")#\msgrot.jpg";
Image.SaveImage();
// rem **********************************************************************
// rem * Write the <img src> tag out for the browser to pick up
// rem **********************************************************************
WriteOutput("<img src=""msgrot.jpg""><br>");
// rem **********************************************************************
// rem * These properties give eval/registration information for the component
// rem **********************************************************************
// rem WriteOutput("<p>Expires: " & Image.Expires);
// rem WriteOutput("<br>Version: " & Image.Version);
// rem WriteOutput("<br>Registered To: " & Image.RegisteredTo);
</cfscript>
</div>
</body>
</html>