Forum de Programmation en langage PANORAMIC
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Mots-clés

fichiers  

Derniers sujets
» Useful Dog
Ven 6 Avr - 14:25 par Papydall-Admin

» Les Courbes de Bézier cubiques
Ven 30 Mar - 4:08 par Papydall-Admin

» Animation flash
Mer 14 Mar - 2:50 par Papydall-Admin

» Mega-Strip
Lun 12 Mar - 1:24 par Papydall-Admin

» Les oiseaux de mon jardin
Ven 9 Mar - 1:08 par Papydall-Admin

»  Création et gestion d’un livre
Jeu 8 Mar - 15:37 par Papydall-Admin

» Deux questions d’éthique
Mar 6 Mar - 1:56 par Papydall-Admin

»  La Blague Du Jour
Lun 5 Mar - 2:50 par Papydall-Admin

» Branle-Fesse
Lun 5 Mar - 2:46 par Papydall-Admin

Juillet 2018
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     

Calendrier Calendrier


Figure de Moiré

Aller en bas

Figure de Moiré

Message par Papydall-Admin le Jeu 13 Oct - 14:54

Code:

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 ============================================================================

_________________
Invité, merci d'être passé par ici.
avatar
Papydall-Admin
Admin

Messages : 94
Réputation : 0
Date d'inscription : 08/09/2015
Age : 67
Localisation : MOKNINE (Tunisie)

Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum