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
 Effet Dopler EmptyLun 1 Jan - 0:25 par Papydall-Admin

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

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

» Planets of the Solar System : Tilts and Spins
 Effet Dopler EmptyLun 20 Mar - 15:43 par Papydall-Admin

» Bonne Année 2023
 Effet Dopler EmptySam 31 Déc - 1:39 par Papydall-Admin

» Fractals - Mandelbrot
 Effet Dopler EmptyVen 21 Aoû - 22:51 par Papydall-Admin

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

» Balises {USER...}
 Effet Dopler EmptyLun 19 Nov - 22:12 par Papydall-Admin

» Useful Dog
 Effet Dopler EmptyVen 6 Avr - 14:25 par Papydall-Admin

Mars 2024
LunMarMerJeuVenSamDim
    123
45678910
11121314151617
18192021222324
25262728293031

Calendrier Calendrier

-23%
Le deal à ne pas rater :
EVGA SuperNOVA 650 G6 – Alimentation PC 100% modulaire 650W, 80+ ...
77.91 € 100.91 €
Voir le deal

Effet Dopler

Aller en bas

 Effet Dopler Empty Effet Dopler

Message par Papydall-Admin Jeu 13 Oct - 14:44

Code:

rem ============================================================================
rem         Effet Dopler
rem         Par Papydall
rem ============================================================================

dim x,y,a,b,n
width 0,screen_x/2 : height 0,width(0)
top 0,(screen_y - height(0))/2 : left 0, (screen_x - width(0))/2
x = 200 : y = height(0)/2
picture 10 : width 10 ,width(0) : height 10,height(0): hide 10 : 2d_target_is 10
font_bold 10 : font_color 10,255,0,0 : font_size 10,20 : font_name 10,"comic sans ms"
print_target_is 10
print_locate 50,50 : print "EFFET DOPLER ......... <CLICK> POUR ARRETER"
image 20
' ==============================================================================
repeat
   for b = 1 to 10
       x = x + 1 : a = .5
       for n = 1 to 255 step 5
           a = a * -1 + .5
           2d_pen_color 255-a*n,255-a*n,255-a*n : 2d_fill_color 255-a*n,255-a*n,255-a*n
           2d_circle x + (n-b)*.5-255, y, 255-(n-b)
       next n
       copy_image()
   next b
   if x > screen_x -350 then x = 200
until scancode <> 0
terminate
end
rem ============================================================================
SUB Copy_Image()
    2d_image_copy 20,left(10),top(10),width(10),height(10)
    2d_target_is 0: 2d_image_paste 20,left(10),top(10)
    2d_target_is 10
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