Mandala

rem ============================================================================
rem                        Mandala
rem ============================================================================
dim x(24),y(24),v, d1,d2,xc,yc
width 0,800 : height 0,800
picture 10  : full_space 10 : 2d_target_is 10
xc = width_client(10)/2 -40 : yc = height_client(10)/2 -40 : v = 24
caption 0,"Ce mandala est obtenu uniquement avec des droites !!!"
for d1 = 1 to v
    for d2 = d1 to v    
      x(d2) = xc + sin(2*pi*(d2/v)) * xc + 30
      y(d2) = yc + COS(2*pi*(d2/v)) * yc + 30
      2d_line x(d1), y(d1) , x(d2), y(d2)
      ' Pour un tracé instantané, mettre  PAUSE en REM
      pause 50 : ' <--- pour vous convaincre qu'il s'agit uniquement des droites    
    next d2
next d1
rem ============================================================================