Démo dédicacé à Papydall

' Démo ecrite par Jicehel sur une idée de Papydall
' pour tester le 2D_point...
'
Dim PosX , PosY ,Pos2X , Pos2Y , angle, couleur, sens
2d_pen_width 20 : ' ne fonctionne pas avec 2D_POINT
caption 0,"<CLICK> pour arrêter"
repeat
  PosX = 0 : PosY = 0 : couleur = 0 : sens = 0.5
  for angle = 0 to 360 step 0.3141
    PosX = PosX + Cos(angle / (360 / 50)) * 10 : PosY = PosY + Sin(angle / (360 / 150)) * 20
    2d_pen_color abs(Posx/3)+50,angle/ 3, 255 - couleur
    2d_poly_from  PosX + 280, PosY + 20 : 2d_poly_to PosX + 280, PosY + 20
    couleur = couleur + 1 * sens : if (couleur >= 255 or couleur <= 0) then  sens = 0 - sens
    if scancode <>0 then exit_for
    wait 3
  next angle
until scancode <> 0
terminate

' papillon.bas par Papydall
dim x,y,rho,theta,pi,xc,yc
full_space 0 : xc = width(0)/2 : yc = height(0)/2
caption 0,"<CLICK> pour arrêter ce joli Papillon"
pi = 4*atn(1) : theta = 0-10*pi : color 0,0,0,0 : cls : 2d_pen_color 0,0,0
rho = exp(sin(theta))-2*cos(4*theta)+power(sin(theta/12),5)
x = cos(theta)+0.5*cos(7*theta)+0.333*cos(pi/2 -17*theta)
y = sin(theta)+0.5*sin(7*theta)+0.333*sin(pi/2 -17*theta)
x =rho*cos(theta) : y = rho*sin(theta) : 2d_poly_from xc+100*x,yc-100*y
repeat
  2d_pen_color rnd(255),rnd(255),rnd(255)
  for theta = 0-10*pi to 10*pi step pi/180
      rho = exp(sin(theta))-2*cos(4*theta)+power(sin(theta/12),5)
      x = cos(theta)+0.5*cos(7*theta)+0.333*cos(pi/2 -17*theta)
      y = sin(theta)+0.5*sin(7*theta)+0.333*sin(pi/2 -17*theta)
      x =rho*cos(theta) : y = rho*sin(theta) : 2d_poly_to xc+100*x,yc-100*y
  next theta
until scancode <> 0
terminate

' papillon.bas par Papydall
dim x,y,rho,theta,pi,xc,yc, m
full_space 0 : xc = width(0)/2 : yc = height(0)/2
caption 0,"<CLICK> pour arrêter ce joli Papillon"
2d_pen_width 10
pi = 4*atn(1) : theta = 0-10*pi : color 0,0,0,0 : cls : 2d_pen_color 0,0,0
rho = exp(sin(theta))-2*cos(4*theta)+power(sin(theta/12),5)
x = cos(theta)+0.5*cos(7*theta)+0.333*cos(pi/2 -17*theta)
y = sin(theta)+0.5*sin(7*theta)+0.333*sin(pi/2 -17*theta)
x =rho*cos(theta) : y = rho*sin(theta) : 2d_poly_from xc+100*x,yc-100*y
m =100
repeat
  for theta = 0-2*pi to 2*pi step pi/180
      rho = exp(sin(theta))-2*cos(4*theta)+power(sin(theta/12),5)
      x = cos(theta)+0.5*cos(7*theta)+0.333*cos(pi/2 -17*theta)
      y = sin(theta)+0.5*sin(7*theta)+0.333*sin(pi/2 -17*theta)
      x =rho*cos(theta) : y = rho*sin(theta)
      2d_pen_color abs(x)*75,abs(y)*75,50
      2d_poly_to xc+m*x,yc-m*y
  next theta
  m = m - 2
until scancode <> 0 or m < 35
end

