67 lines
1.2 KiB
Plaintext
67 lines
1.2 KiB
Plaintext
o110 sub
|
|
f100
|
|
g61
|
|
g0 x1.0 y0.0
|
|
g1 x1.5 y0.0
|
|
g1 x1.5 y0.5
|
|
g1 x1.0 y0.5
|
|
g1 x1.0 y0.0
|
|
o110 endsub
|
|
|
|
o100 sub
|
|
g0 c90
|
|
o110 call
|
|
g0 c180
|
|
o110 call
|
|
g0 c270
|
|
o110 call
|
|
g0x0y0z0c0
|
|
o100 endsub
|
|
|
|
;#########################################################
|
|
m110 ; clear messages
|
|
g0x0y0z0c0
|
|
o110 call
|
|
|
|
o200 if [#5210 ne 0]
|
|
(debug, ! Prog loaded with g92 offsets)
|
|
(debug, RELOAD program required)
|
|
g92.1
|
|
(debug, bye)
|
|
m2
|
|
o200 endif
|
|
|
|
o210 if [[#5221 ne 0] or [#5222 ne 0] or [#5223 ne 0] or [#5223 ne 0] or [#5225 ne 0] or [#5226 ne 0] or [#5227 ne 0] or [#5228 ne 0] or [#5229 ne 0] ]
|
|
(debug, ! Prog loaded with g5x offsets)
|
|
(debug, RELOAD program required)
|
|
g92.1
|
|
g10l2p0x0y0z0c0
|
|
(debug, bye)
|
|
m2
|
|
o210 endif
|
|
|
|
g0x0y0z0c0
|
|
g10l2p0x0y0z0c0
|
|
(debug, First: run with NO offsets, s to continue)
|
|
m0
|
|
o100 call
|
|
|
|
o300 if [#<_task> eq 1]
|
|
g10l2p0x1
|
|
(debug, Next: run with g5x xoffset=#5221, s to continue)
|
|
m0
|
|
o100 call
|
|
|
|
g10l2p0x0y0z0c0
|
|
g92x2
|
|
(debug, Next: run with g92 xoffset=#5211, s to continue)
|
|
m0
|
|
o100 call
|
|
o300 endif
|
|
|
|
g10l2p0x0y0z0c0
|
|
g92.1
|
|
g0x0y0z0c0
|
|
(debug,fini)
|
|
m2
|