FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» 3D_LINE How to ?
par papydall Aujourd'hui à 6:51

» mise a jour calculatrice
par joeeee2017 Hier à 23:00

» supprimé
par joeeee2017 Dim 15 Oct 2017 - 20:02

» calculatrice avec touches movibles
par joeeee2017 Dim 15 Oct 2017 - 1:11

» Convertisseur de base 10 de 2 à 36
par gigi75 Sam 14 Oct 2017 - 21:54

» CORTANA
par gigi75 Sam 14 Oct 2017 - 16:32

» supprimé
par Jean Claude Sam 14 Oct 2017 - 12:30

» Compilateur FBPano
par jean_debord Jeu 12 Oct 2017 - 9:53

» KGF_dll - nouvelles versions
par Klaus Mar 10 Oct 2017 - 18:49

» à propos de Panoramic_Editor [Résolu]
par Klaus Mar 10 Oct 2017 - 3:19

» Un petit "coucou" à tous les Panoramiciens !
par Jack Ven 6 Oct 2017 - 10:24

» Pourquoi le compilateur stagne
par mindstorm Mer 4 Oct 2017 - 20:38

» Panoramic ?
par Marc37 Mer 4 Oct 2017 - 0:39

» Premiers pas avec Arduino
par Marc37 Mer 4 Oct 2017 - 0:29

» Mise à jour PANOMAND
par jean_debord Mar 26 Sep 2017 - 11:33

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Octobre 2017
LunMarMerJeuVenSamDim
      1
2345678
9101112131415
16171819202122
23242526272829
3031     
CalendrierCalendrier

Partagez | 
 

 Concours de Sapin de Noël

Voir le sujet précédent Voir le sujet suivant Aller en bas 
Aller à la page : Précédent  1, 2
AuteurMessage
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Concours de Sapin de Noël   Sam 19 Déc 2015 - 12:47

Salut Bignono.
Ce n’est pas pour rien que tu es BIG !
Bravo.

Un léger ajout pour apporter un simulant de neige.
Ce n’est pas spectaculaire, mais ça pourrait donner des idées à plus compétant que moi.


Code:

dim i,x,y
full_space 0 : scene3d 1 : full_space 1 : color 1,40,10,40
cam_position 0,6,13:point_position 0,6,12:light_position 0,0,12

' neige
3d_plane 3
3d_load_texture 3,"c:\users\acer\desktop\neige11.jpg" :' à ajuster
3d_scale 3,35,35,35 : 3d_rotate 3,90,0,0 : 3d_position 3,0,0,2
3d_u_tile 3,15 : 3d_v_tile 3,15

' tronc
3d_cylinder 4,10,0.5,0.1 : 3d_position 4,0,5,0 :3d_color 4,128,64,0

' cone 1 sommet
3d_cone 5,3,1.5 : 3d_position 5,0,9,0 : 3d_color 5,0,100,0

' cone 2 sous-sommet
3d_cone 6,3,2  : 3d_position 6,0,8,0 : 3d_color 6,0,100,0

' cone 3 central
3d_cone 7,3,2.5 : 3d_position 7,0,7,0 : 3d_color 7,0,100,0

' cone 4 avant dernier
3d_cone 8,3,3  : 3d_position 8,0,6,0 : 3d_color 8,0,100,0

' cone 5 bas
3d_cone 9,3,3.5 : 3d_position 9,0,5,0 : 3d_color 9,0,100,0

' boule 1
3d_sphere 10,0.2 : 3d_position 10,0,4.4,2.8 : 3d_color 10,95,0,0

' boule 2
3d_sphere 11,0.2 : 3d_position 11,2,5.5,1.5 : 3d_color 11,100,50,0

' boule 3
3d_sphere 12,0.3 : 3d_position 12,-1.8,6.5,1 : 3d_color 12,0,0,100

' boule 4
3d_sphere 13,0.1 :3d_position 13,-2,4.4,2 : 3d_color 13,75,0,0

' boule 5
3d_sphere 14,0.3 : 3d_position 14,1,6.5,2 : 3d_color 14,85,0,195

' boule 6
3d_sphere 15,0.4 : 3d_position 15,-0.5,7.5,1.5 : 3d_color 15,0,150,120

