dessiner une musique

label click,paint_melody,play_melody

dim i,selnote%

rem ce tableau est initialisé avec la première note disponible
dim seldegs%(8)
for i=1 to 7
  seldegs%(i) = 1
next i

rem le tableau notes contient les notes disponibles pour la musique
rem ça va d'un do au do plus aigu
dim notes%(9)
data 60,62,64,65,67,69,71,72
for i=1 to 8
  read notes%(i)
next i

rem le tableau melody est initialisé avec des DO (hauteur:60)
dim melody%(8)
for i=1 to 7
  melody%(i) = 60
next i


rem créer l'interface utilisateur

width 0,800
height 0,600
caption 0,"dessiner une musique"
font_name 0,verdana
font_size 0,12
font_bold 0

picture 1
width 1,701
height 1,401
top 1,80
left 1,50
on_click 1,click

button 2
width 2,100
height 2,30
top 2,500
left 2,350
on_click 2,play_melody
caption 2,"jouer"

alpha 3
top 3,40
left 3,150
caption 3,"cliquez sur les rectangles pour dessiner une musique !"

rem initialiser l'affichage de la musique

2D_target_is 1
gosub paint_melody

end

click:
rem détecter le click et remplir le tableau melody (la mélodie à jouer)
  for i=1 to 7
    if mouse_x_position(1) >= 100*(i-1) and mouse_x_position(1) <= 100*i
      selnote% = i
    end_if
  next i
  for i=1 to 8
    if mouse_y_position(1) >= 50*(i-1) and mouse_y_position(1) <= 50*i
      seldegs%(selnote%) = 9 - i
      melody%(selnote%) = notes%(seldegs%(selnote%))
    end_if
  next i
goto paint_melody
 
paint_melody:
rem dessiner la musique

  2d_pen_color 255,255,255
  2d_fill_color 255,255,255
  2d_rectangle 0,0,700,400

  2d_pen_color 128,128,192
  2d_fill_color 128,128,192
  for i=1 to 7
    2d_rectangle (i-1)*100,(9-seldegs%(i))*50,i*100,(8-seldegs%(i))*50
  next i
 
  2d_pen_color 0,0,0
  for i=1 to 9
    2d_line 0,(i-1)*50,700,(i-1)*50
  next i
  for i=1 to 8
    2d_line (i-1)*100,0,(i-1)*100,400
  next i
return

play_melody:
rem jouer la musique

  midi_on
  for i=1 to 7
    midi_play melody%(i),6
  next i
  midi_off
return