; rule prologue

; -------------

struct stru_aax

    real axp[1+32]    ; array for positions

    ; index 0 is not used, so axp[1]....axp[32] is used

end_struct

; Sample code

; Global Storage definition

; -------------------------

stru_aax    in_cp, out_cp

stru_aax    in_ip, out_ip

...

; we use only 3 axes

in_ip.axp[1] = ip(1)

in_ip.axp[2] = ip(2)

in_ip.axp[3] = ip(3)

result = planar_comp_ip(in_ip, out_ip)

rr(120+1) = out_ip.axp[1]

rr(120+2) = out_ip.axp[2]

rr(120+3) = out_ip.axp[3]

in_cp.axp[1] = cp(1)

in_cp.axp[2] = cp(2)

in_cp.axp[3] = cp(3)

esito = planar_comp_cp(in_cp, out_cp)

rr(160+1) = out_cp.axp[1]

rr(160+2) = out_cp.axp[2]

rr(160+3) = out_cp.axp[3]