home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / a293_1 / !AForth_Examples_Graphics < prev    next >
Encoding:
Text File  |  1993-04-11  |  567 b   |  41 lines
  1. \ Forth source file
  2. \ Copyright Mads Meisner-Jensen (19 Oct 1992)
  3. \ Example of Graphics library
  4.  
  5. S" Graphics" INCLUDED
  6.  
  7. VARIABLE TEMP
  8.  
  9. : CIRCLES  ( -- )
  10.   80 TEMP !
  11.   16 1 DO
  12.     I GINK
  13.     I 75 *  800  TEMP @  CIRCLE-FILL
  14.     TEMP @ 10 - TEMP !
  15.   LOOP
  16. ;
  17.  
  18. : RECTANGLES  ( -- )
  19.   160 TEMP !
  20.   16 1 DO
  21.     16 I - GINK
  22.     I 75 *  500  TEMP @  DUP RECTANGLE-FILL
  23.     TEMP @ 20 - TEMP !
  24.   LOOP
  25. ;
  26.  
  27. : MAIN
  28.   12 MODE OFF
  29.   CIRCLES
  30.   RECTANGLES
  31.   0
  32.   BEGIN
  33.     16 1 DO
  34.       DUP 0 OVER 2/  I  COLOUR
  35.       16 +  &FF AND
  36.     LOOP
  37.     8 +  &FF AND
  38.     WAIT WAIT
  39.   AGAIN
  40. ; MAIN
  41.