' **********************    Fractal.bas par Papydall    ***********************
Run()
terminate
' ******************************************************************************
SUB Run()
    DIM  xmax,ymax,tcmax,cx,cy,sa,sav,sb,sc
    full_space 0 : color 0,0,0,0
    caption 0,"<CLICK> pour arrêter"
    xmax = width(0)-20 : ymax = height(0)-20
    cx = INT(.5 + xmax / 2) :  cy = INT(.5 + ymax / 2) : tcmax = 15
    repeat
      sa = RND(100) - 50 : sb = RND(100) - 50 : sc = RND(100) - 50
      sav = (ABS(sa) + ABS(sb) + ABS(sc)) / 3
      Fractal(sa,sb,sc,6 - ABS(sav / 10))
    UNTIL scancode <> 0
end_sub
' ******************************************************************************
SUB Fractal(a,b,c,s)
    DIM_local xold, yold, xnew, ynew,t,tc
    xold = 0 : yold = 0 : t = 0 : tc = 0
    repeat
      2d_pen_color rnd(255),rnd(255),rnd(255)
      2d_point INT(.5 + xold) + cx, INT(.5 + yold) + cy
      xnew = yold - sgn(xold) * SQR(ABS(b * xold - c))
      ynew = a - xold : xold = xnew : yold = ynew
      t = t + 1 : IF t > 1000 then tc = tc + 1 : t = 0
    UNTIL scancode <> 0 OR ((tc > (tcmax - 1)) AND (tcmax > 0))
    cls
END_SUB
' ******************************************************************************

' ------------------------------------------------------------------------------
' ***************  Sans_Nom.bas par Papydall  ********************************
' ------------------------------------------------------------------------------
dim size : size = 25
DIM x(size),y(size),xx(size),yy(size),nx(size),ny(size),r(size),t(size),v(size),u(size)
DIM winx,winy,accel,maxsp,minsp,maxX,maxy,xp,yp,i
full_space 0 : color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
winX = 160 : winY = 240 : accel = .8 : maxsp = size / 1.5 : minsp = 0-maxsp
maxX = width(0)-winX : maxY = height(0)-winY : xp = maxX : yp = maxY
' -----------------------------------------------------------------------------
FOR i = 1 TO size
    xx(i) = minsp : yy(i) = minsp
    xp = xp - 400 / size : yp = yp - 400 / size
    x(i) = xp : y(i) = yp : r(i) = i
NEXT i
' -----------------------------------------------------------------------------
repeat
  FOR i = 1 TO size
      2d_pen_color 255,255,0 : 2d_CIRCLE t(i), v(i), u(i)
      2d_pen_color rnd(10)*i,rnd(10)*i,rnd(10)*i : 2d_CIRCLE x(i), y(i), r(i)
      IF i < size
          2d_pen_color 255,0,0 : 2d_LINE x(i), y(i),x(i + 1), y(i + 1)
      end_if
      t(i) = x(i): v(i) = y(i): u(i) = r(i)
  NEXT i
  FOR i = 1 TO size
      IF i = size
          xx(i) = xx(i) + nx(i) : yy(i) = yy(i) + ny(i)
          IF xx(i) > maxsp THEN xx(i) = maxsp
          IF xx(i) < minsp THEN xx(i) = minsp
          IF yy(i) > maxsp THEN yy(i) = maxsp
          IF yy(i) < minsp THEN yy(i) = minsp
          x(i) = x(i) + xx(i) : y(i) = y(i) + yy(i)
          IF x(i) > maxX THEN nx(i) = 0-RND(accel) - accel
          IF x(i) < winX THEN nx(i) = RND(accel) + accel
          IF y(i) > maxY THEN ny(i) = 0-RND(accel) - accel
          IF y(i) < winY THEN ny(i) = RND(accel) + accel
      END_IF
      IF i < size THEN : x(i) = x(i + 1) : y(i) = y(i + 1)
  NEXT i
until scancode <> 0
' ******************************************************************************

