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 Diameter "
puts "==========="

set x1 -100 
set y1 -100
set cx 0 
set cy 0
set radius 50
set aText "10-E6"
set aTxtScale 4.0
set anArrAngle 30
set anArrLength 20.0
set txtAngle 0.
set txtPosH 5.
set txtPosV 3.


v2dinit

OCC672_Diameter $x1 $y1 $cx $cy $radius $aText $aTxtScale $anArrAngle $anArrLength $txtAngle $txtPosH $txtPosV

v2dfit

set only_screen2d 1