Return to Statement

Swept Example

Interactively select the guide and generator curves used to create the sweep surface.

 
   ENTITY/ENT(3)

   $$

   L10: K=K+1

        IDENT/'Pick Guide Curve'+ISTR(K),ENT(K),R1

        JUMP/RJ1:,TERM:,,R1

        IF/K==2,JUMP/L20:

        JUMP/L10:

   L20: K=K+1

        IDENT/'Pick Generator Curve',ENT(K),R2

        JUMP/RJ1:,TERM:,,R2

   $$

   $$ Generate the Sweep Surface

   BSURF/SWPSRF,TRACRV,ENT(1..2),GENCRV,ENT(3),IFERR,$

        ER1:

   JUMP/TERM:

   $$

   $$ Decrement Count On Reject

   RJ1: K=K-1

        JUMP/L10:,L10:,L20:,(K+1)

   ER1:

        MESSG/'Sweep Surface Error'

   TERM:HALT

   
  

   Sweep B-surface with One Generating Curve, Two Guide Curves