' ------------------------------------------------------------------------------
' ***************  Sans_Nom.bas par Papydall  ********************************
' --------------------------------------------------- colorisation Jean Claude
dim cr,cg,cb
dim size : size = 25
DIM x(size),y(size),xx(size),yy(size),nx(size),ny(size),r(size),t(size),v(size),u(size)
DIM winx,winy,accel,maxsp,minsp,maxX,maxy,xp,yp,i
full_space 0 : color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
winX = 160 : winY = 240 : accel = .8 : maxsp = size / 1.5 : minsp = 0-maxsp
maxX = width(0)-winX : maxY = height(0)-winY : xp = maxX : yp = maxY
' -----------------------------------------------------------------------------
FOR i = 1 TO size
    xx(i) = minsp : yy(i) = minsp
    xp = xp - 400 / size : yp = yp - 400 / size
    x(i) = xp : y(i) = yp : r(i) = i
NEXT i
' -----------------------------------------------------------------------------
repeat
  FOR i = 1 TO size
      cr=rnd(254)+1:cg=rnd(254)+1:cb=rnd(254)+1
      2d_pen_color cr,cg,cb : 2d_CIRCLE t(i), v(i), u(i)
      2d_pen_color rnd(10)*i,rnd(10)*i,rnd(10)*i : 2d_CIRCLE x(i), y(i), r(i)
      IF i < size
          cr=rnd(254)+1:cg=rnd(254)+1:cb=rnd(254)+1
          2d_pen_color cr,cg,cb : 2d_LINE x(i), y(i),x(i + 1), y(i + 1)
      end_if
      t(i) = x(i): v(i) = y(i): u(i) = r(i)
  NEXT i
  FOR i = 1 TO size
      IF i = size
          xx(i) = xx(i) + nx(i) : yy(i) = yy(i) + ny(i)
          IF xx(i) > maxsp THEN xx(i) = maxsp
          IF xx(i) < minsp THEN xx(i) = minsp
          IF yy(i) > maxsp THEN yy(i) = maxsp
          IF yy(i) < minsp THEN yy(i) = minsp
          x(i) = x(i) + xx(i) : y(i) = y(i) + yy(i)
          IF x(i) > maxX THEN nx(i) = 0-RND(accel) - accel
          IF x(i) < winX THEN nx(i) = RND(accel) + accel
          IF y(i) > maxY THEN ny(i) = 0-RND(accel) - accel
          IF y(i) < winY THEN ny(i) = RND(accel) + accel
      END_IF
      IF i < size THEN : x(i) = x(i + 1) : y(i) = y(i + 1)
  NEXT i
until scancode <> 0
' ******************************************************************************

' ------------------------------------------------------------------------------
' ***************  Sans_Nom.bas par Papydall  ********************************
' --------------------------------------------------- Version (serpent) Jean Claude
dim cr,cg,cb,csp
dim size : size = 25
DIM x(size),y(size),xx(size),yy(size),nx(size),ny(size),r(size),t(size),v(size),u(size)
DIM winx,winy,accel,maxsp,minsp,maxX,maxy,xp,yp,i
full_space 0 : color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
winX = 160 : winY = 240 : accel = .8 : maxsp = size / 1.5 : minsp = 0-maxsp
maxX = width(0)-winX : maxY = height(0)-winY : xp = maxX : yp = maxY
' -----------------------------------------------------------------------------
FOR i = 1 TO size
    xx(i) = minsp : yy(i) = minsp
    xp = xp - 400 / size : yp = yp - 400 / size
    x(i) = xp : y(i) = yp : r(i) = i
