Musique ? (et autres codes)

Tout sur le pou français

Modérateur : Politburo

Répondre
francoisp31
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2061
Inscription : 30 mai 2005 09:48
Localisation : Toulouse
Contact :

Musique ? (et autres codes)

Message par francoisp31 » 01 août 2006 17:00

Quelqu'un serai t il capable de donner une "partition" de cette chanson
histoire de donner un peu de vie à ce code pour HRX.

but integrer la musique avec la commande tone dans chaque phrase pour en plus rythmer l'affichage et pouvoir chanter les soirs de beuveries... :lol:

Code : Tout sélectionner

variable b
: song 
  99 b ! 

  10 0  DO     i cr
  LOOP

  BEGIN  b @ . 
         ." bouteilles de bierre sur un mur...." b @ .
         ." bouteilles de bierres..." cr
         ." si une bouteille tombe....combien est ce que ça fait ?" cr b @ 1- b
         ! cr 
  b @  1 = 
  UNTIL
  
10 0
  DO     i cr
  LOOP ; 

je connais rien à la musique alors pour trouver les bonnes valeurs de durée et de ton de chaque notes c'est déjà pas facile avec une partition mais alors sans.... c'est pire....

Quoi ? Mais non ! Tous mes mini programmes ne sont pas tous des chansons ou karaoke à boire !

bon ok y'en a eut pas mal et y'en aura encore mais quand même...
:oops:
Dernière édition par francoisp31 le 03 août 2006 18:31, édité 1 fois.
-----------
ssh debile@stupide.local "docker run -it docker/cowsay \"fortune | cowsay\" "

:ugeek:

francoisp31
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2061
Inscription : 30 mai 2005 09:48
Localisation : Toulouse
Contact :

Message par francoisp31 » 03 août 2006 12:56

merci Trolus

dans le bouquin que tu m'as fourni, il y a une explication qui permet de faire un petit calcul par rapport au frequences des notes et on peut en déduire une valeur pour s'approcher d'une note. avec "tone"
On a aussi une commande sound pour faire des signaux speciaux sonores...

je me suis fait un petit test tôt ce matin / tard dans la soirée question de point de vue avec le joystick ....

Code : Tout sélectionner

duration      axe vertical
signal        axe horizontal
fire          stop sons
potar         pour les sons spéciaux
barre d'espace pour stopper les sons speciaux
c'est con je sais mais pour tester c'est plus pratique que d'ecrire un bout de code pour chaque essai.
-----------
ssh debile@stupide.local "docker run -it docker/cowsay \"fortune | cowsay\" "

:ugeek:

Avatar de l’utilisateur
Pocket
Administrateur
Administrateur
Messages : 5295
Inscription : 24 mai 2002 16:55
Localisation : Toulouse
Contact :

Message par Pocket » 03 août 2006 14:51

Salut,
francoisp31 a écrit :merci Trolus
Mouarf le lapsus de la mort qui tue :twisted: ;)

A+
Pocket, voit tout, sait tout, lit l'avenir dans les entrailles d'une base phpBB ...
Image

francoisp31
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2061
Inscription : 30 mai 2005 09:48
Localisation : Toulouse
Contact :

Message par francoisp31 » 03 août 2006 15:22

:)

allez un autre bout de code :

Code : Tout sélectionner

4 base !
0000 0000
0000 0000
0000 0000
0000 0000
0000 0000
0000 0000
0000 0000
0000 0000
decimal 2 8 image black

4 base !
0001 1000
0001 1000
0011 1100
0021 1200
0022 2200
2222 2222
0001 1000
0003 3000
decimal 2 8 image fuse

4 base !
3000 0003
0003 0000
0000 0030
0303 0300
0003 3000
0000 0000
0000 0003
0300 3000
decimal 2 8 image fin

0 variable Y

/fin des mise en mémoire directes et debut du code 

: efface-ecran
  standard 
  page 
;

: dessine-sprite
   120 y @ 0 fuse
   2 delay  
   120 y @ 0 black 
;

: monte2-3lignes
  y @ 3 + dup !  / monte de 3 lignes (y=y+3)
;

: explosion 
  120 225 0 fin
  2 delay
  120 225 0 black
;

: comptarebour 
  4  begin dup . 1-  10 delay 5 spaces  dup 0 = until /compte à rebour
;

/le main code enfin peut commencer :

: decolage
  0 y ! / ne pas oublier de forcer y a zero pour partir du bas.

  comptarebour
  cr
  ." D E C O L A G E !"
  2 314 sound
  1 delay
  hush 

  efface-ecran
 
  begin
      dessine-sprite
      monte2-3lignes
  225 >  until            
  
  2 216 sound
  explosion / HUSTON ? NOUS AVONS UN PROBLEME  
  1 delay  
  hush

  efface-ecran
  special
;

decolage
tout ça pour faire peter ma fusée avant qu'elle arrive en haut de l'écran na :!:
-----------
ssh debile@stupide.local "docker run -it docker/cowsay \"fortune | cowsay\" "

:ugeek:

francoisp31
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2061
Inscription : 30 mai 2005 09:48
Localisation : Toulouse
Contact :

Message par francoisp31 » 26 avr. 2009 21:25

Code : Tout sélectionner

:noname   dup . ." bottles" ;
:noname       ." 1 bottle"  ;
:noname ." no more bottles" ;
create bottles , , ,

: .bottles  dup 2 min cells bottles + @ execute ;
: .beer     .bottles ."  of beer" ;
: .wall     .beer ."  on the wall" ;
: .take     ." Take one down and pass it around" ;
: .verse    .wall ." , " .beer ." ." cr
         1- .take ." , " .wall ." ." cr ;
: verses   begin cr .verse ?dup 0= until ;

99 verses
Une version plus "pro" des bouteilles de bière
-----------
ssh debile@stupide.local "docker run -it docker/cowsay \"fortune | cowsay\" "

:ugeek:

Avatar de l’utilisateur
Forthman
Fonctionne à 300 bauds
Fonctionne à 300 bauds
Messages : 171
Inscription : 03 juin 2009 06:51
Localisation : Castelsarrasin (82)

Message par Forthman » 05 juin 2009 16:57

Salut François,

Je constate que tu te prive d'un mot très intéressante du Forht PAMPUK
J'ai nommé : BPOP

Le mot MASK esst aussi très sympa et permet de gérer la transparence :wink:

a+ François

francoisp31
Fonctionne à 2400 bauds
Fonctionne à 2400 bauds
Messages : 2061
Inscription : 30 mai 2005 09:48
Localisation : Toulouse
Contact :

Message par francoisp31 » 05 juin 2009 19:09

merci du conseil (je ais progresser moi....)
-----------
ssh debile@stupide.local "docker run -it docker/cowsay \"fortune | cowsay\" "

:ugeek:

Répondre

Revenir vers « Victor & Hector »