home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
AmigActive 4
/
AACD04.ISO
/
AACD
/
Sound
/
GuitarChord
/
GuitarChord.rexx
< prev
next >
Wrap
OS/2 REXX Batch file
|
1999-10-05
|
6KB
|
168 lines
/* GuitarChord.rexx - by MrDoc (1999) */
options results
address music
parse arg comm
MUIA_TWFmultiLED_Colour = 0xfebd0001
MUIA_TWFmultiLED_Custom = 0xfebd0002
MUIA_TWFmultiLED_Type = 0xfebd0003
MUIA_TWFmultiLED_Free = 0xfebd0004
MUIA_TWFmultiLED_TimeDelay = 0xfebd0005
MUIV_TWFmultiLED_Colour_Off = 0
MUIV_TWFmultiLED_Colour_On = 1
MUIV_TWFmultiLED_Colour_Ok = 2
MUIV_TWFmultiLED_Colour_Error = 4
MUIV_TWFmultiLED_Colour_Panic = 5
MUIV_TWFmultiLED_Type_Square5 = 2
MUIV_TWFmultiLED_TimeDelay_User = -1
MUIV_TWFmultiLED_TimeDelay_Off = 0
Group_HorizSpacing = 0x8042c651
Group_VertSpacing = 0x8042e1bf
window id W1 COMMAND """address command delete 'ram:chords' 'quiet >nil:';
address music 'quit';""" port inline title "GuitarChord"
group
group HORIZ frame
label left "Search chord -->"
string id s1 COMMAND """GChordcomm.rexx CHORD"""
endgroup
group HORIZ frame
group frame
label center "\033bPosition 1"
group HORIZ frame
label center "-Basefret-"
text id TG1 label "\033c\033b1"
endgroup
space
group frame
label center "E A D G B E"
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id L5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
text id TN1
endgroup
group frame
label center "\033bPosition 2"
group HORIZ frame
label center "-Basefret-"
text id TG2 label "\033c\033b1"
endgroup
space
group frame
label center "E A D G B E"
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id M5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
text id TN2
endgroup
group frame
label center "\033bPosition 3"
group HORIZ frame
label center "-Basefret-"
text id TG3 label "\033c\033b1"
endgroup
space
group frame
label center "E A D G B E"
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
group HORIZ frame Group_HorizSpacing 2
do i = 1 to 6
object class "TWFmultiLED.mcc" id N5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
end
endgroup
text id TN3
endgroup
endgroup
view id V1 string "Type the chord you want to see in the 'search chord' input field. Up to 3 chord fingerings will be shown, depending on the chord."
endgroup
endwindow