GLOBAL GEOMETRY MODULE sample_crvtxt(
INT txt_case:=4 > "Text Eq.1: xy Eq. 2: xz Eq. 3: yz Eq. 4: All");


BEGINMODULE

  set(BLANK=1);
  csys_1p(#1,"CsysBasic", vec(0, 0, 0), 0.0, 0.0, 0.0);
  mode_local(#1);
  csys_1p(#2,"CsysXZ", vec(0, 0, 0), 90, 0, 0);
  csys_1p(#3,"CsysYZ", vec(0, 0, 0), 0, 90, 0);
  poi_proj(#4,vec(9.4, 6.0, 0.0));
  poi_proj(#5,vec(22.6, 14.0, 0.0));
  poi_proj(#6,vec(29.4, 35.6, 0.0));
  poi_proj(#7,vec(43.8, 43.8, 0.0));
  poi_proj(#8,vec(64.2, 41.4, 0.0));
  poi_proj(#9,vec(74.0, 33.6, 0.0));
  poi_proj(#10,vec(82.8, 18.8, 0.0));
  cur_spline(#11,"CHORD", on(#4), vec(0.0, 0.0, 0.0), on(#5), vec(0.0, 0.0, 
    0.0), on(#6), vec(0.0, 0.0, 0.0), on(#7), vec(0.0, 0.0, 0.0), on(#8), vec
    (0.0, 0.0, 0.0), on(#9), vec(0.0, 0.0, 0.0), on(#10), vec(0.0, 0.0, 0.0):
    BLANK=0,PEN=2);
  mode_local(#2);
  cur_spline(#13,"CHORD", vec(-1.0695181092451, -29.22488577784, 0.0), vec(
    0.0, 0.0, 0.0), vec(4.7679206306666, -40.717343297042, 0.0), vec(0.0, 0.0
    , 0.0), vec(17.537317874224, -47.284461879442, 0.0), vec(0.0, 0.0, 0.0), 
    vec(33.043014527114, -45.642682233842, 0.0), vec(0.0, 0.0, 0.0), vec(
    43.25853232196, -36.52168420273, 0.0), vec(0.0, 0.0, 0.0), vec(
    42.711272440093, -20.286307707351, 0.0), vec(0.0, 0.0, 0.0), vec(
    30.489135078403, -8.7938501881494, 0.0), vec(0.0, 0.0, 0.0), vec(
    8.7811597643559, -12.807089321839, 0.0), vec(0.0, 0.0, 0.0), vec(
    8.051479921867, -21.745667392329, 0.0), vec(0.0, 0.0, 0.0), vec(
    12.794398898045, -31.413925305307, 0.0), vec(0.0, 0.0, 0.0), vec(
    24.834116299113, -34.87990455713, 0.0), vec(0.0, 0.0, 0.0), vec(
    31.401234881514, -28.312785974729, 0.0), vec(0.0, 0.0, 0.0), vec(
    30.671555039025, -20.468727667973, 0.0), vec(0.0, 0.0, 0.0), vec(
    22.09781688978, -17.550008298017, 0.0), vec(0.0, 0.0, 0.0), vec(
    16.990057992357, -23.022607116684, 0.0), vec(0.0, 0.0, 0.0):BLANK=0,PEN=3
    );
  mode_local(#3);
  cur_spline(#15,"CHORD", vec(-85.761696220409, 11.606999649138, 0.0), vec(
    0.0, 0.0, 0.0), vec(-75.572620950181, 19.640693612203, 0.0), vec(0.0, 0.0
    , 0.0), vec(-60.289008044838, 16.505593529056, 0.0), vec(0.0, 0.0, 0.0), 
    vec(-53.62692036815, 10.627280873155, 0.0), vec(0.0, 0.0, 0.0), vec(-
    47.748607712249, 5.5327432380403, 0.0), vec(0.0, 0.0, 0.0), vec(-
    37.363588686823, 1.0260368685161, 0.0), vec(0.0, 0.0, 0.0), vec(-
    27.762344682185, 6.5124620140238, 0.0), vec(0.0, 0.0, 0.0), vec(-
    20.512425739907, 13.762380956302, 0.0), vec(0.0, 0.0, 0.0), vec(-
    18.944875698333, 22.579849940154, 0.0), vec(0.0, 0.0, 0.0):BLANK=0,PEN=4)
    ;
  mode_local(#1);
  set(BLANK=0);

  IF txt_case = 1 OR txt_case >= 4 OR txt_case <= 0 THEN 
    part(#12,curvetext_3d(global_ref(#11), "www.varkon.org", 0.02, "xy", 
      "pos", 12.0, 50.0, 2, 1.0));
  ENDIF;


  IF txt_case = 2 OR txt_case >= 4 OR txt_case <= 0 THEN 
    part(#14,curvetext_3d(global_ref(#13), 
      "www.varkon.org www.varkon.org www.varkon.org www.varkon.org www.varkon.org "
      , 0.01, "xz", "pos", 3.0, 50.0, 3, 1.0));
  ENDIF;


  IF txt_case = 3 OR txt_case >= 4 OR txt_case <= 0 THEN 
    part(#16,curvetext_3d(global_ref(#15), "www.varkon.org www.varkon.org", 
      0.01, "yz", "pos", 4.0, 50.0, 4, 1.0));
  ENDIF;


ENDMODULE