Return to Statement

Conic Example

Select the start edge, end edge, apex, and spline curve used to create the conic B-surface.

 
   ENTITY/ENT(3),SPN

   $$

     NUMBER/RHV(2),ERN

   $$

     DATA/RHV(1),1,RHV(2),0.8

   $$

   L10: K=K+1

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

     JUMP/RJ1:,TERM:,,R1

   L20: K=K+1

     IDENT/'Pick End Edge Curve'+ISTR(K),ENT(K),R2

     JUMP/RJ1:,TERM:,,R2

   L30: K=K+1

     IDENT/'Pick the Apex Curve',ENT(K),R3

     JUMP/RJ1:,TERM:,,R3

   L40:

     IDENT/'Pick the Spine Curve',SPN,R4

     JUMP/RJ2:,TERM:,,R4

   $$

   $$ Generate the Conic Surface

   $$

   BSURF/CONSRF,5,ENT(1..3),SPINE,SPN,RHO,RHV(1..2),$

     RESULT,ERN,IFERR,ER1:

   $$

     JUMP/TERM:

   $$

   RJ1: K=K-1

   RJ2: JUMP/L10:,L20:,L30:,L40:,(K+1)

   ER1:

     MESSG/'Conic Surface Error'

   $$

   TERM:HALT

   

  

   Conic B-surface