<% @LANGUAGE="VBSCRIPT"
%>
<%
'***************** Example:
Professional-Statistics-Charts-2.asp **********************
'
' Professional Statistics Shots: -- Scatter Diagram
' Written by eMarkSoft Inc. on 2002.04.29
'
'*********************************************************
%>
<%
Server.ScriptTimeout = 900
' Create a drawing object
Set obj=Server.CreateObject("eMarkASI.Painter")
obj.CreateImage 940,540
' Draw background grid
a=10
b=10
x=176
a1=22
y=96
b1=12
for i=1 to
5
for
j=1 to 5
obj.PenStyle=1
obj.PenColor = "black"
obj.Rectangle (i-1)*x+i*a,(j-1)*y+j*b,i*x+i*a,j*y+j*b
for k=1 to 7
for l=1 to 7
if k=4 or l=4 then
'solid line
obj.PenStyle=1
obj.PenColor = "black"
else
'dotted line
obj.PenStyle=2
obj.PenColor = "#BDBDB5"
end if
obj.MoveTo (i-1)*x+i*a+k*a1,(j-1)*y+j*b
obj.LineTo (i-1)*x+i*a+k*a1,j*y+j*b
obj.MoveTo (i-1)*x+i*a,(j-1)*y+j*b+l*b1
obj.LineTo i*x+i*a,(j-1)*y+j*b+l*b1
next
next
'random ellipse
obj.PenStyle=1
obj.PenColor = "black"
rgbx0=(i-1)*x+i*a+4*a1
rgby0=(j-1)*y+j*b+4*b1
for m=0 to
28
randomize
rgbx=Int(20 * Rnd)*((-1)^Int(2 * Rnd))
rgby=Int(20 * Rnd)*((-1)^Int(2 * Rnd))
DrawRound rgbx0,rgby0,rgbx,rgby,obj
next
next
next
Response.ContentType = "image/png"
Response.BinaryWrite obj.Png
' Drawing circle function
Function DrawRound(x0,y0,x,y,obj)
dim Points(2,2)
Points(0,0) = x0+x-5
Points(0,1) = y0-y-5
Points(1,0) = x0+x+5
Points(1,1) = y0-y+5
obj.Ellipse Points(0,0),Points(0,1),Points(1,0),Points(1,1)
'dim Ax,Ay
'Ax= x0+x
'Ay= y0-y
'obj.MoveTo Ax,Ay
'obj.LineTo x0,y0
End function '=====================
%>
|
