puts "================"
puts "0032817: Data Exchange - Step export - writing untrimmed Curve"
puts "================"

pload XDE

catch {Close D}
XNewDoc D
line l1 0 0 0 0 1 0
mkedge e1 l1 10 2e+100
XAddShape D e1
WriteStep D $imagedir/${casename}.stp
file delete $imagedir/${casename}.stp