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)
      ]