Joueuw Noël à tous !

width 0,1576
height 0,520
dim px,py,i

alpha 1
   font_bold 1
   font_underline 1
   caption 1,"de la part de bignono"
   left 1,width(0)-width(1)-20
   top 1,height(0)-height(1)-40
  
alpha 2
   font_bold 2
   font_underline 2
   caption 2," corrigé par papydall "
   left 2,width(0)-width(1)-20
   top 2,height(0)-height(1)-40
   hide 2

for i=120 to 250 step 5
   color 0,i,i,i

   px=120:py=0
   N(0,000,255,255,10,50+px,70+py)
   px=px+120
   O(0,000,055,255,10,50+px,70+py)
   px=px+120
   Y(0,000,255,055,10,50+px,70+py)
   px=px+120
   E(0,255,055,255,10,50+px,70+py)
   px=px+120
   U(0,255,255,055,10,50+px,70+py)
   px=px+120
   X(0,255,055,055,10,50+px,70+py)

   px=px+240
   J(0,055,255,055,10,50+px,70+py)
   px=px+120
   O(0,055,055,255,10,50+px,70+py)
   px=px+120
   E(0,000,155,155,10,50+px,70+py)
   px=px+120
   L(0,000,255,255,10,50+px,70+py)

   px=660:py=py+160
   E(0,000,000,000,10,50+px,70+py)
   px=px+120
   T(0,055,055,055,10,50+px,70+py)

   px=120:py=py+160
   N(0,000,255,255,10,50+px,70+py)
   px=px+120
   O(0,000,155,155,10,50+px,70+py)
   px=px+120
   N(0,055,055,255,10,50+px,70+py)
   px=px+120
   N(0,055,255,055,10,50+px,70+py)
   px=px+120
   E(0,255,055,055,10,50+px,70+py)

   px=px+240
   A(0,255,255,055,10,50+px,70+py)
   px=px+120
   B(0,255,055,255,10,50+px,70+py)
   px=px+120
   B(0,000,255,055,10,50+px,70+py)
   px=px+120
   E(0,000,055,255,10,50+px,70+py)
   px=px+120
   E(0,000,255,255,10,50+px,70+py)

   pause 250

   px=120:py=0
   N(0,255,000,000,10,50+px,70+py)
   px=px+120
   O(0,255,200,000,10,50+px,70+py)
   px=px+120
   Y(0,255,000,200,10,50+px,70+py)
   px=px+120
   E(0,000,200,000,10,50+px,70+py)
   px=px+120
   U(0,000,000,200,10,50+px,70+py)
   px=px+120
   X(0,000,200,200,10,50+px,70+py)

   px=px+240
   J(0,200,000,200,10,50+px,70+py)
   px=px+120
   O(0,200,200,000,10,50+px,70+py)
   px=px+120
   E(0,255,100,100,10,50+px,70+py)
   px=px+120
   L(0,255,000,000,10,50+px,70+py)

   px=660:py=py+160
   E(0,255,255,255,10,50+px,70+py)
   px=px+120
   T(0,200,200,200,10,50+px,70+py)

   px=120:py=py+160
   N(0,255,000,000,10,50+px,70+py)
   px=px+120
   O(0,255,100,100,10,50+px,70+py)
   px=px+120
   N(0,200,200,000,10,50+px,70+py)
   px=px+120
   N(0,200,000,200,10,50+px,70+py)
   px=px+120
   E(0,000,200,200,10,50+px,70+py)

   px=px+240
   A(0,000,000,200,10,50+px,70+py)
   px=px+120
   B(0,000,200,000,10,50+px,70+py)
   px=px+120
   B(0,255,000,200,10,50+px,70+py)
   px=px+120
   E(0,255,200,000,10,50+px,70+py)
   px=px+120
   E(0,255,000,000,10,50+px,70+py)
   pause 250

next i
 wait 1000 : show 2

