Un arbre, un chapeau et rien d'autre.

rem ============================================================================
rem       Arbre récursif
rem ============================================================================
Init()
Tree()
end
rem ============================================================================
' Vous pouvez modifier toutes ces valeurs
SUB Init()
    dim level : level = 12
    dim long  : long  = 80
    dim x     : x     = 300
    dim y     : y     = 400
    dim rot   : rot   = pi/2
    dim a1    : a1    = pi/6
    dim a2    : a2    = pi/8
    dim c1    : c1    = 0.7
    dim c2    : c2    = 0.85
    dim xs(level+1)
    dim ys(level+1)
    color 0,0,128,128
END_SUB
rem ============================================================================
' Procédure récursive
SUB Tree()
    xs(level) = x : ys(level) = y
    Branche()
    if level > 0
       level = level - 1 : long = long*C1 : rot = rot - A1
       Tree() : ' 1er Appel récursif
       long = long/C1*C2 : rot = rot + A1 + A2
       Tree() : ' 2 second appel récursif
       rot = rot - A2 : long = long/C2 : level = level + 1
    end_if
     x = xs(level) : y = ys(level)
END_SUB
rem ============================================================================
SUB Branche()
    dim_local xn,yn,w
    w = long/5 : if w < 1 then w = 1
    2d_pen_width w : 2d_pen_color 15*w,255,10
    yn = 0-sin(rot)*long + y : xn = cos(rot)*long + x : 2d_line x,y,xn,yn
    x = xn : y = yn : display
END_SUB
rem ============================================================================

dim n%, fac%
n% = 6
fac% = 1
faculte(n%)
print str$(n%)+"! = "+str$(fac%)
end

sub faculte(k%)
if k%>1
  n% = k% - 1
  fac% = fac%*k%
  faculte(n%)
end_if
end_sub

dim n%, fac%, sauv%
n% = 6  : sauv% = n%
fac% = 1
faculte(n%)
print str$(sauv%)+"! = "+str$(fac%)
end

sub faculte(k%)
if k%>1
  n% = k% - 1
  fac% = fac%*k%
  faculte(n%)
end_if
end_sub

rem ============================================================================
rem         Chapeau_bas
rem ============================================================================
width 0,650 : picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
Chapeau()
print_target_is 10 : font_bold 10 : font_name 10,"tahoma" : font_size 10,20
font_color 10,200,100,50 : print_locate 200,20 : print " Chapeau bas !!! "
end
rem ============================================================================
SUB Chapeau()
    dim_local x1,x2,x4,y1,y2,x,y,i,a,l,r,f
    x1 = 300 : y1 = 300 : x2 = x1*x1 : y2 = 200
    For x = 0 to x1
        x4 = x*x : L = 0-y1 :  A = sqr(abs(x2 - x4))
        For I = 0-A to A
            2d_pen_color mod((abs(i/2)+x/2),255), abs(255-abs(i/2)),mod(abs(a/2),255)
            R = sqr(X4+I*I)/x1 : F = (1-R)*cos(12*R) : Y = I/5+F*y2
            If Y > L then l = y : y = y1-y : 2D_point x1-x,y : 2D_point x1+x,y
            display
        Next I
    Next x
END_SUB
rem ============================================================================

picture 10 : full_space 10 : color 10,0,0,0 : 2d_target_is 10 : 2d_pen_color 255,255,255
' width 10,width(0)
2d_circle 300,220,200

picture 10 : full_space 10 : color 10,0,0,0 : 2d_target_is 10 : 2d_pen_color 255,255,255
 width 10,width(0)-20
2d_circle 300,220,200