+++ /dev/null
-puts "========================"
-puts "OCC625"
-puts "========================"
-puts ""
-###############################################################################
-## Created filler looks strange (see attached picture) inspite of checkshapes told about correct source and result shapes.
-###############################################################################
-
-pload QAcommands
-
-restore [locate_data_file OCC625.brep] a
-checkshape a
-
-vinit
-tclean a
-explode a e
-
-blend res1 a 10 a_22 10 a_14
-blend result res1 10 a_17 10 a_4
-checkshape result
-
-vinit
-vdisplay result
-vfit
-vsetdispmode result 1
-
-set x_coord 116
-set y_coord 252
-
-checkcolor $x_coord $y_coord 0.82 0.58 0.09
-
-set square 19977
-set 3dviewer 1
\ No newline at end of file