Return to Statement

Point Method Example

Interactively select the points that the B-spline passes through.

   ENTITY/P(200),BC
   $$
   L10:
   K=K+1
   IDENT/'PICK POINT'+ISTR(K),P(K),RESP
   JUMP/REJ1:,TERM:,,RESP
   CHOOSE/'CHOOSE OPTION','NEXT POINT',$
   'CREATE B-SPLINE',RESP
   JUMP/REJ2:,TERM:,,,L10:,,RESP
   IF/K<=1,JUMP/ERR1:
   $$
   L20:
   BC=BCURVE/P(1..K)
   JUMP/TERM:
   $$
   REJ1:
   K=K-1
   JUMP/L10:
   $$
   REJ2: K=K-1
   JUMP/L20:
   $$
   ERR1:
   MESSG/'YOU MUST SELECT MORE POINTS'
   JUMP/L10:
   $$
   TERM:HALT