NEXT i
' -----------------------------------------------------------------------------
repeat
  FOR i = 1 TO size
      cr=rnd(254)+1:cg=rnd(254)+1:cb=rnd(254)+1
      2d_pen_color cr,cg,cb : 2d_CIRCLE t(i), v(i), u(i)
      2d_pen_color rnd(10)*i,rnd(10)*i,rnd(10)*i : 2d_CIRCLE x(i), y(i), r(i)
      IF i < size
          cr=rnd(254)+1:cg=rnd(254)+1:cb=rnd(254)+1
          2d_pen_color cr,cg,cb : 2d_LINE x(i), y(i),x(i + 1), y(i + 1)
      end_if
      t(i) = x(i): v(i) = y(i): u(i) = r(i)
  NEXT i
  FOR i = 1 TO size
  csp=rnd(24)+11
      IF i = size
          xx(i) = xx(i) + nx(i) : yy(i) = yy(i) + ny(i)
          IF xx(i) > maxsp THEN xx(i) = maxsp -csp
          IF xx(i) < minsp THEN xx(i) = minsp
          IF yy(i) > maxsp THEN yy(i) = maxsp -csp
          IF yy(i) < minsp THEN yy(i) = minsp
          x(i) = x(i) + xx(i) : y(i) = y(i) + yy(i)
          IF x(i) > maxX THEN nx(i) = 0-RND(accel) - accel
          IF x(i) < winX THEN nx(i) = RND(accel) + accel
          IF y(i) > maxY THEN ny(i) = 0-RND(accel) - accel
          IF y(i) < winY THEN ny(i) = RND(accel) + accel
      END_IF
      IF i < size THEN : x(i) = x(i + 1) : y(i) = y(i + 1)
  NEXT i
until scancode <> 0
' ******************************************************************************

' Démo ecrite par Jicehel sur une idée de Papydall
' pour tester le 2D_point...
' forme coeurmodif mindstorm
Dim PosX , PosY ,Pos2X , Pos2Y , angle, couleur, sens
2d_pen_width 10 : ' ne fonctionne pas avec 2D_POINT
caption 0,"<CLICK> pour arrêter"
repeat
  PosX = 0 : PosY = 0 : couleur = 0 : sens = 0.5
  for angle = 0 to 360 step 0.3141
    PosX = 40 *((sin(angle))*(1+(cos(angle)))) : PosY =200+( 50*((cos(angle)*(1+cos(angle)))))
    2d_pen_color abs(Posx/3)+50,angle/ 3, 255 - couleur
    2d_poly_from  PosX + 280, PosY + 20 : 2d_poly_to PosX + 280, PosY + 20
    couleur = couleur + 1 * sens : if (couleur >= 255 or couleur <= 0) then  sens = 0 - sens
    if scancode <>0 then exit_for
    wait 3
  next angle
until scancode <> 0
terminate

' ------------------------------------------------------------------------------
' ***************  Sans_Nom.bas par Papydall  ********************************
' ------------------------------------------------------------------------------
dim size : size = 25
DIM x(size),y(size),xx(size),yy(size),nx(size),ny(size),r(size),t(size),v(size),u(size)
DIM winx,winy,accel,maxsp,minsp,maxX,maxy,xp,yp,i, cpt, sens
full_space 0 : color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
winX = 160 : winY = 240 : accel = .8 : maxsp = size / 1.5 : minsp = 0-maxsp
maxX = width(0)-winX : maxY = height(0)-winY : xp = maxX : yp = maxY
' -----------------------------------------------------------------------------
FOR i = 1 TO size
    xx(i) = minsp : yy(i) = minsp
    xp = xp - 400 / size : yp = yp - 400 / size
    x(i) = xp : y(i) = yp : r(i) = i
