swabcasting_lines_01.pgm

;---- Declar and Set Variables -----
DVAR $POWER
DVAR $FEED

$POWER=100.0
$FEED=3.0

G90
G71
G92 X0 Y0
G108

;Laser cutting
;tool.diameter = 0.045

FARCALL "ATTENUATOR.PGM" s$POWER
MSGCLEAR -1
MSGDISPLAY 1, "program Started"


REPEAT 5

G0 X0 Y0.0
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.05
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.1
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.15000000000000002
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.2
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.25
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.30000000000000004
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.35000000000000003
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.4
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.45
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.5
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.55
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.6000000000000001
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.65
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.7000000000000001
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.75
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.8
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.8500000000000001
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.9
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF

G0 X0 Y0.9500000000000001
BEAMON
REPEAT 5
G1 X2.0 F$FEED
G1 X0 F$FEED
ENDRPT
BEAMOFF
ENDRPT