Skip to content
Snippets Groups Projects
swabcasting_lines_01.pgm 1.74 KiB
Newer Older
  • Learn to ignore specific revisions
  • Zach Fredin's avatar
    Zach Fredin committed
    ;---- 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