Le Tapis de Waclaw Sierpiński par Papydall

rem ============================================================================
rem                    Tapis de Sierpinski
rem                        Par Papydall
rem ============================================================================
dim order,side,x,y,x0,y0,cote,t$
width 0,800 : height 0,800
picture 10 : full_space 10 : 2d_target_is 10 : color 10,20,100,200
alpha 20 : top 20,300 : left 20,320 : font_bold 20 : font_color 20,250,100,20
color 20,20,100,200 : font_size 20,30
t$ = "Papydall" + chr$(13) + "  vous" + chr$(13) + " salue !"
caption 0,"Tapis de Sierpinski... Tracé en cours ... <ESC> pour arrêter ..."
order = 5
side = power(3,order)
x0 = 30 : y0 = 10 : cote = 15/order
2d_fill_color 255,255,255
for y = 0 to side-1
    for x = 0 to side-1
        2d_pen_color 255,255,0
        if (odd(x) = 0) or (odd(y) = 0)
           2d_pen_color 255,0,0
        end_if
          
        if (odd(x) = 0) and (odd(y) = 0)
           2d_pen_color 0,255,0
        end_if
        if (odd(x) = 1) and (odd(y) = 1)
           2d_pen_color 0,0,255
        end_if
        if incarpet(x,y) = 1
           2d_rectangle x0+x*cote,y0+y*cote , x0+cote*(x+1),y0+cote*(y+1)
        end_if            
    next x
    if scancode = 27 then end
next y
caption 0,"Tapis de Sierpinski... <ESC> pour sortir ..."
repeat
    font_color 20,255,000,000 : caption 20,t$ : pause 1000
    font_color 20,255,255,000 : caption 20,t$ : pause 1000
until scancode = 27
for x = 800 to 20 step -10
    height 0,x : pause 100
next x
terminate
rem ============================================================================
FNC incarpet(x,y)
    repeat
        if (mod(x,3) = 1) and (mod(y,3) = 1) then result 0 : exit_fnc
        x = int(x/3)
        y = int(y/3)
    until (x = 0) and (y = 0)
    result 1          
END_FNC
rem ============================================================================

rem ============================================================================
dim w,h,k1,k2,k3,j,y1,y2,y3,y4,x1,x2,x12,y12,y13,y14,xy1,xy2,xy3,r,g,b
full_space 0
h  = screen_y : w = screen_x
k1 = h*0.25   : k2 = h*0.5 : k3 = h*0.75 : j = w*0.25
y2 = k1 : y3 = k2 : y4 = k3
picture 10 : full_space 10: 2d_target_is 10
caption 0,"Tracé en cours ... <ESC> pour arrêter ..."
for x1 = 0 to w  
    x2 = j
    for y1 = 0 to h  
        x2  = x2 + 0.5
        x12 = (x1-x2) * (x1-x2) : y12 = (y1-y2) * (y1-y2)
        y13 = (y1-y3) * (y1-y3) : y14 = (y1-y4) * (y1-y4)
        xy1 = sqr(x12+y12) : xy2 = sqr(x12+y13) : xy3 = sqr(x12+y14)
        r   = mod(xy1,255) : g   = mod(xy2,255) : b   = mod(xy3,255)
        2d_pen_color r,g,b : 2d_point x1,y1        
    next y1
    display
        if scancode = 27 then terminate
next x1
caption 0,"Terminé"
rem ============================================================================

dim i%
width 0,900
height 0,700
picture 1
full_space 1
color 1,240,240,240
2d_target_is 1
2d_pen_color 255,0,0
2d_fill_color 255,0,0
2d_circle 200,200,100
2d_pen_color 240,240,240
2d_pen_width 3

for i% = 0 to 100
    2d_pen_color 240,240,240
    2d_circle 200,200+i%,100-i%
    2d_pen_color 250,0,0
    2d_line 200,296,200+i%*5,296
    pause 60
next i%

end

dim i%
width 0,900
height 0,700
picture 1
full_space 1
color 1,240,240,240
2d_target_is 1
2d_fill_color 255,0,0
2d_pen_width 7

for i% = 0 to 93
    2d_pen_color 240,240,240
    2d_circle 200+i%*5,200+i%,100-i%
    2d_pen_color 250,0,0
    2d_line 200,292,200+i%*5,292
    pause 50
next i%

end