NEXT i
' -----------------------------------------------------------------------------
cpt = 1 : sens = 1
repeat
  FOR i = 1 TO size
      2d_pen_color i*cpt,255-i*10,0 : 2d_CIRCLE t(i), v(i), u(i)
      2d_pen_color rnd(cpt)*i,255 - rnd(cpt)*i,rnd(cpt)*i : 2d_CIRCLE x(i), y(i), r(i)
      IF i < size
          2d_pen_color 255,0,0 : 2d_LINE x(i), y(i),x(i + 1), y(i + 1)
      end_if
      t(i) = x(i): v(i) = y(i): u(i) = r(i)
      cpt = cpt+1*sens : if cpt = 10 : sens = 0 - sens : else: if cpt = 1 then sens = 0 - sens : end_if
  NEXT i
  FOR i = 1 TO size
      IF i = size
          xx(i) = xx(i) + nx(i) : yy(i) = yy(i) + ny(i)
          IF xx(i) > maxsp THEN xx(i) = maxsp
          IF xx(i) < minsp THEN xx(i) = minsp
          IF yy(i) > maxsp THEN yy(i) = maxsp
          IF yy(i) < minsp THEN yy(i) = minsp
          x(i) = x(i) + xx(i) : y(i) = y(i) + yy(i)
          IF x(i) > maxX THEN nx(i) = 0-RND(4*accel) - accel
          IF x(i) < winX THEN nx(i) = RND(4*accel) + accel
          IF y(i) > maxY THEN ny(i) = 0-RND(accel) - accel
          IF y(i) < winY THEN ny(i) = RND(accel) + accel
      END_IF
      IF i < size THEN : x(i) = x(i + 1) : y(i) = y(i + 1)
  NEXT i
until scancode <> 0
' ******************************************************************************

' ------------------------------------------------------------------------------
' ***************  Sans_Nom.bas par Papydall  ********************************
' --------------------------------------------------- Version (serpent) Jean Claude
dim cr,cg,cb,csp
dim size : size = 25
DIM x(size),y(size),xx(size),yy(size),nx(size),ny(size),r(size),t(size),v(size),u(size)
DIM winx,winy,accel,maxsp,minsp,maxX,maxy,xp,yp,i,cpt, sens
full_space 0 : color 0,0,0,0
caption 0,"<CLICK> pour arrêter"
winX = 160 : winY = 240 : accel = .8 : maxsp = size / 1.5 : minsp = 0-maxsp
maxX = width(0)-winX : maxY = height(0)-winY : xp = maxX : yp = maxY
' -----------------------------------------------------------------------------
FOR i = 1 TO size
    xx(i) = minsp : yy(i) = minsp
    xp = xp - 400 / size : yp = yp - 400 / size
    x(i) = xp : y(i) = yp : r(i) = i
NEXT i
' -----------------------------------------------------------------------------
cpt = 1 : sens = 1
repeat
  FOR i = 1 TO size
      cr=i*cpt:cg=255-i*cpt:cb=0
      2d_pen_color cr,cg,cb : 2d_CIRCLE t(i), v(i), u(i)
      2d_pen_color rnd(cpt)*i,255-rnd(cpt)*i,rnd(cpt)*i : 2d_CIRCLE x(i), y(i), r(i)
      IF i < size
          cr=rnd(254)+1:cg=rnd(254)+1:cb=rnd(254)+1
          2d_pen_color cr,cg,cb : 2d_LINE x(i), y(i),x(i + 1), y(i + 1)
      end_if
      t(i) = x(i): v(i) = y(i): u(i) = r(i)
      cpt = cpt+1*sens : if cpt = 10 : sens = 0 - sens : else: if cpt = 1 then sens = 0 - sens : end_if
  NEXT i
  FOR i = 1 TO size
  csp=rnd(24)+11
      IF i = size
          xx(i) = xx(i) + nx(i) : yy(i) = yy(i) + ny(i)
          IF xx(i) > maxsp THEN xx(i) = maxsp -csp
          IF xx(i) < minsp THEN xx(i) = minsp
          IF yy(i) > maxsp THEN yy(i) = maxsp -csp
          IF yy(i) < minsp THEN yy(i) = minsp
          x(i) = x(i) + xx(i) : y(i) = y(i) + yy(i)
          IF x(i) > maxX THEN nx(i) = 0-RND(accel) - accel
          IF x(i) < winX THEN nx(i) = RND(accel) + accel
          IF y(i) > maxY THEN ny(i) = 0-RND(accel) - accel
          IF y(i) < winY THEN ny(i) = RND(accel) + accel
      END_IF
      IF i < size THEN : x(i) = x(i + 1) : y(i) = y(i + 1)
  NEXT i