' boule 7
3d_sphere 16,0.2 : 3d_position 16,-1,5.4,2 : 3d_color 16,200,170,0

' J 1
3d_text 17,"J"
3d_rotate 17,0,33,0 : 3d_position 17,0.4,5,2.6 : 3d_color 17,150,0,0

' J 2
3d_text 18,"J"
3d_rotate 18,0,150,0 : 3d_position 18,-1,2.93,3.2 : 3d_color 18,110,0,150

' J 3
3d_text 19,"JJ"
3d_rotate 19,0,336,0 : 3d_position 19,2,2,-1 : 3d_color 19,0,120,240

' pointe
3d_cone 20,1,0.1 : 3d_position 20,0,10.8,0 : 3d_color 20,70,0,0

' boule sur la pointe
3d_sphere 21,0.5 : 3d_position 21,0,11.2,0 : 3d_color 21,70,0,0

' JOYEUX NOËL
3d_text 22,"JOYEUX NOËL ET BONNE ANNÉE À TOUS !!!"
3d_scale 22,2,2,2 : 3d_position 22,-17,18,0

for i = 23 to 999 : 3d_sphere i,rnd(1)/8 : next i

while scancode<>27
  pause 100 : 3d_color 22,rnd(250),rnd(250),rnd(250)
  3d_transparent 22,rnd(200)
  for i = 23 to 999
      x = -40+rnd(80) : y = 2+rnd(13)
      3d_position i,x,y,2 : 3d_color i,255,255,255
  next i

end_while
terminate
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
Jean Claude

avatar

Nombre de messages : 5031
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Concours de Sapin de Noël   Sam 19 Déc 2015 - 13:47

Bravo BigNono, et merci pour ta participation.

Voila un sapin qui va plaire aux petits, car on est dans des graphisme de dessins animés.  santa

Je n'aurai sans doute pas le temps, d'y ajouter un père Noël et un bonhomme de neige, car je me prépare à partir.
Mais je suis sûre que certains vont s'y attelé.  Very Happy

santa  santa  santa  santa  santa  santa  santa  santa

PS: La modif de Papydall est sympa.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
papydall

avatar

Nombre de messages : 5537
Age : 67
Localisation : Moknine (Tunisie) Entre la chaise et le clavier
Date d'inscription : 03/03/2012

MessageSujet: Re: Concours de Sapin de Noël   Sam 19 Déc 2015 - 14:12

Bin, moi également, je vais partir.
J’attends très tard dans la soirée l’arrivée de ma fille et de mes petits-enfants qui résident en Italie.
Ils viennent passer les vacances ici en Tunisie sous le soleil tunisien, loin de la neige. sunny

A bientôt, et passez des bonnes fêtes!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://papydall-panoramic.forumarabia.com/
jjn4

avatar

Nombre de messages : 1601
Date d'inscription : 13/09/2009

MessageSujet: +++   Jeu 31 Déc 2015 - 17:55

C'est le 31, aussi je publie mon travail pour l'épreuve (+/- concours) de Jean-Claude :
En fait, j'en ai fait 2, tous deux avec des sapins de noël :
- un pour Noël
- et un autre pour le jour de l'an.

Oh, ce sont des petits programmes simples,
mais tout entier en pur panoramic, sans
aucun ajout de jpg ou de dll...
(ohé, il y a un petit peu de math aussi, quand même !)
Voyez vous-même :

Voici d'abord Noël :
Code:
rem ' Sapin de Noël 2015 par jjn4
   dim i , j , k
   dim w , x(200) , y(200) , z
   label arret
  
rem initialisation
   z=1
   for i=1 to 200
      z=0-z
      y(i)=rnd(620)
      x(i)=rnd(y(i)/3+1)*z+300
   next i
  
rem form0
   left 0,400
   width 0,600
   height 0,780
   caption 0,"SAPIN DE NOËL - par jjn4"
  
picture 50
   full_space 50
   color 50,0,0,0
   2d_target_is 50
   2d_pen_color 255,255,255
   for i=1 to 100
      2d_point int(rnd(600)),int(rnd(600))
   next i
   sapin()

