| Mai 2024 | | Lun | Mar | Mer | Jeu | Ven | Sam | Dim |
|---|
| | | 1 | 2 | 3 | 4 | 5 | | 6 | 7 | 8 | 9 | 10 | 11 | 12 | | 13 | 14 | 15 | 16 | 17 | 18 | 19 | | 20 | 21 | 22 | 23 | 24 | 25 | 26 | | 27 | 28 | 29 | 30 | 31 | | |  Calendrier |
|
| | | Joyeuses Fêtes de fin d'année ! |  |
| | | Auteur | Message |
|---|
Marc
Nombre de messages : 2389
Age : 63
Localisation : TOURS (37)
Date d'inscription : 17/03/2014
| | Sujet: Joyeuses Fêtes de fin d'année ! Ven 23 Déc 2022 - 11:47 | |
| | |
| | | | jjn4
Nombre de messages : 2692
Date d'inscription : 13/09/2009
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Ven 23 Déc 2022 - 15:53 | |
| Ouh là, que de cadeaux !  Je me joins à toi pour souhaiter la même chose à tous !  Et comme la tendance est à l'économie dans tout ce qui consomme de d'énergie, je le fais en miniature.   | |
| | | | JL35
Nombre de messages : 7095
Localisation : 77
Date d'inscription : 29/11/2007
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Ven 23 Déc 2022 - 16:31 | |
| T'as raison, économies, moi en tellement petit que c'est invisible ! Mais Bonnes Fêtes à tous ! | |
| | | | Jack
Admin
Nombre de messages : 2386
Date d'inscription : 28/05/2007
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Ven 23 Déc 2022 - 20:47 | |
| Joyeuses fêtes de fin d'année à tous ! _________________  username : panoramic@jack-panoramic password : panoramic123 | |
| | | | papydall
Nombre de messages : 7000
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Sam 24 Déc 2022 - 1:09 | |
| Joyeurs fêtes à tous! Ok pour l'économie de l'énergie, mais pas pour le code en Panoramic Voici des lignes DATA qui n'en finissent pas pour dessiner simplement ceci : - Code:
-
rem ============================================================================
dim x,y,r,g,b
width 0,300 : height 0,100 : color 0,255,255,255
caption 0,"Bonne fête"
picture 10 : width 10,25 : height 10,30 : 2d_target_is 10
left 10,(width(0) - width(10))/2 : top 10,(height_client(0)-height(10))/2
for x = 0 to 21
for y = 0 to 24
read r : read g : read b
2d_pen_color r,g,b : 2d_point x,y
next y
next x
end
rem ============================================================================
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,0
data 255,204,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,255
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,204,0
data 255,204,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,255
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 51,51,51
data 0,0,0
data 255,255,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 255,255,255
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 0,0,0
data 255,255,255
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 0,0,0
data 255,255,255
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 255,255,255
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,255,0
data 255,255,0
data 0,0,0
data 255,255,255
data 0,0,0
data 255,204,0
data 255,153,0
data 51,51,51
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 0,0,0
data 0,0,0
data 255,204,0
data 255,204,0
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,204,0
data 255,255,0
data 255,255,0
data 255,255,0
data 255,255,0
data 51,51,51
data 0,0,0
data 255,204,0
data 255,204,0
data 255,153,0
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,153,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,153,0
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 255,153,0
data 255,204,0
data 255,204,0
data 255,204,0
data 255,153,0
data 51,51,51
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,0,0
data 255,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 51,51,51
data 51,51,51
data 51,51,51
data 51,51,51
data 51,51,51
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 0,0,0
data 0,0,0
data 0,0,0
data 0,0,0
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
data 255,255,255
rem ============================================================================
   
Dernière édition par papydall le Sam 24 Déc 2022 - 1:22, édité 1 fois | |
| | | | papydall
Nombre de messages : 7000
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Sam 24 Déc 2022 - 1:10 | |
| - Code:
-
rem ============================================================================
dim a(2),b(2),c(2),d(2),e(2),f(2),p(2)
dim x,y,j,pk,newx,newy,n ,k
width 0,800 : height 0,600
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
print_target_is 10
for j = 1 to 2
read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j
caption 0,"Tracé en cours ... <ESC> pour arrêter ..."
for n = 1 to 20000
pk = rnd(1)
if pk <= p(1) then k = 1 : else : k = 2
newx = a(k)*x + b(k)*y + e(k)
newy = c(k)*x + d(k)*y + f(k)
x = newx : y = newy
if n > 10
2d_pen_color mod(n/2,255),mod(n/3,255),mod(n/4,255)
2d_point 400+x*300,270-y*220 : 2d_point 400-x*300,270-y*220
2d_point 400+x*300,270+y*220 : 2d_point 400-x*300,270+y*220
end_if
display
next n
2d_fill_color 0,0,0
repeat
font_color 10, 255,255,000 : font_size 10,34
print_locate 280,250 : print "Joyeuse fête" : pause 1000
font_color 10, 255,000,000 : font_size 10,34
print_locate 280,250 : print "Joyeuse fête" : pause 1000
until scancode = 27
caption 0,"terminé"
rem ============================================================================
data .917, -.224, .332, .867, .159, -.029, .8
data -.178, -.153, .143, -.191, .96 , .18, 1
rem ============================================================================
 | |