until scancode <> 0
' ******************************************************************************

' Démo ecrite par Jicehel sur une idée de Papydall
' pour tester le 2D_point...
' forme coeurmodif mindstorm
Dim PosX , PosY ,Pos2X , Pos2Y , angle, couleur, sens
2d_pen_width 20 : ' ne fonctionne pas avec 2D_POINT
caption 0,"<CLICK> pour arrêter"
repeat
  PosX = 0 : PosY = 0 : couleur = 0 : sens = 0.5
  for angle = 0 to 360 step 0.5
    PosX = 120 *((sin(angle))*(1+(cos(angle)))) : PosY =100 +( 150*((cos(angle)*(1+cos(angle)))))
    2d_pen_color angle /2 + 50,rnd(50), couleur + rnd (100)
    2d_poly_from  PosX + 280, PosY + 20 : 2d_poly_to PosX + 280, PosY + 20
    couleur = couleur + 1 * sens : if (couleur >= 100 or couleur <= 0) then  sens = 0 - sens
    if scancode <>0 then exit_for
    wait 3
  next angle
until scancode <> 0
terminate

' **********************    Fractal.bas par Papydall    ***********************
Run()
terminate
' ******************************************************************************
SUB Run()
    DIM  xmax,ymax,tcmax,cx,cy,sa,sav,sb,sc
    full_space 0 : color 0,0,0,0
    caption 0,"<CLICK> pour arrêter"
    xmax = width(0)-20 : ymax = height(0)-20
    cx = INT(.5 + xmax / 2) :  cy = INT(.5 + ymax / 2) : tcmax = 15
    repeat
      sa = RND(100) - 50 : sb = RND(100) - 50 : sc = RND(100) - 50
      sav = (ABS(sa) + ABS(sb) + ABS(sc)) / 3
      Fractal(sa,sb,sc,6 - ABS(sav / 10))
    UNTIL scancode <> 0
end_sub
' ******************************************************************************
SUB Fractal(a,b,c,s)
    DIM_local xold, yold, xnew, ynew,t,tc
    DIM_local C1,C2,C3
    xold = 0 : yold = 0 : t = 0 : tc = 0
    repeat
      caption 0,abs(c)
      C1 = abs(xold)*(rnd(1)+0.5) : IF C1 < 10 : C1 = 10 : ELSE :IF C1 > 255 THEN C1 = 255 : END_IF
      C2 = abs(b)*(rnd(4)+1) : IF C2 < 10 : C2 = 10: ELSE :IF C2 > 255 THEN C2 = 255 : END_IF
      C3 = abs(c)*(rnd(2)+0.5) : IF C3 < 10 : C3 = 10 : ELSE : IF C3 > 255 THEN C3 = 255 : END_IF
      2d_pen_color C1,C2,C3
      2d_point INT(.5 + xold) + cx, INT(.5 + yold) + cy
      xnew = yold - sgn(xold) * SQR(ABS(b * xold - c))
      ynew = a - xold : xold = xnew : yold = ynew
      t = t + 1 : IF t > 1000 then tc = tc + 1 : t = 0
    UNTIL scancode <> 0 OR ((tc > (tcmax - 1)) AND (tcmax > 0))
    cls
END_SUB
' ******************************************************************************

