home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 19 / AACD19.BIN / AACD / Programming / YAEC / testsrc / PlotTest.e < prev    next >
Encoding:
Text File  |  2001-02-23  |  445 b   |  18 lines
  1. MODULE 'intuition/intuition'
  2. RAISE "WIN" IF OpenW()=NIL
  3. PROC main() HANDLE
  4.    DEF win, x, y
  5.    win:=OpenW(20,20,600,200,$200,$F,'Plot Test',IDCMP_CLOSEWINDOW,1,NIL)
  6.    FOR x := 20 TO 400 STEP 3
  7.       FOR y := 20 TO 100 STEP 3
  8.          Line(10, 10, x, y, y)
  9.          ->Plot(x, y, y)
  10.          ->Box(10, 10, x, y, y)
  11.          ->TextF(x, y, 'Plot Test \d[3],\d[3]', x, y)
  12.       ENDFOR
  13.    ENDFOR
  14.    WaitIMessage(win)
  15. EXCEPT DO
  16.    CloseW(win)
  17. ENDPROC
  18.