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 |