| | | | jean_debord
Nombre de messages : 1250
Age : 69
Localisation : Limoges
Date d'inscription : 21/09/2008
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Dim 25 Déc 2022 - 8:38 | |
| Joyeux Noël à tous ! Très jolies ces petites icônes "arbresques" de papydall ! Je les garde pour ma collection  | |
| | | | Minibug
Nombre de messages : 4566
Age : 57
Localisation : Vienne (86)
Date d'inscription : 09/02/2012
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Dim 25 Déc 2022 - 11:32 | |
| Bonjour et joyeux noël à toutes et tous ! Et comme on est dans les économies et le minimalisme voila un petit code façon année 80... - Spoiler:
- Code:
-
REM Sapin de noel par Minibug - decembre 2022
DIM h% , e% , b% , f% , g% : b%=4 : f%=1
WIDTH 0,600 : HEIGHT 0,600
COLOR 0,0,0,0 : FONT_COLOR 0,255,255,255
PRINT : PRINT : PRINT
FOR h%=1 TO 5
FOR e%=1 TO b%
g%=(45-f%)
PRINT STRING$(g%," ")+STRING$(f%,"*")
PAUSE 10
f%=f%+2
PAUSE 20
NEXT e%
b%=b%+1
f%=f%-4
PAUSE 100
NEXT h%
FOR h%=1 TO 5
PRINT STRING$(38," ")+STRING$(8,"I")
NEXT h%
PAUSE 200 : PRINT_LOCATE 350,200 : PRINT "JOYEUX NOEL"
PAUSE 200 : PRINT_LOCATE 340,300 : PRINT "A TOUTES ET TOUS !"
| |
| | | | papydall
Nombre de messages : 7000
Age : 73
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! Dim 25 Déc 2022 - 17:27 | |
| - jean_debord a écrit:
- Très jolies ces petites icônes "arbresques" de papydall ! Je les garde pour ma collection
En fait c'est un IFS (Iterate Function System) ou système de fonctions itérées. En voici un autre. C'est le dragon de Levy - Code:
-
rem ============================================================================
dim a(2),b(2),c(2),d(2),e(2),f(2),p(2)
dim x,y,j,pk,newx,newy,n ,k
dim xc,yc,zoom
width 0,800 : height 0,600
picture 10 : full_space 10 : 2d_target_is 10 : color 10,0,0,0
print_target_is 10
xc = width_client(10)/2 : yc = height_client(10)/2 : zoom = 100
for j = 1 to 2
read a(j) : read b(j) : read c(j) : read d(j) : read e(j) : read f(j) : read p(j)
next j
caption 0,"Tracé en cours ... <ESC> pour arrêter ..."
for n = 1 to 20000
pk = rnd(1)
if pk <= p(1) then k = 1 : 2d_pen_color 255,0,0 : else : k = 2 : 2d_pen_color 255,255,0
newx = a(k)*x + b(k)*y + e(k)
newy = c(k)*x + d(k)*y + f(k)
x = newx : y = newy
if n > 10
2d_point xc+x*zoom,zoom*(1-y)+50 : ' Le dragon de Levy
2d_point xc+x*zoom,yc+zoom*(1+y)+50 : ' et son symétrique horizontal
end_if
display
next n
2d_fill_color 0,0,0
repeat
font_color 10, 255,255,000 : font_size 10,34
print_locate 340,180 : print "Joyeuse"
print_locate 370,330 : print "fête" : pause 1000
font_color 10, 255,000,000 : font_size 10,34
print_locate 340,180 : print "Joyeuse"
print_locate 370,330 : print "fête" : pause 1000
until scancode = 27
caption 0,"terminé"
rem ============================================================================
' Levy Dragon IFS
data .5, -.5, .5, .5, -1, 0, .5
data .5, .5, -.5, .5, 1, 0, .5
rem ============================================================================
 | |
| | | | Contenu sponsorisé
| | Sujet: Re: Joyeuses Fêtes de fin d'année ! | |
| |
| | | | | | Joyeuses Fêtes de fin d'année ! | |
|
Sujets similaires | |
|
| | Permission de ce forum: | Vous ne pouvez pas répondre aux sujets dans ce forum
| |
| |
| |
