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

<%	

Set D=New Diagram

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

D.Img.ImageCreate 630, 380

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



D.SetFrame 40, 20, 600, 340

D.SetBorder 6, 18, 0, 6

D.XGridDelta=1

D.SetGridColor "#808080", ""

D.Draw "#FF80FF", "#000000", false, "", ""

Color=Array("#000000","#FF0000","#0000FF","#000000","#FF0000","#0000FF")

for S=6 to 18 

  x=D.ScreenX(S) 

  D.Dot x, D.ScreenY(0), S, "smile.png", "", "Type: smile.gif, Size:" & S, "alert(""Type: smile.gif, Size:" & S & """)" 

  for T=1 to 6 

    D.Dot x, D.ScreenY(T), S, T, Color(T-1), "Type:" & T & ", Size:" & S, "alert(""Type:" & T & ", Size:" & S & """)" 

  next

next



FN="dot_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="dot_object.png" width=630 height=380 usemap="#map1" border=0></td></tr></table> 

<map name="map1"> 

<%Response.Write D.ImgMapData%> 

</map>

</BODY> 

</HTML>