for i=120 to 250 step 5
   color 0,i,i,i

   px=120:py=0
   J(0,000,255,255,10,50+px,70+py)
   px=px+120
   O(0,000,055,255,10,50+px,70+py)
   px=px+120
   Y(0,000,255,055,10,50+px,70+py)
   px=px+120
   E(0,255,055,255,10,50+px,70+py)
   px=px+120
   U(0,255,255,055,10,50+px,70+py)
   px=px+120
   X(0,255,055,055,10,50+px,70+py)

   px=px+240
   N(0,055,255,055,10,50+px,70+py)
   px=px+120
   O(0,055,055,255,10,50+px,70+py)
   px=px+120
   E(0,000,155,155,10,50+px,70+py)
   px=px+120
   L(0,000,255,255,10,50+px,70+py)

   px=660:py=py+160
   E(0,000,000,000,10,50+px,70+py)
   px=px+120
   T(0,055,055,055,10,50+px,70+py)

   px=120:py=py+160
   B(0,000,255,255,10,50+px,70+py)
   px=px+120
   O(0,000,155,155,10,50+px,70+py)
   px=px+120
   N(0,055,055,255,10,50+px,70+py)
   px=px+120
   N(0,055,255,055,10,50+px,70+py)
   px=px+120
   E(0,255,055,055,10,50+px,70+py)

   px=px+240
   A(0,255,255,055,10,50+px,70+py)
   px=px+120
   N(0,255,055,255,10,50+px,70+py)
   px=px+120
   N(0,000,255,055,10,50+px,70+py)
   px=px+120
   E(0,000,055,255,10,50+px,70+py)
   px=px+120
   E(0,000,255,255,10,50+px,70+py)

   pause 250

   px=120:py=0
   J(0,255,000,000,10,50+px,70+py)
   px=px+120
   O(0,255,200,000,10,50+px,70+py)
   px=px+120
   Y(0,255,000,200,10,50+px,70+py)
   px=px+120
   E(0,000,200,000,10,50+px,70+py)
   px=px+120
   U(0,000,000,200,10,50+px,70+py)
   px=px+120
   X(0,000,200,200,10,50+px,70+py)

   px=px+240
   N(0,200,000,200,10,50+px,70+py)
   px=px+120
   O(0,200,200,000,10,50+px,70+py)
   px=px+120
   E(0,255,100,100,10,50+px,70+py)
   px=px+120
   L(0,255,000,000,10,50+px,70+py)

   px=660:py=py+160
   E(0,255,255,255,10,50+px,70+py)
   px=px+120
   T(0,200,200,200,10,50+px,70+py)

   px=120:py=py+160
   B(0,255,000,000,10,50+px,70+py)
   px=px+120
   O(0,255,100,100,10,50+px,70+py)
   px=px+120
   N(0,200,200,000,10,50+px,70+py)
   px=px+120
   N(0,200,000,200,10,50+px,70+py)
   px=px+120
   E(0,000,200,200,10,50+px,70+py)

   px=px+240
   A(0,000,000,200,10,50+px,70+py)
   px=px+120
   N(0,000,200,000,10,50+px,70+py)
   px=px+120
   N(0,255,000,200,10,50+px,70+py)
   px=px+120
   E(0,255,200,000,10,50+px,70+py)
   px=px+120
   E(0,255,000,000,10,50+px,70+py)
   pause 250

next i

end

