Esthétique polaire

rem ============================================================================
rem               Esthétique polaire
rem                 Par Papydall
rem ============================================================================
dim xc1,yc1,xc2,yc2,xc3,yc3,xc4,yc4,xc5,yc5,r,rsur2,a,x,y,c$
dim c(360), s(360) : ' Tableaus de sinus / cosinus pour accélerer le calcul
degrees :' on travaille en degrés
for a = 0 to 360 : c(a) = cos(a) : s(a) = sin(a) : next a
full_space 0
xc1 = width(0)/10 : yc1 = height(0)/2-20
xc2 = 3*xc1 : yc2 = yc1
xc3 = 5*xc1 : yc3 = yc1
xc4 = 7*xc1 : yc4 = yc1
xc5 = 9*xc1 : yc5 = yc1

color 0,100,50,100 : 2d_pen_color 255,255,255
alpha 10 : top 10,50 : left 10,50 : font_bold 10 : font_name 10,"tahoma"
font_color 10,255,255,0
font_size 10,14
c$ = "Veuillez patienter ... Vous ne serz pas déçu(e)s, je l'espère ... <CLICK> Pour arrêter !  "
display
for r = 1 to xc1 : ' step 2  ou 10 pour les impatients
    rsur2 = r * .5
    caption 10,c$ + str$(r) + " / " + str$(xc1) : display
    for a = 0 to 360
        x = rsur2 * (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
        2d_pen_color mod(abs(a+x),255),mod(abs(a-r),255), mod(abs(r-y),255)
        2d_point xc1+x,yc1+y : 2d_point xc1-x,yc1+y

        x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(a)
        2d_point xc2+x,yc2+y : 2d_point xc2-x,yc2+y
        
        x = rsur2* (1+c(a)) * c(a) : y = rsur2 * (1-s(a)) * s(a)
        2d_point xc3+x,yc3+y : 2d_point xc3-x,yc3+y
        
        x = rsur2* (1-c(a)) * c(a) : y = rsur2 * (1-c(a)) * s(mod(r,360))
        2d_point xc4+x,yc4+y : 2d_point xc4-x,yc4+y
        2d_point xc4+x,yc4-y : 2d_point xc4-x,yc4-y
        
        x = rsur2* (1-c(a)) * s(a) : y = rsur2 * (1-s(a)) * s(a)
        2d_point xc5+x,yc5+y : 2d_point xc5-x,yc5+y

        if scancode <> 0 then terminate
    next a
next r
repeat
   font_color 10, 255,0,0
   caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST    B O O O O O O !!!"
   pause 1000 :  font_color 10,0,255,0
   caption 10,"ADMIREZ ..... C'EST MAGNIFIQUE !!! .... C'EST    B O O O O O O !!!"
   pause 1000
until scancode <> 0
terminate
rem ============================================================================

rem ============================================================================
rem                  Figure de Moiré
rem                   Par Papydall
rem ============================================================================
rem Dessiner des segments avec antialiasing selon la méthode de Bresenham.
rem L effet antialiasing, consiste en un léger effet de flou permettant de cacher
rem les "escaliers" d un segment oblique.

rem Effet graphique surprenant :
rem En dessinant un grand nombre de segments créés avec antialiasing les uns
rem très proches des autres, on obtient une figure de Moiré.
rem ============================================================================

dim i,x1%,y1%,x2%,y2%
full_space 0 : color 0,0,0,0 : caption 0,"Veuillez patienter ..... <ESC> pour arrêter"
x1% = width(0)/8 : x2% = 7 * x1% : y1% = height(0)/8 : y2% = 7 * y1%
for i = y1% to y2% step 2
    ligne(x1%,y1%,x2%,i) : ligne(x1%,i,x2%,y2%)
    if scancode = 27 then terminate
next i
caption 0,"Terminé"
end
rem ============================================================================
' Tracer une ligne créée avec antialiasing
SUB ligne(x1%,y1%,x2%,y2%)
    dim_local x%,y%, e,m,epsilon
    epsilon = power(10,0-5)
    y% = y1%
    m = (y2% - y1%) / (x2% - x1% + epsilon)
    e = 0 : '  e = intensité de couleur varie entre 0 et 1
    for x% = x1% to x2%
        e = e + m
        if e >= 1 then e = e - 1 : y% = y% + 1
        2d_pen_color e*255,e*250,255-e*255 : 2d_point x%,y%
        2d_pen_color 255-e*255,e*255,e*255 : 2d_point x%,y% + 1
        display
    next x%
END_SUB
rem ============================================================================