rem ============================================================================
rem                      Tapis rouge                              
rem ============================================================================
dim data$,char$,i%,j%,k%,n%
dim r,v,b
picture 10 : full_space 10 : 2d_target_is 10 : 2d_fill_color 255,0,0
caption 0,"<ESC> pour arrêter ce spectacle !!!"
2d_rectangle 0,100,600,300
repeat
    for k% = 0 to 600 step 20  
        2d_rectangle 0,100,600,300        
        restore
        for j%  = 0 to 67
            read data$
            for i% = 0 to 36
                char$ = mid$(data$,i%+1,1)
                n% = val(char$)
                select n%
                    case 0 : r = 255 : v = 000 : b = 000
                    case 1 : r = 000 : v = 255 : b = 000
                    case 2 : r = 255 : v = 174 : b = 201
                    case 3 : r = 163 : v = 073 : b = 164
                    case 4 : r = 000 : v = 162 : b = 232
                    case 5 : r = 112 : v = 146 : b = 190
                    case 6 : r = 063 : v = 072 : b = 204
                    case 7 : r = 136 : v = 000 : b = 021
                    case 8 : r = 094 : v = 086 : b = 065
                    case 9 : r = 255 : v = 127 : b = 039
                end_select
                2d_pen_color r,v,b : 2d_point k%+i%-20,150+j%
            next i%
        next j%
        if scancode = 27 then terminate
        display
    next k%
until scancode = 27
rem ============================================================================
DATA "0000000000000000001111100000000000000"
DATA "0000000000000000011111110000000000000"
DATA "0000000000000000111111110000000000000"
DATA "0000000000000000111111220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000111122220000000000000"
DATA "0000000000000000022222200000000000000"
DATA "0000000000000000022222200000000000000"
DATA "0000000000000000333222000000000000000"
DATA "0000000000000003333330000000000000000"
DATA "0000000000000033333443000000000000000"
DATA "0000000000000033334444000000000000000"
DATA "0000000000000033344444000000000000000"
DATA "0000000000000333344444400000000000000"
DATA "0000000000000333344444400000000000000"
DATA "0000000000000333344444440000000000000"
DATA "0000000000005333344444444000000000000"
DATA "0000000000005333334444444400000000000"
DATA "0000000000005333333444444440000000000"
DATA "0000000000005333333444444444000000000"
DATA "0000000000005333333344444444400000000"
DATA "0000000000005333333344444444440000000"
DATA "0000000000005333333334444444444400000"
DATA "0000000000005333333333444444444440000"
DATA "0000000000055533333333334444444444000"
DATA "0000000000055533333333330004444444400"
DATA "0000000000055533333333330000044444420"
DATA "0000000000055533333333330000000442222"
DATA "0000000000055533333333330000000000222"
DATA "0000000000555533333333330000000000222"
DATA "0000000000555033333333330000000000000"
DATA "0000000000555033333333330000000000000"
DATA "0000000000222011111111110000000000000"
DATA "0000000002222011111111110000000000000"
DATA "0000000002220111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000000111111111110000000000000"
DATA "0000000000001111111111166000000000000"
DATA "0000000000001111111111666000000000000"
DATA "0000000000001111111116666600000000000"
DATA "0000000000011111111116666600000000000"
DATA "0000000000011111111166666660000000000"
DATA "0000000000011111111666666660000000000"
DATA "0000000000111111111666666660000000000"
DATA "0000000000111111110666666666000000000"
DATA "0000000001111111100066666666000000000"
DATA "0000000001111111000006666666000000000"
DATA "0000000011111110000000666666600000000"
DATA "0000000111111100000000066666600000000"
DATA "0000000111111000000000066666600000000"
DATA "0000001111110000000000006666600000000"
DATA "0000011111110000000000006666660000000"
DATA "0000011111100000000000000666660000000"
DATA "0000111111000000000000000666660000000"
DATA "0000111110000000000000000066666000000"
DATA "0001111110000000000000000066666000000"
DATA "0001111100000000000000000066666600000"
DATA "0011111000000000000000000066666600000"
DATA "0011111000000000000000000006666600000"
DATA "0111111000000000000000000006666600000"
DATA "0771110000000000000000000000666899999"
DATA "7777770000000000000000000000669999999"
DATA "7777770000000000000000000000099999990"
DATA "7777777000000000000000000000099999000"
DATA "0777777700000000000000000000099900000"
DATA "0000777700000000000000000000000000000"
rem ============================================================================