Return to Statement

Through Curves Example

Interactively select the curves through which the B-surface is created, and pick a reference point for each curve to determine the direction of that row pole array.

$$
$$  Declarations
$$
    ENTITY/ENT(200),P(200),BS
$$
$$ Geometry Definition
$$
L10:K=K+1
IDENT/'PICK CURVE'+ISTR(K),ENT(K),RESP
JUMP/REJ1:,TERM:,,RESP
$$
L20:
GPOS/'PICK DIR POINT'+ISTR(K),X,Y,Z,RESP
JUMP/L10:,TERM:,,,,RESP
P(K)=POINT/X,Y,Z
CHOOSE/'CHOOSE OPTION','NEXT CURVE',$
'CREATE SURF',RESP
JUMP/REJ2:,TERM:,,,L10:,,RESP
IF/K<=1,JUMP/ERR1:
$$
$$ B-Surface Definition
$$
    BS=BSURF/CURVE,ENT(1..K),ENDOF,P(1..K)
    JUMP/TERM:
    $$
    REJ1:
    K=K-1
    JUMP/L10:
    $$
    REJ2:
    K=K-1
    JUMP/L20:
    $$
    ERR1:
    MESSG/'YOU MUST SELECT MORE CURVES'
    JUMP/L10:
    TERM:HALT

B-surface Created through Four B-curves You Selected