puts "========"
puts "OCC193"
puts "========"
puts ""
##################################################
##puts "Selection of NODE of ROTATED 2D Circular Grid WITH Lines"
##puts "(visual checking for this case is desirable)"
##################################################

v2dinit
v2dgrid Circ 500 500 250 12 30 Lines

set Position_X -667.802
set Position_Y -441.402

set x_coord 67
set y_coord 295
set color2d 1

checkcolor $x_coord $y_coord 0.49 0.49 0.49

if { $stat != 1 } {
    puts "Error : Objects was not displayed"
}

v2dpickgrid 67 295 x_ch y_ch

if { ${x_ch} != ${Position_X} || ${y_ch} != ${Position_Y} } {
   puts "Error : Function v2dpickgrid works wrongly"
}

set only_screen2d 1