Triangle of Sierpinski

rem ============================================================================
rem              Triangle of Sierpinski
rem                  By Papydall
rem ============================================================================

dim p(3,2), px, py, point%
p(1,1)=320
p(1,2)=0

p(2,1)=640
p(2,2)=512

p(3,1)=0
p(3,2)=512

px=int(rnd(640))
py=int(rnd(512))

width 0,700 : height 0,600 : color 0,0,0,0
2d_pen_color 255,0,0 : 2d_fill_color 255,0,0
caption 0,"Triangle of Sierpinski ... <ESC> to stop ..."
repeat
  point%=max(min(3,int(rnd(3)+1)),1)
  px=int(((p(point%,1)-px)*0.5)+px)
  py=int(((p(point%,2)-py)*0.5)+py)
  2d_circle px+20,py+20,1 : display
until scancode = 27
terminate
rem ============================================================================