Windows Music Editor
System
level 
"Graphics.tbk"
objmove
Send Copy
Previous
Paste
Move the 
4905, 840
Clear 
objcopy
cNext
jBackground
-- routines 
moving musical symbols on 
=(16) 
=(17) 
495,840
Set LineStyle 
erase
"Erase everything 
over?"\
f"Ok" 
savemusic
"Save 
Score Book?" 
f"Ok"
SelectAll
8"scores.
NewPage
8"WinMusic.
objcopy
buttondown
objmove
rightbuttondown
enterbook
erase
savemusic
enterbook
Graphics.tbk
level
objmove
Previous
Paste
sendtoback
objcopy
Background
buttondown
clear
transparent
rightbuttondown
paste
transparent
transparent
erase
Erase everything and start over?
clear
savemusic
Save music in Score Book?
SelectAll
scores.tbk
y5NewPage
Paste
WinMusic.tbk
paste
c:\toolbook\WinMusic.tbk
paste
objcopy
Select Group "tl" 
Send staffpaste
buttonUp
buttonUp
$Bobjcopy
staffpaste
:PHYSSIZE
objcopy
Select 
"qn" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "hn" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "nh" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "nq" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select Line "bl" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
barline
bline
objcopy
Select Line "br" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
objcopy
Select PaintObject "sp" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
sharp
:PHYSSIZE
objcopy
Select PaintObject "ft" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "8n" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "n8" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "6n" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select PaintObject "pt" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
point
:PHYSSIZE
erase
buttonup
buttonup
erase
:PHYSSIZE
objcopy
Select 
'"nl" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
objcopy
Select PaintObject "n6" 
Send objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
:PHYSSIZE
objcopy
Select Group "bb" 
Send staffpaste
buttonUp
buttonUp
$Bobjcopy
staffpaste
:PHYSSIZE
objcopy
Select PaintObject "wn" 
objmove
buttonUp
buttonUp
$Bobjcopy
P>objmove
whole
:PHYSSIZE
savemusic
buttonup
buttonup
savemusic
Save...
buttonup
buttonup
Print...
erase
buttonup
buttonup
erase
Erase...
piano
buttonup
buttonup
piano
Piano...
buttonup
buttonup
Help...
"Edit 
existing piece 
music 
the Score Book?" 
f"Ok"
8"Scores.tbk"
"Scroll 
find 
Iyou want, 
f"Ok"
buttonup
buttonup
Edit an existing piece of music in the Score Book?
Scores.tbk
Scroll to find the page of music you want, then select the Edit button.
tton.
Edit...
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
2	:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
buttonup
buttonup
previous
 Commands:
     1) Click on icon to generate staves, note, etc.
     2) Drag object with left button down
     3) Erase object by pressing Shift-Left Mouse Button
     4) Lines that connect notes - click Right button over note, drag mouse 
         until line is correct size and slant, then click Left button.
     5) Copy lines - Ctrl-Right button click while cursor is over line. This is useful for 16th notes.
     6) Clicking on the Edit button will bring you to the Windows Music Editor - Score Book.
         Select the page of music you want to edit, after you have found it by scrolling through the
         pages. A future feature will be to name pages, from which you can make your selection.
         In this version, the selected page is deleted in the Score Book, and copied into the
         Editor. If you don't Save it, your work will be lost - the Editor does not save backup copies.
     7) You can print from either the Editor or the Score Book.
This is just the first Beta version of this program. I am adding many bells and whistles to it to make
it more comprehensive, while trying to keep it small, so it will run quickly. As future versions of Toolbook are created, I expect to increase the resolution, page size and export capabilities as I am able. 
                                                                                                               Casey Burns
                                                                                                               8012 12th NW Seattle WA 98117
                                                                                                               (206) 784-6356
TO RETURN TO THE EDITOR, CLICK ON THE TEXT.
                         
:PHYSSIZE
:PHYSSIZE
:PHYSSIZE
B	P"@
(bZaR