DrawScript

home.gif

Animated Graph-drawing

DrawScript can easily produce the "frames" which are input into animation software such as the freeware application Intergif

graph.gif
·BoundBox(0,0,15,14)
·Width(4)
·Colour(&FF00) : REM Red
a=-2*PI : b=2*PI : h=(b-a)/20
u=-2    : v=2
FOR i=0 TO 20
 ·Axes`(a,b,u,v)
  x=a+i*h
 ·Graph`("SIN",-2*PI,x,10*i)
 ·SpritePlot("sm!draw",x,SIN(x))
 ·SaveDrawing("graph"+STR$i)
 NEXT