sub A(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x+r,y+r,r
   2d_circle x-20+r,y+r,r
   2d_circle x+20+r,y+r,r
   2d_circle x+r,y-60+r,r
   2d_circle x-20+r,y-60+r,r
   2d_circle x+20+r,y-60+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x+40+r,y+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x-30+r,y-40+r,r
   2d_circle x+30+r,y-40+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x+40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x+40+r,y+60+r,r
end_sub

sub B(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x-20+r,y-60+r,r
   2d_circle x-20+r,y+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y-60+r,r
   2d_circle x+r,y+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y-60+r,r
   2d_circle x+20+r,y+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+20+r,r
end_sub

sub T(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-20+r,y-60+r,r
   2d_circle x+r,y-60+r,r
   2d_circle x+r,y-40+r,r
   2d_circle x+r,y-20+r,r
   2d_circle x+r,y+r,r
   2d_circle x+r,y+20+r,r
   2d_circle x+r,y+40+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y-60+r,r
   2d_circle x+40+r,y-60+r,r
end_sub

sub Y(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-20+r,y-20+r,r
   2d_circle x+r,y+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+20+r,y-20+r,r
   2d_circle x+r,y+20+r,r
   2d_circle x+r,y+40+r,r
   2d_circle x+r,y+60+r,r
end_sub

sub X(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-20+r,y-20+r,r
   2d_circle x+r,y+r,r
   2d_circle x-20+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+20+r,y-20+r,r
   2d_circle x+20+r,y+20+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+60+r,r
end_sub

sub U(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y-60+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x+40+r,y+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+20+r,r
end_sub


sub O(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-20+r,y-60+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y-60+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y-60+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x+40+r,y+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+20+r,r
end_sub

sub N(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x-20+r,y-20+r,r
   2d_circle x+r,y+r,r
   2d_circle x+20+r,y+20+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x+40+r,y+r,r
   2d_circle x+40+r,y+20+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+60+r,r
end_sub

sub L(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y+60+r,r
end_sub

sub J(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y-40+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+40+r,y-20+r,r
   2d_circle x+40+r,y+r,r
   2d_circle x+40+r,y+40+r,r
   2d_circle x+40+r,y+20+r,r
end_sub

sub E(tgt,cr,cv,cb,r,x,y)
   2d_target_is tgt
   2d_fill_color cr,cv,cb
   2d_circle x-40+r,y-60+r,r
   2d_circle x-40+r,y-40+r,r
   2d_circle x-40+r,y-20+r,r
   2d_circle x-40+r,y+r,r
   2d_circle x-40+r,y+20+r,r
   2d_circle x-40+r,y+40+r,r
   2d_circle x-40+r,y+60+r,r
   2d_circle x-20+r,y-60+r,r
   2d_circle x-20+r,y+r,r
   2d_circle x-20+r,y+60+r,r
   2d_circle x+r,y-60+r,r
   2d_circle x+r,y+r,r
   2d_circle x+r,y+60+r,r
   2d_circle x+20+r,y-60+r,r
   2d_circle x+20+r,y+r,r
   2d_circle x+20+r,y+60+r,r
   2d_circle x+40+r,y-60+r,r
   2d_circle x+40+r,y+60+r,r
end_sub

dim t$
full_space 0
alpha 1 : top 1, 50 : left 1,50 : font_size 1,16
color 1,150,0,0 :  font_color 1,255,255,0
caption 0,"Le Père Noël est mort !!!"

t$ = t$ + chr$(13) + chr$(13)
t$ = t$ + "     Il y a approximativement deux milliards d'enfants (moins de 18 ans) sur terre. "
t$ = t$ + "Cependant, comme le père Noël ne visite pas les enfants musulmans, hindous, juifs " + chr$(13)
t$ = t$ + "     ou bouddhistes (sauf peut-être au Japon), ceci réduit la charge de travail "
t$ = t$ + "pour la nuit de Noël à 15% du total, soit 378 millions." + chr$(13)
t$ = t$ + "     En comptant une moyenne de 3,5 enfants par foyer, cela revient à 108 millions de maisons."
t$ = t$ + chr$(13)
t$ = t$ + "     Le père Noël dispose d'environ 31 heures de labeur dans la nuit de Noël, "
t$ = t$ + "grâce aux différents fuseaux horaires et à la rotation de la terre, dans l'hypothèse " + chr$(13)
t$ = t$ + "     qu'il voyage d'est en ouest, ce qui parait d'ailleurs logique. "
t$ = t$ + "Cela revient à 967,7 visites par seconde." + chr$(13)
t$ = t$ + "     Cela signifie que pour chaque foyer chrétien contenant au moins un enfant sage, "
t$ = t$ + "le père Noël dispose d'environ un millième de seconde pour parquer le traîneau," + chr$(13)
t$ = t$ + "     sauter en dehors, dégringoler dans la cheminée, remplir les chaussettes, "
t$ = t$ + "distribuer le reste des présents au pied du sapin, déguster les quelques friandises " + chr$(13)
t$ = t$ + "     laissées à son intention, regrimper dans la cheminée, enfourcher "
t$ = t$ + "le traîneau et passer à la maison suivante."+ chr$(13)
t$ = t$ + "     En supposant que chacun de ces 108 millions d'arrêts sont distribués uniformément "
t$ = t$ + "à la surface de la terre (hypothèse que nous savons fausse, bien sûr, mais que" + chr$(13)
t$ = t$ + "     nous accepterons en première approximation), nous devrons compter sur environ "
t$ = t$ + "1,4 km par trajet." + chr$(13) + chr$(13)
t$ = t$ + "     Ceci signifie un voyage total de plus de 150 millions de km, sans compter "
t$ = t$ + "les détours pour ravitailler ou pisser." + chr$(13)
t$ = t$ + "     Le traîneau du père Noël se déplace donc à 1170 km/s (3000 fois la vitesse du son). "
t$ = t$ + "A titre de comparaison, le véhicule le plus rapide fabriqué par l'homme, " + chr$(13)
t$ = t$ + "     la sonde spatiale Ulysse, se traîne à 49 km/s." + chr$(13) + chr$(13)
t$ = t$ + "     600 000 tonnes voyageant à 1170 km/s créent une énorme resistance à l'air." + chr$(13)
t$ = t$ + "     Celle-ci ferait chauffer les rennes, au même titre qu'un engin spatial rentrant "
t$ = t$ + "dans l'atmosphère terrestre." + chr$(13)
t$ = t$ + "     Les deux rennes en tête de convoi absorberaient chacun une énergie calorifique "
t$ = t$ + "de 14 300 millions de joules/s." + chr$(13)
t$ = t$ + "     En bref, ils flamberaient quasi instantanément, exposant dangereusement les "
t$ = t$ + "deux rennes suivants." + chr$(13)
t$ = t$ + "     La meute entière de rennes serait complètement vaporisée en 4.26 millièmes de "
t$ = t$ + "secondes, soit juste le temps pour le père Noël d'atteindre la cinquième maison de  " + chr$(13)
t$ = t$ + "     sa tournée." + chr$(13) + chr$(13)
t$ = t$ + "     Pas de quoi s'en faire de toute façon, puisque le père Noël, en passant de "
t$ = t$ + "manière fulgurante de zéro à 1170 km/s en un millième de seconde, serait sujet" + chr$(13)
t$ = t$ + "     à des accélérations allant jusqu'à 17 500 G's." + chr$(13)
t$ = t$ + "     Un Père Noël de 125 kilos (ce qui semble ridiculement mince) se retrouverait "
t$ = t$ + "plaqué au fond du traîneau par une force de " + chr$(13)
t$ = t$ + "     2 157 507,5 kilos, écrabouillant instantanément ses os et ses organes et "
t$ = t$ + "le réduisant à un petit tas de chair rose et tremblotante." + chr$(13) + chr$(13)
t$ = t$ + "     C'est pourquoi, si le père Noël a existé, il est mort maintenant. " + chr$(13) + chr$(13)

caption 1, t$