<%@ import namespace="Microsoft.VisualBasic.VBMath" %>
<%@ import namespace="system.drawing.drawing2d" %>
<%@ import namespace="system.drawing.imaging" %>
<%@ import namespace="system.drawing" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="Squiggly.aspx.vb" Inherits="HKWEb1.Squiggly"%>
Squiggly
<%
Dim strFilename as string
Dim i as System.Drawing.Image, arial As Font = arial
Dim myPen As New Pen(Color.Blue)
dim x1 as integer, y1 as integer, x2 as integer, y2 as integer, x as integer,y as integer
Dim prod As String = "New York Boston Atlanta Tampa Tulsa Houston St Louis Macon Orlando Albany Denver Houston St Louis Macon Orlando Albany Denver "
Dim salign as new system.drawing.stringformat
strFilename = server.mappath("./chris-fsck.jpg")
myPen.Width = 1
i = System.Drawing.Image.FromFile(strFilename)
Dim b as new system.drawing.bitmap(i.width, i.height, pixelformat.format24bpprgb)
dim g as graphics = graphics.fromimage(b)
g.clear(color.Gold)
salign.Alignment = StringAlignment.Near
for y=1 to 14
x1=70: y1=y*20-10
g.DrawString(Microsoft.VisualBasic.Mid(prod, (y - 1) * 9 + 1, 9), New font("arial red",10,fontstyle.italic),Brushes.black, 0, y1, salign)
g.DrawString(pName(y), New Font("arial red", 8, FontStyle.Italic), Brushes.Black, 0, y1, salign)
for x=1 to 52: x2=70 + 9*x: y2= y*20 + rnd()*16-10
g.drawline(myPen,x1,y1,x2,y2)
x1=x2: y1=y2
next x
next y
' set the content type
response.contenttype="image/jpeg"
' send the image to the viewer
'b.save(response.outputstream, imageformat.jpeg)
' tidy up
b.dispose()
%>