Return to Statement

Project Points/Curves Example

Shows the use of the project points/curves function.

RES(1..1000) =PROJ/CRVS(1..CRVCNT),ON,$
    FACES(1..FACCNT),VECT,V(1..3),ASSOC
JUMP/H88:
H88:
COUNT = 0
I = 1
H89:
IF/RES(I)<>&NULENT,COUNT=COUNT+ 1 IF/RES(I)==&NULENT,JUMP/H90:
RES(I) = &NULENT
I = I + 1
JUMP/H89:
H90:
MESSG/'CURVES RETURNED='+ISTR(COUNT)