puts "==========="
puts "OCC672     "
puts "==========="
########################################################################################
# Wrong visualization of 2d dimentions
# The following list of problems:
# 1) The length dimension value should always be aligned to the middle of 
# the dimension line
# 2) The angular dimension value should always be aligned to the middle of 
# the dimension line
# 3) All dimension values (text) must be aligned horizontally or vertically only.
# 4) All dimension lines must be bound with properly sized arrows.
########################################################################################
puts "Test Length"
puts "==========="

set x1 0 
set y1 -50
set x2 400
set y2 0 
set x3 400
set y3 200
set x4 0 
set y4 200
set str "(center)"
set scale_text 4.0
set length_dist -21.0
set angle 30.0
set length 5.0
set txtAngle 0.
set txtPosH 0.
set txtPosV 3.

v2dinit

OCC672_Length $x1 $y1 $x2 $y2 $str $scale_text $length_dist $angle $length $x3 $y3 $x4 $y4 $txtAngle $txtPosH $txtPosV

v2dfit

set only_screen2d 1