Mouvements stochastiques

rem ============================================================================
rem            Spircarre
rem           Par Papydall
rem ============================================================================
dim r,g,b,x,y,a,x1,y1,q,s,xx,yy
width 0,600 : height 0,600
r = 1 : g = 1 : b = 1 : s = 1 : x = 250 : y = 250
for a = 1 to 525
    x1 = x + s * a : y1 = y + s * a : q = s : g = mod(abs(g+a),255)
   for xx = x to x1 step q
       b = mod(abs(b+xx),255) : 2d_pen_color r,g,b : 2d_point 35+xx,25+y
   next xx
   display
   for yy = y to y1 step q
      r = mod(abs(r+yy),255) : 2d_pen_color r,g,b : 2d_point 35+x1,25+yy
   next yy
   x = x1 : y = y1 : s = 0-s : r = 1 : g = 1 : b = 1
next a
caption 0,"Terminé"
rem ============================================================================

rem ============================================================================
rem            Spircarre
rem          Par Papydall - Modifié par Jean Claude
rem ============================================================================
application_title "Spircarre Par Papydall"
dim r,g,b,x,y,a,x1,y1,q,s,xx,yy,nb,ra$
border_small 0 : full_space 0 : color 0,0,0,0
caption 0,"Un ou plusieur CLIC-COURT => Modifier direction    *  CLIC_MAINTENU => Agrandissement  *  ECHAP => Arrêter  *  Sortie par la croix rouge  *  COMPTEUR => 0/700"
message "Lire les informations dans le bandeau de la fenêtre"
r = 1 : g = 1 : b = 1 : s = 1 : x = screen_x/2 : y = screen_y/2
while "Papydall" = "Papydall"
 for a = 1 to 700
  caption 0,"Un ou plusieur CLIC-COURT => Modifier direction    *  CLIC_MAINTENU => Agrandissement  *  ECHAP => Arrêter  *  Sortie par la croix rouge  *  COMPTEUR => "+str$(a)+"/700"
  for nb=1 to 2
      x1 = x + s * a : y1 = y + s * a : q = s : g = mod(abs(g+a),255)
      for xx = x to x1 step q
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="0" then g = mod(abs(g+xx),255)
          end_if
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="5" then g = mod(abs(g+xx),255)
            b = mod(abs(b+xx),255)
          end_if
          2d_pen_color r,g,b : 2d_point 35+xx,25+y
      next xx
      display
      for yy = y to y1 step q
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="3"
                g = mod(abs(g+xx),255)
            else
                b=rnd(255): ' Modifiez ou shuntez cette ligne
            end_if
          end_if
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="7"
                r = mod(abs(r+yy),255)
            else
                r=rnd(255)
            end_if
          end_if

          2d_pen_color r,g,b : 2d_point 35+x1,25+yy
      next yy
      x = x1 : y = y1 : s = 0-s : r = 1 : g = 1 : b = 1
      if scancode <> 0 then exit_for
  next nb
      if scancode =27 then end
 next a
caption 0,"Terminé"
end
end_while
rem ============================================================================

rem ============================================================================
rem            Spircarre
rem          Par Papydall - Modifié par Jean Claude
rem ============================================================================
application_title "Spircarre Par Papydall"
dim r,g,b,x,y,a,x1,y1,q,s,xx,yy,nb,ra$
border_small 0 : full_space 0 : color 0,0,0,0
caption 0,"Un ou plusieur CLIC-COURT => Modifier direction    *  CLIC_MAINTENU => Agrandissement  *  ECHAP => Arrêter  *  Sortie par la croix rouge  *  COMPTEUR => 0/500"
message "Lire les informations dans le bandeau de la fenêtre"
r = 1 : g = 1 : b = 1 : s = 1 : x = screen_x/2 : y = (screen_y/2)-20
while "Papydall" = "Papydall"
 for a = 1 to 500
  caption 0,"Un ou plusieur CLIC-COURT => Modifier direction    *  CLIC_MAINTENU => Agrandissement  *  ECHAP => Arrêter  *  Sortie par la croix rouge  *  COMPTEUR => "+str$(a)+"/500"
  for nb=1 to 2
      x1 = x + s * a : y1 = y + s * a : q = s : g = mod(abs(g+a),255)
      for xx = x to x1 step q
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="0" then g = mod(abs(g+xx),255)
          end_if
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="5"
                g = mod(abs(g+xx),255)
            else
                b = mod(abs(b+xx),255)
                r=mod(abs(g+xx),255)
            end_if
          end_if
          2d_pen_color r,g,b : 2d_point rnd(35)+xx,rnd(25)+y
      next xx
      display
      for yy = y to y1 step q
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="3"
                g = mod(abs(g+xx),255)
            else
                b=rnd(255): ' Modifiez ou shuntez cette ligne
            end_if
          end_if
          if a>9
            ra$=str$(a)
            if left$(ra$,2)="7"
                r = mod(abs(r+yy),255)
            else
            '    g=rnd(255)
          '      b=rnd(255)
            end_if
          end_if

          2d_pen_color r,g,b : 2d_point rnd(35)+x1,15+yy
      next yy
      x = x1 : y = y1 : s = 0-s : r = 1 : g = 1 : b = 1
      if scancode <> 0 then exit_for
  next nb
      if scancode =27 then end
 next a
caption 0,"Terminé"
end
end_while
rem ============================================================================