BASIC DRAWING MODULE Ellipse();
 !
 ! Ripped out of bounce.MBS, with clue from Gunnar Liden

 FLOAT a_leng; ! Length of first axis
 FLOAT b_leng; ! Length of second axis
 FLOAT pval; ! P value 

 FLOAT ratio;

BEGINMODULE

cacc_view(10);

 a_leng := 600;
 b_leng := 10;

 ! Ellipse = 0.4
 pval := 0.414233543;
 pval := 0.4;

 CUR_CONIC(#1,"FREE",
 VEC(-a_leng, 0.0), VEC(-a_leng+0.0, -1.0), pval,
 VEC( 0.0 , -b_leng), VEC( 1.0 , -b_leng), pval,
 VEC( a_leng, 0.0), VEC( a_leng+0.0, 1.0)
 );

 CUR_CONIC(#2,"FREE",
 VEC(-a_leng, 0.0), VEC(-a_leng+0.0, 1.0), pval,
 VEC( 0.0 , b_leng), VEC( 1.0 , b_leng), pval,
 VEC( a_leng, 0.0), VEC( a_leng+0.0, -1.0)
 );

ENDMODULE