papydall
Number of posts : 39 Age : 73 Localisation : TUNISIA Registration date : 2013-03-16
| Subject: Triangle of Sierpinski Wed Jun 14, 2017 3:22 am | |
| - Code:
-
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 ============================================================================
| |
|