Post Wiki

Table of offsets / planes by op, or comment of offsets / planes per op:

...
(OP 18 - G54 - Top - X27 - X27)
(OP 19 - G54 - Top - X28 - X28)
(OP 20 - G54 - Top - X29 - X29)
(OP 21 - G54 - Top - X30 - X30)
(OP 22 - G54 - Top - Bottom - Bottom)
(OP 23 - G54 - Top - X31 - X31)
(OP 24 - G54 - Top - X32 - X32)
...
 
 
 
 swcsname        : ""
 stpname         : ""
 scpname         : ""
 curr_op         : 0
 num_ops         : 1
 opmgr_opno      : 1
 last_opmgr_opno : 0
 fmt  "OP " 4  curr_op     #Current Op
 fmt  "OP " 4  opmgr_opno  #Current Op
 
 pwcs_comm_out    #output WCS comment
      swcsname   = opinfo(20014,0)
      stpname    = opinfo(20012,0)
      scpname    = opinfo(20010,0)
      opmgr_opno = opinfo(15240,0)
      fwcs = yes$
      psc, *opmgr_opno, " - ", pwcs, " - ", *swcsname, " - ", *stpname, " - ", *scpname, pecl
 
 
 pwcs_comm_out_tbl    #output WCS comment table
      #num_ops = rbuf (one, zero)
      #while curr_op <= num_ops,
      while opmgr_opno > 0,
        [
        swcsname   = opinfo(20014,curr_op)
        stpname    = opinfo(20012,curr_op)
        scpname    = opinfo(20010,curr_op)
        opmgr_opno = opinfo(15240,curr_op)
        fwcs = yes$
        curr_op = curr_op + 1
        if last_opmgr_opno <> opmgr_opno, 
          psc, *opmgr_opno, " - ", pwcs, " - ", *swcsname, " - ", *stpname, " - ", *scpname, pecl
        last_opmgr_opno = opmgr_opno
        opmgr_opno = opinfo(15240,curr_op)
        ]