Important Notice

The pages on this site contain documentation for very old MS-DOS software, purely for historical purposes. If you're looking for up-to-date documentation, particularly for programming, you should not rely on the information found here, as it will be woefully out of date.

:nPAINT Statement Programming Example
  ◄QuickSCREEN►      ◄Details►     ◄Example►      ◄Contents►      ◄Index►
──────────────────────────────────────────────────────────────────────────────
PAINT Statement Programming Example
 
This example uses PAINT to create a magenta fish with a cyan tail.
 
CONST PI = 3.1415926536
CLS    ' Clear screen
SCREEN 1
 
CIRCLE (190, 100), 100, 1, , , .3   'Outline fish body in cyan.
CIRCLE (265, 92), 5, 1, , , .7      'Outline fish eye in cyan.
PAINT (190, 100), 2, 1              'Fill in fish body with magenta.
 
LINE (40, 120)-STEP (0, -40), 2     'Outline
LINE -STEP (60, 20), 2              '   tail in
LINE -STEP (-60, 20), 2             '      magenta.
PAINT (50, 100), 1, 2               'Paint tail cyan.
 
CIRCLE (250,100),30,0,PI*3/4,PI* 5/4,1.5  'Draw gills in black.
FOR Y = 90 TO 110 STEP 4
   LINE (40, Y)-(52, Y), 0          'Draw comb in tail.
NEXT