panel 80
   left 80,150
   top 80,650
   width 80,300
   height 80,70
   color 80,150,60,20
   font_bold 80
   font_size 80,14
   caption 80,"ATTENDEZ"
   on_click 80,arret
  
rem Dessin des cadeaux
   alpha 90
      left 90,20
      top 90,630
      font_name 90,"Webdings"
      font_size 90,80
      color 90,0,0,0
      font_color 90,250,20,230
      caption 90,chr$(101)
   alpha 95
      left 95,470
      top 95,645
      font_name 95,"Webdings"
      font_size 95,65
      color 95,0,0,0
      font_color 95,15,165,100
      caption 95,chr$(101)

rem Dessin des étoiles
   alpha 100
      left 100,210
      top 100,90
      font_name 100,"Wingdings 2"
      color 100,0,0,0
      font_color 100,255,255,255
      caption 100,chr$(237)
   alpha 110
      left 110,540
      top 110,40
      font_name 110,"Wingdings 2"
      color 110,0,0,0
      font_color 110,255,255,255
      caption 110,chr$(239)
   alpha 120
      left 120,480
      top 120,300
      font_name 120,"Wingdings 2"
      color 120,0,0,0
      font_color 120,255,255,255
      caption 120,chr$(233)
   alpha 130
      left 130,20
      top 130,200
      font_name 130,"Wingdings 2"
      color 130,0,0,0
      font_color 130,255,255,255
      caption 130,chr$(235)
      display

rem Dessin des loupiotes colorées
   for k=1 to 100
      for j=1 to 200
         couleurs()
      next j
      etoiles()
      w=w+1
      if w=1
         chant()
         caption 80,"Cliquez ici pour arrêter"
      else
         wait 250
      end_if
   next k
   caption 80,"Programme arrêté"
   Caption 0,"   BONNES FÊTES À TOUS"
  
end

arret:
   i=360
   j=200
   k=100
   beep
return

sub chant()
   midi_on
      midi_volume 127
      midi_instrument 40
      midi_play 48,7
      midi_play 53,6
      midi_play 53,8
      midi_play 53,9
      pause 400
      etoiles()
      midi_play 55,7
      midi_play 57,6
      midi_play 57,8
      midi_play 57,9
      pause 400
      etoiles()
      midi_play 53,9
      midi_play 55,9
      midi_play 57,9
      midi_play 58,7
      midi_play 52,7
      midi_play 55,5
      midi_play 53,7
      etoiles()
      display
   midi_off
end_sub

sub couleurs() : rem Allumage des loupiotes
   2d_pen_color rnd(255),rnd(255),rnd(255)
   for i=10 to 360 step 10
      2d_line x(j),y(j),x(j)+10*sin(i),y(j)+10*cos(i)
   next i
end_sub

sub etoiles()
   for i=100 to 130 step 10
      font_size i,8
   next i
   font_size 90+(int(rnd(4))+1)*10,12
   display
end_sub

sub sapin() : rem Dessin du sapin
   2d_pen_color 50,30,0
   2d_poly_from 300,1
   2d_poly_to 290,650
   2d_poly_to 310,650
   2d_poly_to 300,1
   2d_flood 300,580,50,30,0
   2d_pen_width 3
   2d_pen_color 50,30,0
   for i=70 to 620 step 50
      2d_line 200+100-i/3,i-9,300,i
      2d_line 300,i,300+i/3,i-9
   next i
   display
   2d_pen_width 1
   2d_pen_color 7,70,10
   for i=5 to 630 step 4
      for j=300-i/3 to 300+i/3 step 4
         2d_line j-10,i-20+rnd(21),j+10,i-20+rnd(21)
      next j
   next i
end_sub

Et maintenant Nouvel-an :
Code:
rem ' Bons voeux pour le nouvel an 2016 par jjn4
   dim i , j , k
   dim b , h , w
   dim x(20) , y(20)
   dim a$
   a$="Bons voeux pour le nouvel an 2016 de la part de jjn4"
  
rem initialisation
   for i=1 to 20
      x(i)=rnd(560)+12
      y(i)=rnd(300)+2
   next i