' ******************************************************************************
'                  un autre sans nom par Papydall
' ******************************************************************************
dim pi,demi_Pi,X,Y,Angle,debut,fin ,p
pi = 4*atn(1) : Demi_pi = pi/2 : debut = 0-20*pi : fin = 20*pi : p = .9
caption 0,"<CLICK> pour arrêter" : color 0,0,0,0 : cls
repeat
  FOR Angle = debut TO fin STEP p
    X = 320 + 150 * COS(Angle) : Y = 200 + 75 * SIN(Angle)
    2d_pen_color rnd(255),rnd(255),rnd(255): 2d_circle X + 90 * COS(Angle), Y + 20 * SIN(Angle),26
    2d_pen_color 255,255,255 : 2d_circle X + 80 * COS(Angle), Y + 20 * SIN(Angle),24
    2d_pen_color 255,255,0  : 2d_circle X + 70 * COS(Angle), Y + 18 * SIN(Angle),21
    2d_pen_color 255,0,255  : 2d_circle X + 60 * COS(Angle), Y + 16 * SIN(Angle),18
    2d_pen_color 255,0,0    : 2d_circle X + 50 * COS(Angle), Y + 14 * SIN(Angle),15
    2d_pen_color 0,255,255  : 2d_circle X + 40 * COS(Angle), Y + 12 * SIN(Angle),12
    2d_pen_color 0,255,0    : 2d_circle X + 30 * COS(Angle), Y + 10 * SIN(Angle),09
    2d_pen_color 0,0, 255    : 2d_circle X + 20 * COS(Angle), Y + 08 * SIN(Angle),06
    2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_circle X + 10 * COS(Angle), Y + 06 * SIN(Angle),03
' ------------------------------------------------------------------------------
    2d_pen_color rnd(255),rnd(255),rnd(255): 2d_circle X - 80 * COS(Angle + Demi_Pi), Y - 20 * SIN(Angle + Demi_Pi),26
    2d_pen_color 255,255,255 : 2d_circle X - 80 * COS(Angle + Demi_Pi), Y - 20 * SIN(Angle + Demi_Pi),24
    2d_pen_color 255,255,0  : 2d_circle X - 70 * COS(Angle + Demi_Pi), Y - 18 * SIN(Angle + Demi_Pi),21
    2d_pen_color 255,0,255  : 2d_circle X - 60 * COS(Angle + Demi_Pi), Y - 16 * SIN(Angle + Demi_Pi),18
    2d_pen_color 255,0,0    : 2d_circle X - 50 * COS(Angle + Demi_Pi), Y - 14 * SIN(Angle + Demi_Pi),15
    2d_pen_color 0,255,255  : 2d_circle X - 40 * COS(Angle + Demi_Pi), Y - 12 * SIN(Angle + Demi_Pi),12
    2d_pen_color 0,255,0    : 2d_circle X - 30 * COS(Angle + Demi_Pi), Y - 10 * SIN(Angle + Demi_Pi),09
    2d_pen_color 0,0, 255    : 2d_circle X - 20 * COS(Angle + Demi_Pi), Y - 08 * SIN(Angle + Demi_Pi),06
    2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_circle X - 10 * COS(Angle + Demi_Pi), Y - 06 * SIN(Angle + Demi_Pi),03
  NEXT Angle
'  debut = 0-debut : fin = 0-fin : p = 0-p
until scancode <> 0

' ******************************************************************************
' Les plus courts sont les meilleurs !  par Papydall
' ******************************************************************************
dim angle,r,pi,xc,yc,p
pi = 4*atn(1) : p = pi/1440 : caption 0,"<CLICK> pour arrêter"
full_space 0 : xc = width(0)/2 : yc = height(0)/2 : color 0,0,0,0
repeat
  angle = angle + p : if angle > 2*pi then angle = 0
  r = r + 1.07 : if r > 390 then r = 0
  2d_pen_color rnd(255),rnd(255),rnd(255) : 2d_point xc + r*COS(angle),yc + r*SIN(angle)
  2d_pen_color mod(r,255),255,40*angle : 2d_point xc + r*COS(angle + p * 9), yc + r*SIN(angle + p * 9)
until scancode <> 0
' ******************************************************************************

