tests/bugs/vis/bug672_1

   1 puts "==========="
   2 puts "OCC672     "
   3 puts "==========="
   4 ########################################################################################
   5 # Wrong visualization of 2d dimentions
   6 # The following list of problems:
   7 # 1) The length dimension value should always be aligned to the middle of
   8 # the dimension line
   9 # 2) The angular dimension value should always be aligned to the middle of
  10 # the dimension line
  11 # 3) All dimension values (text) must be aligned horizontally or vertically only.
  12 # 4) All dimension lines must be bound with properly sized arrows.
  13 ########################################################################################
  14 puts "Test Length"
  15 puts "==========="
  16
  17 set x1 0
  18 set y1 -50
  19 set x2 400
  20 set y2 0
  21 set x3 400
  22 set y3 200
  23 set x4 0
  24 set y4 200
  25 set str "(center)"
  26 set scale_text 4.0
  27 set length_dist -21.0
  28 set angle 30.0
  29 set ll 5.0
  30 set txtAngle 0.
  31 set txtPosH 0.
  32 set txtPosV 3.
  33
  34 v2dinit
  35
  36 OCC672_Length $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $ll $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV
  37
  38 v2dfit
  39
  40 set only_screen2d 1