[main page] [download] [links] [faq] [sample programs]


circles

Tests drawing both filled and outlined circles.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
open window 640, 512

setrgb 0, 0, 0, 0

clear window

for i = 1 to 500 step 1
  x = ran(640)
  y = ran(512)

  r = min(min(min(x, 639 - x), y), 511 - y)

  setrgb 1, ran(255), ran(255), ran(255)

  fill circle x, y, r

  setrgb 1, 255, 255, 255
  circle x, y, r

next i


[main page] [download] [links] [faq] [sample programs]

© 2001 P.B. IJdens, The Netherlands. All rights reserved.