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

<%

function Fahrenheit(vv)

  Fahrenheit=CStr(Round(vv*18+320)/10) & "° F"

end function



Set D=New Diagram

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

D.Img.ImageCreate 600, 300

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



D.SetFrame 80, 40, 520, 240

D.SetBorder 6, 18, 20, 30

D.SetText "","", "temperature measured during the day"

D.XScale=" h"

D.YScale="° C"

D.SetGridColor "#cccccc", ""

D.Draw "#FFEECC", "#663300", false, "", ""

D.GetYGrid 

D.BFont=4 

for t=D.YGrid(0) to D.YGrid(2) step D.YGrid(1) 

  D.Bar D.right+6, D.ScreenY(t)-9, "", "", "", Fahrenheit(t), "#663300", "", ""

next   

T1=22

for t=6 to 17

  T0=T1

  T1=23-4*Cos(t/4)+Rnd

  D.Line D.ScreenX(t), D.ScreenY(T0), D.ScreenX(t+1), D.ScreenY(T1), "#cc9966", 3, "temperature", "alert(""" & Round(T0,1) & " -> " & Round(T1,1) & """)" 

next



FN="line_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="line_object.png" width=600 height=300 usemap="#map1" border=0></td></tr></table> 

<map name="map1"> 

<%Response.Write D.ImgMapData%>

</map> 

</BODY> 

</HTML>