Concours de Sapin de Noël

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

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

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