<!--#include file="diagram.asp"-->

<%

Dim PI

PI=3.14159265

Set D=New Diagram

Set D.Img=CreateObject("gdImage.Images.1")

D.Img.ImageCreate 320, 320

D.Img.ImageColorAllocate 0,255,255,255 'Background Color



D.SetFrame 40, 40, 280, 280

D.SetBorder -1, 1, -1, 1

for i=0 to 10 

  x=sin((i+0.5)*2*PI/11) 

  y=cos((i+0.5)*2*PI/11) 

  D.Arrow D.ScreenX(x/3), D.ScreenY(y/3), D.ScreenX(x), D.ScreenY(y), "#0000ff", i Mod 5+1, "Size: " & CStr(i Mod 5+1), "alert(""Size: " & CStr(i Mod 5+1) & """)" 

next



FN="arrow_object.png"

if isObject(Server) then FN=Server.mappath(FN) 

D.Img.ImagePng 0, FN

D.Img.ImageDestroy 0

Set D.Img=Nothing

%>

<HTML><HEAD></HEAD> 

<BODY bgcolor="#eeeeee"> 

<table border><tr><td><IMG src="arrow_object.png" width=320 height=320 usemap="#map1" border=0></td></tr></table> 

<map name="map1"> 

<%Response.Write D.ImgMapData%> 

</map>

</BODY> 

</HTML>