home *** CD-ROM | disk | FTP | other *** search
/ Wacky Windows Stuff... / WACKY.iso / toolbook / winmusic.tbk (.txt) < prev    next >
Asymetrix ToolBook File  |  1990-08-28  |  26KB  |  292 lines

  1. Windows Music Editor
  2. System
  3. level 
  4. "Graphics.tbk"
  5. objmove
  6. Send Copy
  7. Previous
  8. Paste
  9. Move the 
  10. 4905, 840
  11. Clear 
  12. objcopy
  13. cNext
  14. jBackground
  15. -- routines 
  16. moving musical symbols on 
  17. =(16) 
  18. =(17) 
  19. 495,840
  20. Set LineStyle 
  21. erase
  22. "Erase everything 
  23. over?"\
  24. f"Ok" 
  25. savemusic
  26. "Save 
  27. Score Book?" 
  28. f"Ok"
  29. SelectAll
  30. 8"scores.
  31. NewPage
  32. 8"WinMusic.
  33. objcopy
  34. buttondown
  35. objmove
  36. rightbuttondown
  37. enterbook
  38. erase
  39. savemusic
  40. enterbook
  41. Graphics.tbk
  42. level
  43. objmove
  44. Previous
  45. Paste
  46. sendtoback
  47. objcopy
  48. Background
  49. buttondown
  50. clear
  51. transparent
  52. rightbuttondown
  53. paste
  54. transparent
  55. transparent
  56. erase
  57. Erase everything and start over?
  58. clear
  59. savemusic
  60. Save music in Score Book?
  61. SelectAll
  62. scores.tbk
  63. y5NewPage
  64. Paste
  65. WinMusic.tbk
  66. paste
  67. c:\toolbook\WinMusic.tbk
  68. paste
  69. objcopy
  70. Select Group "tl" 
  71. Send staffpaste
  72. buttonUp
  73. buttonUp
  74. $Bobjcopy
  75. staffpaste
  76. :PHYSSIZE
  77. objcopy
  78. Select 
  79. "qn" 
  80. Send objmove
  81. buttonUp
  82. buttonUp
  83. $Bobjcopy
  84. P>objmove
  85. :PHYSSIZE
  86. objcopy
  87. Select PaintObject "hn" 
  88. Send objmove
  89. buttonUp
  90. buttonUp
  91. $Bobjcopy
  92. P>objmove
  93. :PHYSSIZE
  94. objcopy
  95. Select PaintObject "nh" 
  96. Send objmove
  97. buttonUp
  98. buttonUp
  99. $Bobjcopy
  100. P>objmove
  101. :PHYSSIZE
  102. objcopy
  103. Select PaintObject "nq" 
  104. Send objmove
  105. buttonUp
  106. buttonUp
  107. $Bobjcopy
  108. P>objmove
  109. :PHYSSIZE
  110. objcopy
  111. Select Line "bl" 
  112. Send objmove
  113. buttonUp
  114. buttonUp
  115. $Bobjcopy
  116. P>objmove
  117. barline
  118. bline
  119. objcopy
  120. Select Line "br" 
  121. Send objmove
  122. buttonUp
  123. buttonUp
  124. $Bobjcopy
  125. P>objmove
  126. objcopy
  127. Select PaintObject "sp" 
  128. Send objmove
  129. buttonUp
  130. buttonUp
  131. $Bobjcopy
  132. P>objmove
  133. sharp
  134. :PHYSSIZE
  135. objcopy
  136. Select PaintObject "ft" 
  137. Send objmove
  138. buttonUp
  139. buttonUp
  140. $Bobjcopy
  141. P>objmove
  142. :PHYSSIZE
  143. objcopy
  144. Select PaintObject "8n" 
  145. Send objmove
  146. buttonUp
  147. buttonUp
  148. $Bobjcopy
  149. P>objmove
  150. :PHYSSIZE
  151. objcopy
  152. Select PaintObject "n8" 
  153. Send objmove
  154. buttonUp
  155. buttonUp
  156. $Bobjcopy
  157. P>objmove
  158. :PHYSSIZE
  159. objcopy
  160. Select PaintObject "6n" 
  161. Send objmove
  162. buttonUp
  163. buttonUp
  164. $Bobjcopy
  165. P>objmove
  166. :PHYSSIZE
  167. objcopy
  168. Select PaintObject "pt" 
  169. Send objmove
  170. buttonUp
  171. buttonUp
  172. $Bobjcopy
  173. P>objmove
  174. point
  175. :PHYSSIZE
  176. erase
  177. buttonup
  178. buttonup
  179. erase
  180. :PHYSSIZE
  181. objcopy
  182. Select 
  183. '"nl" 
  184. Send objmove
  185. buttonUp
  186. buttonUp
  187. $Bobjcopy
  188. P>objmove
  189. objcopy
  190. Select PaintObject "n6" 
  191. Send objmove
  192. buttonUp
  193. buttonUp
  194. $Bobjcopy
  195. P>objmove
  196. :PHYSSIZE
  197. objcopy
  198. Select Group "bb" 
  199. Send staffpaste
  200. buttonUp
  201. buttonUp
  202. $Bobjcopy
  203. staffpaste
  204. :PHYSSIZE
  205. objcopy
  206. Select PaintObject "wn" 
  207. objmove
  208. buttonUp
  209. buttonUp
  210. $Bobjcopy
  211. P>objmove
  212. whole
  213. :PHYSSIZE
  214. savemusic
  215. buttonup
  216. buttonup
  217. savemusic
  218. Save...
  219. buttonup
  220. buttonup
  221. Print...
  222. erase
  223. buttonup
  224. buttonup
  225. erase
  226. Erase...
  227. piano
  228. buttonup
  229. buttonup
  230. piano
  231. Piano...
  232. buttonup
  233. buttonup
  234. Help...
  235. "Edit 
  236. existing piece 
  237. music 
  238. the Score Book?" 
  239. f"Ok"
  240. 8"Scores.tbk"
  241. "Scroll 
  242. find 
  243. Iyou want, 
  244. f"Ok"
  245. buttonup
  246. buttonup
  247. Edit an existing piece of music in the Score Book?
  248. Scores.tbk
  249. Scroll to find the page of music you want, then select the Edit button.
  250. tton.
  251. Edit...
  252. :PHYSSIZE
  253. :PHYSSIZE
  254. :PHYSSIZE
  255. :PHYSSIZE
  256. 2    :PHYSSIZE
  257. :PHYSSIZE
  258. :PHYSSIZE
  259. :PHYSSIZE
  260. :PHYSSIZE
  261. :PHYSSIZE
  262. :PHYSSIZE
  263. :PHYSSIZE
  264. buttonup
  265. buttonup
  266. previous
  267.  Commands:
  268.      1) Click on icon to generate staves, note, etc.
  269.      2) Drag object with left button down
  270.      3) Erase object by pressing Shift-Left Mouse Button
  271.      4) Lines that connect notes - click Right button over note, drag mouse 
  272.          until line is correct size and slant, then click Left button.
  273.      5) Copy lines - Ctrl-Right button click while cursor is over line. This is useful for 16th notes.
  274.      6) Clicking on the Edit button will bring you to the Windows Music Editor - Score Book.
  275.          Select the page of music you want to edit, after you have found it by scrolling through the
  276.          pages. A future feature will be to name pages, from which you can make your selection.
  277.          In this version, the selected page is deleted in the Score Book, and copied into the
  278.          Editor. If you don't Save it, your work will be lost - the Editor does not save backup copies.
  279.      7) You can print from either the Editor or the Score Book.
  280. This is just the first Beta version of this program. I am adding many bells and whistles to it to make
  281. 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. 
  282.                                                                                                                Casey Burns
  283.                                                                                                                8012 12th NW Seattle WA 98117
  284.                                                                                                                (206) 784-6356
  285. TO RETURN TO THE EDITOR, CLICK ON THE TEXT.
  286.                          
  287. :PHYSSIZE
  288. :PHYSSIZE
  289. :PHYSSIZE
  290. B    P"@
  291. (bZaR
  292.