puts "========"
puts "CR27534"
puts "========"
puts ""
####################################################################
## [Regression to 6.9.1]: Infinite loop in Curve on Surface projection algorithm
####################################################################

# This test produces different results on windows and linux.
# Windows result is unstable. Linux result is used as reference.
puts "TODO ?OCC29268 Windows: The length of result shape is"

# Prepare initial data
sphere s 0 0 0 10
circle c 0 0 0 0 0 1 10

# Trim curve
trim c c 0 pi

# Convert geometry to topology
mkface f s
mkedge e c

# Convert to splines
nurbsconvert f f
nurbsconvert e e

# Switch back to geometry
mksurface s f
mkcurve c e

# Build projection
project c2d c s -t 0.2

# Length check
checklength c2d -l 3.1415926535897931

# Visual Check
v2d
2dfit

checkview -screenshot -2d -path ${imagedir}/${test_image}.png