Pour tromper l'ennui.

dim x,y,xc,yc,q
full_space 0 : xc = width(0)*.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
        q = x*x+y*y-x*y
     '   q = x*x + y*y*y
     '   q = x*x*x + y*y*y
     '   q = x*x*x + y*y
     '   q = x*x*x*x +y*y
     '   q = x*x*x*x + y*y*y
     '   q = x +y*y*y
     '   q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then 2d_pen_color 255,255,0 : else : 2d_pen_color 255,0,0
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"

dim x,y,xc,yc,q, L
dim C1,C2,C3
full_space 0 : L = width(0) : xc = L *.5 : yc = height(0)*.5 : color 0,0,0,0 : display
caption 0,"Veuillez patienter ...... <CLICK> pour arrêter"
C1 = 255 : C3 = 0
FOR x = -10.4 TO 0 step .02
    FOR y = -5.8 TO 5.8 STEP .02
    '  q = x*x+y*y-x*y
    '  q = x*x + y*y*y
        q = x*x*x + y*y*y
    '  q = x*x*x + y*y
    '  q = x*x*x*x +y*y
    '  q = x*x*x*x + y*y*y
    '  q = x +y*y*y
    '  q =x*x*x-y*y*y+x*y
        if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/1.5 : else : C2 = 0 + (abs(y-(height(0)/2)))/1.5
        C1 = (abs(x-(L/2)))/6 : C3 = (abs(x-(L/2)))/6
        2d_pen_color C1,C2,C3
        2d_point xc+50*x,yc+50*y : 2d_point xc-50*x,yc+50*y
        if scancode <> 0 then terminate
    NEXT y
NEXT x
caption 0,"Terminé"

if (q -4*int(q/4)) < 1 then C2 = 255 - (abs(y-(height(0)/2)))/2 : else : C2 = 0 + (abs(y-(height(0)/2)))/2

' *********************************************************************
' 3D.BAS
' *********************************************************************
dim x,y,z,xp,yp,ymax,coef
full_space 0 : color 0,0,0,0 : display : coef = 70 : ' modifier coef entre 1 et 100
for z = 1 to 350
    for x = 1 to 800 step 5
        fonction(x,z) : y = y*coef : xp = 50 + x + z*2 : yp = 200 + 1.5*z - y
        if yp > ymax then ymax = yp
        if x > 1 then 2d_pen_color 255,255,0 : 2d_poly_to xp,yp
        2d_pen_color 255,0,0 : 2d_line xp,ymax,xp,yp
    next x
next z
end
' *********************************************************************
SUB Fonction(x,z)
    y = sin(x/30) + cos(z/10) * cos(x/100)
    ' y = sin(x/30 + z/5)
    ' y = cos(z/20+x)
    ' y = sin(z/10)*sin(cos(x/10))
END_SUB
' *********************************************************************

rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color 0,abs(255-i*1.4),0
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)     : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color 255-i,i,255-i : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
rem ============================================================================

rem ============================================================================
dim i,j,k,m,r,x1,x2,y1,y2,largx,hauty
width 0,600 : height 0,600
largx = width(0)/2 : hauty = height(0)/2 : k = 57.29577951308
2d_pen_width 2
for m = 4 to 12 step 2
  for i = 0.05 to 360 step 0.05
      j = sin(m*i/k)
      r = 200*sqr(abs(j))
      if j < 0 then r = -1*r
      2d_pen_color abs(x1 - largx) / 2 + 50,abs(180-i) / 5,abs(y1 - hauty) / 4 + 50
      x1 = largx + r*cos(i/k) : y1 = hauty + r*sin(i/k)
      x2 = largx + cos(i)    : y2 = hauty + sin(i)
      2d_line x1,y1,x2,y2 : display
      if scancode = 27 then end
  next i
  for i = 0 to 200 step 2
    2d_pen_color i/2+150,i+50,50 + i/5 : 2d_fill_color i,i,0 : 2d_circle largx,hauty, 20 - (i / 10)
    wait 5
  next i
  if m < 12 then wait 1200:cls
next m
end
rem ============================================================================