===== Nifty Postblocks / Tools ===== 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 - Single op 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) ]