Return to Statement

Through Curve Mesh Example

Create a curve mesh B-surface by interactively selecting the primary and cross curves as well as the curve emphasis.

   ENTITY/ENT1(10),ENT2(10),BS

     J=1

   L10: IDENT/'Pick Primary Curve '+ISTR(J),ENT1(J),R1

     JUMP/L10:,,,R1

     IF/ENT1(J)==&NULENT,JUMP/L20:

     J=J+1

     JUMP/L10:

   L20: J=J-1

     IF/J<2,JUMP/MS1:

     M=1

     K=1

   L30: IDENT/'Pick Cross Curve '+ISTR(K),ENT2(K),R2

     JUMP/L30:,,,R2

     IF/ENT2(K)==&NULENT,JUMP/L40:

     K=K+1

     JUMP/L30:

   L40: K=K-1

     IF/K<2,JUMP/MS1:

   L50: CHOOSE/'Mesh Surface Emphasis','Primary',$

                   'Cross',$

                   'Both',R3

     JUMP/L50:,TERM:,,,L60:,L70:,,R3

     ET=3

     JUMP/L80:

   L60: ET=1

     JUMP/L80:

   L70: ET=2

   $$ Generate the Curve Mesh Surface.


   L80:

     BS = BSURF/MESH,ENT1(1..J),WITH,ENT2(1..K),TYPE,ET,$

     TOLER,.01,.01,RESULT,ERN,IFERR,ER1:

     JUMP/TERM:

   MS1:

     MESSG/'You Must Select At Least 2 Curves'

   L90: CHOOSE/'Do You Want To Continue ?','Yes',$

                            'No',R4

     JUMP/L90:,TERM:,,,,TERM:,R4

     N=0

     IF/M==1,N=1

     N=N+1

     JUMP/L10:,L30:,N

   ER1:

     MESSG/'Curve Mesh Surface Error'

   TERM:HALT



   
  

   Curve Mesh B-surface with Equal Emphasis on Curves