' ******************************************************************************
'                  Julia.bas par Papydall
' ******************************************************************************
Run()
end
' ******************************************************************************
SUB Run()
    label fin
    dim ec,x0,y0,xp0,yp0,Nxp,Nyp
    caption 0,"Tracé de la fractale de Julia en cours ... Veuillez patienter ... <CLICK> pour arrêter"
    ec = 400 : width 0, 2*ec+20 : color 0,0,0,0
' Essayez ces differents paramètres pour d'autres ensembles de Julia
    x0 = 0 : y0 = 0 : xp0 = .3 : yp0 = .5
'    x0 = 0-.5 : y0 = 0 : xp0 = .285 : yp0 = .013
'    x0 = 0-.5 : y0 = 0 : xp0 = .3 : yp0 = 0 -.49
'    x0 = 0-.5 : y0 = 0 : xp0 = .285 : yp0 = .01
'    x0 = .5 : y0 = .123 : xp0 = .3777 : yp0 = .123456
'    x0 = 0-.5 : y0 = .0123 : xp0 = .3456789 : yp0 = 0-.423456789

 
    Nxp = (xp0 - x0) * ec  / 4 + ec / 2 : Nyp = (y0 - yp0) * ec  / 4 + ec / 2
    alpha 1 : top 1,420 :left 1,100 : font_color 1,255,255,0 : font_bold 1
    color 1,255,0,0 : font_size 1,10 : caption 1," Fractale en Couleur "
    alpha 2 : top 2,420 :left 2,600 : font_color 2,255,255,0 : font_bold 2
    color 2,255,0,0 : font_size 2,10 : caption 2," Fractale en Noir "
    display : Julia(Nxp,Nyp) : caption 0,"Terminé"
END_SUB
' *****************************************************************************
' Tracé de la fractale ; optimisation du tracé par la symétrie
SUB Julia(Nxp, Nyp)
    dim_local cx,cy,x,y,xn,yn,modul ,nx,ny,Nb_iter
    cx = x0 + 4 / ec * (Nxp - ec / 2) : cy = y0 - 4 / ec * (Nyp - ec / 2)
    FOR Nx = 1 TO ec
        FOR Ny = 1 TO Nx
            X = 3 / ec * (Nx - ec / 2) : Y =  -3 / ec * (Ny - ec / 2)
' Diminuer le nombre d'itérations accélère le tracé mais on perd en netteté !
            FOR Nb_iter = 1 TO 50
                xn = X*X - Y*Y + cx : yn = 2*X*Y + cy
                modul = SQR((x-xn)*(x-xn) + (y-yn)*(y-yn)) : X = xn : Y = yn
                IF SQR(xn * xn + yn * yn) > 2
                  2d_pen_color 50,150,150
                  2d_point Nx, Ny : 2d_point ec - Nx + 1, ec - Ny + 1
                  2d_point ec + nx, Ny : 2d_point 2*ec - Nx +1, ec -Ny + 1
                  GOTO fin
                END_IF
            NEXT Nb_iter
            IF modul >= 2  THEN 2d_pen_color 0,0,0
            IF modul < 2    THEN 2d_pen_color 255,0,255
            IF modul < 1.75  THEN 2d_pen_color 255,255,0
            IF modul < 1.5  THEN 2d_pen_color 255,255,255
            IF modul < 1.25 THEN 2d_pen_color 0,255,0
            IF modul < 1    THEN 2d_pen_color 0,255,255
            IF modul < .7  THEN 2d_pen_color 0,0,255
            IF modul < .5  THEN 2d_pen_color 127,127,127
            IF modul < .4  THEN 2d_pen_color 127,127,0
            IF modul < .3  THEN 2d_pen_color 127,0,127
            IF modul < .2  THEN 2d_pen_color 127,0,0
            IF modul < .1  THEN 2d_pen_color 255,0,0
            2d_point Nx, Ny : 2d_point ec - Nx + 1, ec - Ny + 1
fin:
            if scancode <> 0 then caption 0,"Arrêté par l'utilisateur ! Dommage !!!" :end
        NEXT Ny
    NEXT Nx
END_SUB
' ******************************************************************************