160 lines
5.1 KiB
Plaintext
160 lines
5.1 KiB
Plaintext
G20
|
|
|
|
O100 sub ([f0] [f1] [f2] [f3])
|
|
#61=#1
|
|
|
|
O110 if [#2 gt 0]
|
|
#62=#2
|
|
O110 else
|
|
#62=#1
|
|
O110 endif
|
|
|
|
O111 if [#3 gt 0]
|
|
#63=#3
|
|
O111 else
|
|
#63=#1
|
|
O111 endif
|
|
|
|
O112 if [#4 gt 0]
|
|
#64=#4
|
|
O112 else
|
|
#64=#1
|
|
O112 endif
|
|
|
|
#41=0 #42=0 #43=0 #44=0
|
|
G0 X0Y0Z0A0
|
|
G93
|
|
O100 endsub
|
|
|
|
O200 sub ([t] [p1] [p2] [p3] [p4])
|
|
|
|
(Find new X)
|
|
#2=[#2*#1/#61]
|
|
O210 if [#41 gt 0]
|
|
#41=[#41-#2]
|
|
O210 else
|
|
#41=[#41+#2]
|
|
O210 endif
|
|
|
|
(Find new Y)
|
|
#3=[#3*#1/#62]
|
|
O220 if [#42 gt 0]
|
|
#42=[#42-#3]
|
|
O220 else
|
|
#42=[#42+#3]
|
|
O220 endif
|
|
|
|
(Find new Z)
|
|
#4=[#4*#1/#63]
|
|
O230 if [#43 gt 0]
|
|
#43=[#43-#4]
|
|
O230 else
|
|
#43=[#43+#4]
|
|
O230 endif
|
|
|
|
(Find new A)
|
|
#5=[#5*#1/#64]
|
|
O240 if [#44 gt 0]
|
|
#44=[#44-#5]
|
|
O240 else
|
|
#44=[#44+#5]
|
|
O240 endif
|
|
|
|
G1 X#41 Y#42 Z#43 A#44 F[60/#1]
|
|
|
|
O200 endsub
|
|
|
|
#100 = [440*1.781797] (Key of G)
|
|
|
|
(equal temperament chromatic scale)
|
|
#101 = [#100*1.059463] (g#)
|
|
#102 = [#100*1.122462] (a)
|
|
#103 = [#100*1.189207] (a#)
|
|
#104 = [#100*1.259921] (b)
|
|
#105 = [#100*1.334840] (c)
|
|
#106 = [#100*1.414214] (c#)
|
|
#107 = [#100*1.498307] (d)
|
|
#108 = [#100*1.587401] (d#)
|
|
#109 = [#100*1.681793] (e)
|
|
#110 = [#100*1.781797] (f)
|
|
#111 = [#100*1.887749] (f#)
|
|
|
|
(set XYZA axis scales)
|
|
O100 call [6400] [6400] [8000] [80]
|
|
|
|
G4P2
|
|
|
|
O200 call [1] [#107] [#100/2.0] [#104/2.0] [0] (Dai-) (G)
|
|
O200 call [1] [#104] [#100/2.0] [#104/2.0] [0] (-sy)
|
|
|
|
O200 call [1] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (Dai-)
|
|
O200 call [1] [#107/2.0] [#100/2.0] [#104/2.0] [#110/2.0] (-sy) (G7)
|
|
|
|
O200 call [0.333] [#109/2.0] [#100/2.0] [#105/2.0] [#109/2.0] (Give) (C)
|
|
O200 call [0.333] [#111/2.0] [#100/2.0] [#105/2.0] [#109/2.0] (me)
|
|
O200 call [0.333] [#100] [#100/2.0] [#105/2.0] [#109/2.0] (your)
|
|
O200 call [0.667] [#109/2.0] [#102/2.0] [#105/2.0] [#100] (ans-) (Am7)
|
|
O200 call [0.333] [#100] [#102/2.0] [#105/2.0] [#100] (-wer)
|
|
|
|
O200 call [2] [#107/2.0] [#100/2.0] [#104/2.0] [#107/2.0] (do.) (G)
|
|
|
|
O200 call [1] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (I'm) (D7)
|
|
O200 call [1] [#107] [#111/4.0] [#105/2.0] [#107/2.0] (half)
|
|
|
|
O200 call [1] [#104] [#100/2.0] [#104/2.0] [#107/2.0] (cra-) (G)
|
|
O200 call [1] [#100] [#100/2.0] [#104/2.0] [#109/2.0] (-zy) (Em)
|
|
|
|
O200 call [0.333] [#109/2.0] [#102/2.0] [#106/2.0] [#100] (All) (A7)
|
|
O200 call [0.333] [#111/2.0] [#102/2.0] [#106/2.0] [#100] (for)
|
|
O200 call [0.333] [#100] [#102/2.0] [#106/2.0] [#100] (the)
|
|
O200 call [0.667] [#102] [#102/2.0] [#106/2.0] [#100] (love)
|
|
O200 call [0.333] [#104] [#102/2.0] [#106/2.0] [#100] (of)
|
|
|
|
O200 call [1.667] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (you..) (D7)
|
|
O200 call [0.333] [#104] [#111/4.0] [#105/2.0] [#107/2.0] (it)
|
|
|
|
O200 call [0.333] [#105] [#111/4.0] [#105/2.0] [#107/2.0] (won't) (D7)
|
|
O200 call [0.333] [#104] [#111/4.0] [#105/2.0] [#107/2.0] (be)
|
|
O200 call [0.333] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (a)
|
|
|
|
O200 call [0.667] [#107] [#111/4.0] [#105/2.0] [#107/2.0] (sty-)
|
|
O200 call [0.333] [#104] [#111/4.0] [#105/2.0] [#107/2.0] (-lish)
|
|
|
|
O200 call [0.333] [#102] [#100/2.0] [#104/2.0] [#107/2.0] (marr-) (G)
|
|
O200 call [1.333] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (iage...)
|
|
O200 call [0.333] [#102] [#100/2.0] [#104/2.0] [#107/2.0] (I)
|
|
|
|
O200 call [0.667] [#104] [#100/2.0] [#104/2.0] [#107/2.0] (can't)
|
|
O200 call [0.333] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (a-)
|
|
|
|
O200 call [0.667] [#109/2.0] [#100/2.0] [#105/2.0] [#109/2.0] (-fford) (C)
|
|
O200 call [0.333] [#100] [#100/2.0] [#105/2.0] [#109/2.0] (a)
|
|
|
|
O200 call [0.333] [#109/2.0] [#100/2.0] [#104/2.0] [#107/2.0] (carr-) (G)
|
|
O200 call [1.333] [#107/2.0] [#100/2.0] [#104/2.0] [#107/2.0] (iage...)
|
|
O200 call [0.333] [#107/2.0] [#100/2.0] [#104/2.0] [#107/2.0] (but)
|
|
|
|
O200 call [0.667] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (you'll) (G)
|
|
O200 call [0.333] [#104] [#100/2.0] [#104/2.0] [#107/2.0] (look)
|
|
O200 call [0.667] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (sweet) (D7)
|
|
O200 call [0.333] [#107/2.0] [#111/4.0] [#105/2.0] [#107/2.0] (up-)
|
|
|
|
O200 call [0.667] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (-on) (G)
|
|
O200 call [0.333] [#104] [#100/2.0] [#104/2.0] [#107/2.0] (the)
|
|
O200 call [0.333] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (seat) (D7)
|
|
O200 call [0.333] [#104] [#111/4.0] [#105/2.0] [#107/2.0] (of)
|
|
O200 call [0.333] [#105] [#111/4.0] [#105/2.0] [#107/2.0] (a)
|
|
|
|
O200 call [0.333] [#107] [#100/2.0] [#104/2.0] [#107/2.0] (bi-) (G)
|
|
O200 call [0.333] [#104] [#100/2.0] [#104/2.0] [#107/2.0] (-cy-)
|
|
O200 call [0.333] [#100] [#100/2.0] [#104/2.0] [#107/2.0] (-cle)
|
|
O200 call [0.667] [#102] [#111/4.0] [#105/2.0] [#107/2.0] (built) (D7)
|
|
O200 call [0.333] [#107/2.0] [#111/4.0] [#105/2.0] [#107/2.0] (for)
|
|
|
|
O200 call [2] [#100] [#100/4.0] [#104/2.0] [#107/2.0] (two.) (G)
|
|
|
|
G4P2
|
|
G0 X0Y0Z0A0
|
|
|
|
M2
|