Forum de Programmation en langage PANORAMIC


Rejoignez le forum, c’est rapide et facile

Forum de Programmation en langage PANORAMIC
Forum de Programmation en langage PANORAMIC
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Rechercher
 
 

Résultats par :
 


Rechercher Recherche avancée

Derniers sujets
» Bonne année 2024
Moiré -  Figure de Moiré EmptyLun 1 Jan - 0:25 par Papydall-Admin

» A ceux qui célèbre Noël, bonnes fêtes
Moiré -  Figure de Moiré EmptyDim 24 Déc - 10:49 par Papydall-Admin

» Joyeux Noël et Bonne Année
Moiré -  Figure de Moiré EmptyVen 8 Déc - 1:34 par Papydall-Admin

» Planets of the Solar System : Tilts and Spins
Moiré -  Figure de Moiré EmptyLun 20 Mar - 15:43 par Papydall-Admin

» Bonne Année 2023
Moiré -  Figure de Moiré EmptySam 31 Déc - 1:39 par Papydall-Admin

» Fractals - Mandelbrot
Moiré -  Figure de Moiré EmptyVen 21 Aoû - 22:51 par Papydall-Admin

» Convertisseur Décimal ---> Binaire, Octal, Hexadécimal, ...
Moiré -  Figure de Moiré EmptyMer 21 Nov - 1:08 par Papydall-Admin

» Balises {USER...}
Moiré -  Figure de Moiré EmptyLun 19 Nov - 22:12 par Papydall-Admin

» Useful Dog
Moiré -  Figure de Moiré EmptyVen 6 Avr - 14:25 par Papydall-Admin

Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031

Calendrier Calendrier

Le Deal du moment :
TCL C74 Series 55C743 – TV 55” 4K QLED 144 ...
Voir le deal
499 €

Figure de Moiré

Aller en bas

Moiré -  Figure de Moiré Empty Figure de Moiré

Message par Papydall-Admin 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 ============================================================================
Papydall-Admin
Papydall-Admin
Admin

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

https://papydall-panoramic.forumarabia.com

Revenir en haut Aller en bas

Revenir en haut


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