point1 : pt( 1.83048, -0.446918, 0 );
 point2 : pt( 1.73459, 0.354452, 0 );
 point3 : pt( 1.62843, 0.491439, 0 );
 point4 : pt( 1.44692, 0.532534, 0 );
 point5 : pt( 0.628424, 0.340753, 0 );
 point6 : pt( -0.33048, 0.402398, 0 );
 point7 : pt( -0.813356, 0.433219, 0 );
 point8 : pt( -1.54623, 0.563356, 0 );
 point9 : pt( -1.71405, 0.474315, 0 );
 point10 : pt( -1.73117, 0.27911, 0 );
 point11 : pt( -1.49486, 0.142124, 0 );
 curve1 : curve( 4, "ec_open", "kv_uniform", array( point1, point2, point3, point4, point5, point6, point7, point8, point9, point10, point11 ) );

 point12 : pt( -1.42979, 0.224315, 0 );
 point13 : pt( -1.2928, 0.210616, 0 );
 point14 : pt( -0.953765, 0.152397, 0 );
 point15 : pt( -0.58733, 0.162671, 0 );
 point16 : pt( -0.46404, 0.148973, 0 );
 point17 : pt( -0.426369, 0.0702055, 0 );
 curve2 : curve( 3, "ec_open", "kv_uniform", array( point11, point12, point13, point14, point15, point16, point17 ) );

 point18 : pt( -0.255137, 0.0496576, 0 );
 point19 : pt( -0.255137, -0.172945, 0 );
 point20 : pt( -0.172945, -0.330479, 0 );
 curve3 : uniopcrv( 3, array( point18, point19, point20 ) );

 profile1 : profile( curve1, curve2, point18 );

 point21 : pt( -0.351027, -0.27226, 0 );
 point22 : pt( 1.0839, -0.433219, 0 );
 point23 : pt( 1.8613, -0.344178, 0 );
 curve4 : curve( 3, "ec_open", "kv_uniform", array( point21, point22, point23 ) );

 point24 : pt( -0.152395, 0.467466, -0 );
 line1 : linethru2pts( point18, point24 );

 point25 : pt( -0.172943, 0.392123, -0 );

 point26 : pt( -1.1558, 0.351028, 0 );
 point27 : pt( -0.844794, 0.314918, 0 );
 point28 : pt( -0.485187, 0.295161, 0 );
 point29 : pt( 1.51111, 0.357748, 0 );
 circle1 : circlectrrad( point26, 0.04 );
 circle2 : circlectrrad( point27, 0.04 );
 circle3 : circlectrrad( point28, 0.04 );
 circle4 : circlectrrad( point29, 0.05 );

 point31 : pt( -1.33733, 0.518836, 0 );
 point32 : pt( -1.36815, 0.282535, 0 );
 point33 : pt( -0.275685, 0.162671, 0 );
 curve5 : curve( 2, "ec_open", "kv_uniform", array( point31, point32, point33 ) );