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

growing_circle

Draw a circle that grows. Tests double buffering. Single-buffered circle drawing program. 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

buffer = 0

open window 640, 512

setrgb 0, 0, 0, 0

clear window

for i = 1 to 1000

  buffer = 1 - buffer

  setdrawbuf buffer

  setrgb 1, mod(i, 256),  mod(i, 256),   mod(i, 256)
  setrgb 0, 0, 0, 0

  print mod(i, 200)

  clear window

  circle 320, 256, 1 + mod(i, 200)

  setdispbuf buffer

next i

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

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