puts "========" puts "OCC194" puts "(case 2)" puts "========" puts "" ############################################### ##puts "Creating of 2D Rectangular ROTATED Grid WITHOUT Lines" ##puts "(visual checking for this case is desirable)" ############################################### v2dinit v2dgrid Rect 500 500 200 200 45 Points set x_coord 20 set y_coord 21 set color2d 1 checkcolor $x_coord $y_coord 0.7 0.7 0.7 if { $stat != 1 } { puts "Error : 2D Rectangular ROTATED Grid WITHOUT Lines was NOT CREATED properly" } set only_screen2d 1