22 lines
479 B
Text
22 lines
479 B
Text
width = 640 : height = 480
|
|
open window width, height
|
|
window origin "lb"
|
|
|
|
x = ran(width)
|
|
y = ran(height)
|
|
|
|
for i = 1 to 200000
|
|
vertex = int(ran(3))
|
|
if vertex = 1 then
|
|
x = width / 2 + (width / 2 - x) / 2
|
|
y = height - (height - y) / 2
|
|
elseif vertex = 2 then
|
|
x = width - (width - x) / 2
|
|
y = y / 2
|
|
else
|
|
x = x / 2
|
|
y = y / 2
|
|
end if
|
|
color 255 * (vertex = 0), 255 * (vertex = 1), 255 * (vertex = 2)
|
|
dot x, y
|
|
next
|