rem form0
   left 0,400
   top 0,100
   width 0,600
   height 0,380
   caption 0,"Pour arrêter, pressez la touche ENTRÉE"

form 20
   left 20,400
   top 20,440
   width 20,600
   height 20,130
   to_foreground 0
  
alpha 30
   parent 30,20
   left 30,40
   top 30,20
   font_size 30,40
   font_name 30,"Arial"
   caption 30,"MEILLEURS VOEUX"

picture 50
   full_space 50
   2d_target_is 50
   for i=1 to 440
      2d_pen_color int(i/5)+165,int(i/5)+165,int(i/5)+165
      2d_line 1,i,584,i
   next i
  
rem Dessin des sapins
   b=300 : h=50 : w=150
   sapin()
   b=270 : h=60 : w=250
   sapin()
   b=220 : h=75 : w=350
   sapin()
   b=330 : h=25 : w=450
   sapin()

rem Sauvegarde du tableau
   file_save 50,"An-2016-Yqxwhk-478223357.bmp"

rem Action
   2d_pen_color 255,255,255
   for k=1 to 1000
      for j=1 to 20
         neige()
         y(j)=y(j)+10
         if y(j)>320
            y(j)=2
            x(j)=int(rnd(560))+12
         end_if
      next j
      pause 40
      tomber()
      key()
   next k
   file_delete "An-2016-Yqxwhk-478223357.bmp"
   caption 0,a$
   beep
  
end

sub key()
   if scancode=13
      k=1000
      j=20
   end_if
end_sub

sub neige()
   for i=10 to 360 step 10
      2d_line x(j),y(j),x(j)+10*sin(i),y(j)+10*cos(i)
   next i
   display
end_sub

sub sapin() : rem Dessin de sapin
   2d_pen_color 50,30,0
   for i=h to b
      2d_line w-((b-h)/(b+h-i)),i,w+((b-h)/(b+h-i)),i
   next i
   display
   2d_pen_color 7,70,10
   for i=h+10 to b-10 step 4
      for j=w-i/5 to w+i/5 step 4
         2d_line j-10,i-20+rnd(21),j+10,i-20+rnd(21)
      next j
   next i
   2d_pen_color 255,255,255
   for i=h+10 to b-10 step 6
      for j=w-i/5 to w+i/5 step 6
         2d_line j-10,i-20+rnd(21),j+10,i-20+rnd(21)
      next j
   next i
end_sub

sub tomber()
   file_load 50,"An-2016-Yqxwhk-478223357.bmp"
end_sub

Vous avez vu toutes ces étoiles de David ?
Il y en a plein, sur Mars...
Very Happy alien Laughing
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://jjn4.e-monsite.com
JL35



Nombre de messages : 5951
Localisation : 77
Date d'inscription : 29/11/2007

MessageSujet: Re: Concours de Sapin de Noël   Jeu 31 Déc 2015 - 18:35

Pas mal ami jj, j'aime bien le deuxième, avec la neige, c'est dépaysant !
Parce qu'en ce moment, la neige, on n'en voit pas beaucoup la couleur (si je puis dire Very Happy )

Bon réveillon à toi... et à tous les autres !
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Jean Claude

avatar

Nombre de messages : 5031
Age : 63
Localisation : 83 Var
Date d'inscription : 07/05/2009

MessageSujet: Re: Concours de Sapin de Noël   Jeu 31 Déc 2015 - 19:35

Bravo JJN4,

Le sapin est très réussi, on dirait un vrai... santa

Le carte de vœux est jolie.

Meilleurs Vœux à tous tes copains martiens.. alien alien alien alien alien alien alien

santa santa santa santa santa santa santa
lol!
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Contenu sponsorisé




MessageSujet: Re: Concours de Sapin de Noël   

Revenir en haut Aller en bas
 
Concours de Sapin de Noël
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 2 sur 2Aller à la page : Précédent  1, 2
 Sujets similaires
-
» tisane sapino gratuite
» Bouygues Telecom se prépare pour Noel... Une Galaxy Tab 3 sous le sapin ?
» Royaume sacré du Flood (aa)
» Poupée Sapin ???
» TUTORIEL/SAPIN ANIME

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: PANORAMIC :: Les inutilitaires-
Sauter vers: