0023087: Upgrade of the OCCT test system

Integration of new occt testing system

samples/tcl/bottle.tcl

@@ -0,0 +1,100 @@
+# Script reproducing creation of bottle model as described in OCCT Tutorial
+
+pload MODELING VISUALIZATION
+
+# Construct bottle body
+
+# set basic dimensions
+dset height 70
+dset width 50
+dset thickness 30
+
+# construct base profile (half)
+vertex v1 -width/2 0 0
+vertex v2 -width/2 -thickness/4 0
+edge e1 v1 v2
+
+point p2 -width/2 -thickness/4 0
+point p3 0 -thickness/2 0
+point p4 width/2 -thickness/4 0
+catch {gcarc arc cir p2 p3 p4}
+mkedge e2 arc
+
+vertex v4 width/2 -thickness/4 0
+vertex v5 width/2 0 0
+edge e3 v4 v5
+
+wire w1 e1 e2 e3
+
+# complete profile by mirror and make a prism
+copy w1 w2
+tmirror w2 0 0 0 0 1 0
+
+wire w3 w1 w2
+mkplane f w3
+
+prism p f 0 0 height
+
+# fillet all edges
+explode p e
+blend b p thickness/12 p_1 thickness/12 p_2 thickness/12 p_3 thickness/12 p_4 thickness/12 p_5 thickness/12 p_6 thickness/12 p_7 thickness/12 p_8 thickness/12 p_9 thickness/12 p_10 thickness/12 p_11 thickness/12 p_12 thickness/12 p_13 thickness/12 p_14 thickness/12 p_15 thickness/12 p_16 thickness/12 p_17 thickness/12 p_18
+
+# neck dimensions
+dset neckradius thickness/4
+dset neckheight height/10
+
+# add neck
+pcylinder c neckradius neckheight
+ttranslate c 0 0 height
+
+bfuse f b c
+
+# make body hollow
+explode c f
+offsetshape body f -thickness/50 1.e-3 c_2
+
+# Construct threading
+
+# make two cylinders
+cylinder c1 0 0 height 0 0 1 neckradius*0.99
+cylinder c2 0 0 height 0 0 1 neckradius*1.05
+
+# define threading dimensions in parametric space
+dset major 2*pi
+dset minor neckheight/10
+
+# make parametric curves for threading
+ellipse el1 2*pi neckheight/2 2*pi neckheight/4 major minor
+ellipse el2 2*pi neckheight/2 2*pi neckheight/4 major minor/4
+
+trim arc1 el1 0 pi
+trim arc2 el2 0 pi
+
+2dcvalue el1 0 x1 y1
+2dcvalue el1 pi x2 y2
+
+line l x1 y1 x2-x1 y2-y1
+parameters l x2 y2 1.e-9 U
+trim s l 0 U
+
+# construct 3d edges and wires
+mkedge E1OnS1 arc1 c1 0 pi
+mkedge E2OnS1 s c1 0 U
+mkedge E1OnS2 arc2 c2 0 pi
+mkedge E2OnS2 s c2 0 U
+
+wire tw1 E1OnS1 E2OnS1
+wire tw2 E1OnS2 E2OnS2
+mkedgecurve tw1 1.e-5
+mkedgecurve tw2 1.e-5
+
+# build threading as solid
+thrusections -N thread 1 0 tw1 tw2
+
+# add threading to the body
+compound body thread bottle
+
+# display result
+vdisplay bottle
+vfit
+vsetdispmode 1

src/DrawResources/DrawDefault

@@ -23,9 +23,11 @@ if { [info exists env(DRAWHOME) ] } {
 
 # load standard DRAW scripts
 if { [file isdirectory $dir] } { 
-  foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl} {
+  foreach script {StandardCommands.tcl Geometry.tcl StandardViews.tcl TestCommands.tcl} {
     if [file exist [file join $dir $script]] {
       source [file join $dir $script]
+    } else {
+      puts "Warning: could not find command file $script"
     }
   }
 
@@ -38,6 +40,17 @@ if { [file isdirectory $dir] } {
       wm iconbitmap . -default [file join $dir lamp.ico]
     }
   }
+} else {
+  puts "Warning: could not find DRAW directory"
+}
+
+# set default testing environment
+if { [info exists env(CASROOT)] && [file isdirectory $env(CASROOT)/tests] } {
+    if { ! [info exists env(CSF_TestScriptsPath)] } {
+        set env(CSF_TestScriptsPath) $env(CASROOT)/tests
+    } else {
+        set env(CSF_TestScriptsPath) $env(CSF_TestScriptsPath)[_path_separator]$env(CASROOT)/tests
+    }
 }
 
 # load application-defined initialization script, which is expected to 

src/DrawResources/FILES

@@ -5,7 +5,6 @@ srcinc:::CURVES.tcl
 srcinc:::Documentation.tcl
 srcinc:::DrawTK.tcl
 srcinc:::Geometry.tcl
-srcinc:::WOKcomplement.tcl
 srcinc:::InitEnvironment.tcl
 srcinc:::PROFIL.tcl
 srcinc:::StandardCommands.tcl
@@ -31,3 +30,4 @@ srcinc:::DrawPlugin
 srcinc:::TKTopTest.tcl
 srcinc:::dftree.tcl
 srcinc:::QARebuildCommands
+srcinc:::TestCommands.tcl

src/DrawResources/TKTopTest.tcl

@@ -16,5 +16,5 @@
 # and conditions governing the rights and limitations under the License.
 
 set Draw_GEOMETRY 1
-source $env(CASROOT)/src/DrawResources/CURVES.tcl
-source $env(CASROOT)/src/DrawResources/SURFACES.tcl
+catch {source $env(CASROOT)/src/DrawResources/CURVES.tcl}
+catch {source $env(CASROOT)/src/DrawResources/SURFACES.tcl}

src/DrawResources/WOKcomplement.tcl

@@ -1,46 +0,0 @@
-# Copyright (c) 1999-2012 OPEN CASCADE SAS
-#
-# The content of this file is subject to the Open CASCADE Technology Public
-# License Version 6.5 (the "License"). You may not use the content of this file
-# except in compliance with the License. Please obtain a copy of the License
-# at http://www.opencascade.org and read it completely before using this file.
-#
-# The Initial Developer of the Original Code is Open CASCADE S.A.S., having its
-# main offices at: 1, place des Freres Montgolfier, 78280 Guyancourt, France.
-#
-# The Original Code and all software distributed under the License is
-# distributed on an "AS IS" basis, without warranty of any kind, and the
-# Initial Developer hereby disclaims all such warranties, including without
-# limitation, any warranties of merchantability, fitness for a particular
-# purpose or non-infringement. Please see the License for the specific terms
-# and conditions governing the rights and limitations under the License.
-
-##########################################################
-#
-#  find the name of the station
-#
-proc wokstation {} {
-    set LINE_FROM_UNAME [ exec uname -a ] ;
-    if { [ regexp SunOS $LINE_FROM_UNAME ] } {
-	return "sun"
-    } 
-    elseif { [ regexp IRIX $LINE_FROM_UNAME ] } {
-	return "sil"
-    }
-    elseif { [ regexp OSF $LINE_FROM_UNAME ] } {
-	return "ao1" 
-    }
-    elseif { [ regexp HP-UX $LINE_FROM_UNAME ] } {
-	return "hp"
-    }
-    elseif { [ regexp FreeBSD $LINE_FROM_UNAME ] } {
-	return "bsd"
-    }
-    elseif { [ regexp Darwin $LINE_FROM_UNAME ] } {
-	return "mac"
-    }
-    else {
-	return "unknown"
-    }
-    
-}

tests/3rdparty/begin

@@ -0,0 +1,30 @@
+if { [string compare [datadir] "."] == 0 } {
+   datadir [file dirname [info script]]/data
+}
+
+cpulimit 1000
+
+if { [array get Draw_Groups "Primitive building commands"] == "" } {
+    pload TOPTEST
+}
+
+if { [array get Draw_Groups "ZeViewer"] == "" } {
+    pload AISV
+}
+
+if { [info exists imagedir] == 0 } {
+    set imagedir .
+}
+if { [info exists test_image ] == 0 } {
+   set test_image photo
+}
+
+if { [info exists WorkDirectory] == 0 } {
+    set WorkDirectory "/tmp"
+    if { [array get env TEMP] != "" } {
+	set WorkDirectory "$env(TEMP)"
+    }
+}
+                    
+vinit
+        

tests/3rdparty/end

@@ -0,0 +1,5 @@
+vdump $imagedir/${test_image}.gif
+
+puts ""
+puts "TEST COMPLETED" 
+puts ""

tests/3rdparty/export/A1

@@ -0,0 +1,19 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+if { [array get Draw_Groups "XSTEP-STL/VRML"] == "" } {
+    pload XSDRAW
+}
+
+meshfromstl m [datadir]/shape.stl
+
+meshdispmode m 34
+
+set aFile $WorkDirectory/shape.pdf
+
+set format PDF
+
+set size 154489

tests/3rdparty/export/A2

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToPDF.pdf
+
+set format PDF
+
+set size 10343

tests/3rdparty/export/A3

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToPS.ps
+
+set format PS
+
+set size 10646

tests/3rdparty/export/A4

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToEPS.eps
+
+set format EPS
+
+set size 10590

tests/3rdparty/export/A5

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToTEX.tex
+
+set format TEX
+
+set size 1400

tests/3rdparty/export/A6

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToSVG.svg
+
+set format SVG
+
+set size 14042

tests/3rdparty/export/A7

@@ -0,0 +1,37 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+
+vtrihedron trihedron
+
+vpoint p1 -300 -300 -300
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p2 -300 -300 -100
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p3 -100 -100 -300
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vpoint p4 -100 -100 -100
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+
+vpoint p5 -300 -100 -300
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p6 -100 -300 -300
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vpoint p7 -300 -100 -100
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vpoint p8 -100 -300 -100
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vaxis ax1 100 100 100 100 100 0
+
+box a 110 110 110 200 200 200
+vdisplay a
+
+set aFile $WorkDirectory/ExportToPGF.pgf
+
+set format PGF
+
+set size 21886

tests/3rdparty/export/end

@@ -0,0 +1,12 @@
+vexport ${aFile} ${format}
+
+if { [file exists ${aFile}] } {
+    puts "Export to ${format} file was done."
+    set filesize [file size ${aFile}]
+# Check if difference of size is more 5%
+    if { $filesize < $size && [expr 1.*($size - $filesize)/$size] > 0.05 } {
+	puts "Error: Export to ${format} file was done but file has a different size ($filesize instead of $size)."
+    }
+} else {
+    puts " Faulty: Export to${format}  file was not done."
+}

tests/3rdparty/fonts/A1

@@ -0,0 +1,19 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+###### vcolorscale: vcolorscale [RangeMin RangeMax Intervals HeightFont Position X Y]: draw color scale
+###### RangeMin - min of color scale number range
+###### RangeMax - max of color scale number range
+###### Intervals - number of color scale segments
+###### HeightFont - height of font
+###### Position - Defines position for color scale labels 
+############### 0 - NONE
+############### 1 - LEFT
+############### 2 - RIGHT
+############### 3 - CENTER
+###### X,Y - coordinates of color scale
+
+vcolorscale 10 20 100 16 2 0 0
+

tests/3rdparty/fonts/A2

@@ -0,0 +1,91 @@
+puts "============"
+puts "OCC21091"
+puts "OCC21450"
+puts "============"
+puts ""
+#vdrawtext: vdrawtext name X Y Z R G B hor_align ver_align angle zoomable height Aspect FONT
+#------------------------------------------------------
+# X\Y\Z - Position Of Text
+#------------------------------------------------------
+# R\G\B - Color Of Text
+#------------------------------------------------------
+# hor_align 0 to 3
+# HorizontalTextAlignment is 	HTA_LEFT	0
+#				HTA_CENTER	1
+#				HTA_RIGHT	2
+#
+# ver_align 0 to 4
+# VerticalTextAlignment is	VTA_BOTTOM      0
+#				VTA_CENTER      1
+#		      		VTA_TOP         2   
+#------------------------------------------------------
+# angle - angle turn of text. this variable in degrees
+#------------------------------------------------------
+# zoomable - if this variable "0" text not zoomable
+#	     if this variable "1" text zoomable	as object in DrawCommands  
+#------------------------------------------------------
+# height - Font Height
+#------------------------------------------------------
+# Aspect - Aspect Font 0 to 4
+# If in list of textfont, not find font with necessary aspect, will be used default font "Courier" with  OSD_FA_Regular aspect
+# FontAspect is FA_Undefined, FA_Regular, FA_Bold, FA_Italic, FA_BoldItalic
+#                   - 0 -	- 1 -	   - 2 -     - 3 -         - 4 -      
+#------------------------------------------------------
+# FONT - font name of font
+# If in list of textfont, not find font with necessary Name, will be used default font "Courier"
+#
+
+vtrihedron trihedr
+
+vpoint p1  100  100 -400
+vpoint p2  000  000 -400
+vpoint p3 -100 -100 -400
+vdrawtext OpenCascade  100  100 -400 000 255 255 0 0 000 1 50 1 Times-Roman 
+vdrawtext OpenCascade  000  000 -400 000 255 255 1 0 000 1 50 1 Times-Roman
+vdrawtext OpenCascade -100 -100 -400 000 255 255 2 0 000 1 50 1 Times-Roman     
+
+vpoint p4  100  100 -500
+vpoint p5  000  000 -500
+vpoint p6 -100 -100 -500 
+vdrawtext OpenCascade  100  100 -500 255 000 000 0 2 000 1 50 1 Times-Roman 
+vdrawtext OpenCascade  000  000 -500 255 000 000 1 2 000 1 50 1 Times-Roman 
+vdrawtext OpenCascade -100 -100 -500 255 000 000 2 2 000 1 50 1 Times-Roman  
+
+vpoint p7  100  100 -450
+vpoint p8  000  000 -450
+vpoint p9 -100 -100 -450 
+vdrawtext OpenCascade  100  100 -450 005 255 000 0 1 000 1 50 1 Times-Roman 
+vdrawtext OpenCascade  000  000 -450 005 255 000 1 1 000 1 50 1 Times-Roman 
+vdrawtext OpenCascade -100 -100 -450 005 255 000 2 1 000 1 50 1 Times-Roman  
+
+
+vdrawtext _.Left._ 200 200 200 255 255 255 0 0 000 1 50 1 Times-Roman 
+vdrawtext _.Left._ 200 200 200 255 255 000 0 0 090 1 50 1 Times-Roman 
+
+vdrawtext _.Right._ 200 200 200 255 000 255 2 2 000 1 50 1 Times-Roman 
+vdrawtext _.Right._ 200 200 200 255 155 150 2 2 090 1 50 1 Times-Roman 
+
+vdrawtext _.0123456789._ 200 200 200 000 000 255 1 1 045 1 50 1 Times-Roman 
+vdrawtext _.0123456789._ 200 200 200 255 000 000 1 1 -45 1 50 1 Times-Roman 
+
+vdrawtext _.~!@#$%^&*:?|+-._ -200 000 400 255 000 000 0 0 0 1 50 1 Times-Roman 
+
+box atextbox -100 -100 -100 -200 -200 -200
+vdisplay atextbox
+
+vdrawtext OpenCascade -300 -300 -300 000 255 000 0 0 000 0 15 1 Courier 
+vdrawtext OpenCascade -300 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+vdrawtext OpenCascade -100 -100 -300 000 255 000 0 0 000 0 15 1 Courier 
+vdrawtext OpenCascade -100 -100 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vdrawtext OpenCascade -300 -100 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -300 -300 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -300 -100 -100 000 255 000 0 0 000 0 15 1 Courier
+vdrawtext OpenCascade -100 -300 -100 000 255 000 0 0 000 0 15 1 Courier 
+
+vdrawtext OpenCascade -200 -200 100 255 000 255 0 0 010 0 15 1 Times-Roman 
+vdrawtext OpenCascade -200 -200 150 000 255 255 0 0 010 0 15 1 Arbat 
+vdrawtext OpenCascade -200 -200 200 255 255 000 0 0 010 0 15 3 Elephant
+vdrawtext OpenCascade -200 -200 250 000 255 005 0 0 010 0 15 4 RockWell
+vdrawtext OpenCascade -200 -200 300 255 000 005 0 0 010 0 15 1 Webdings
+vdrawtext OpenCascade -200 -200 350 255 000 205 0 0 010 0 15 1 Arial

tests/3rdparty/grids.list

@@ -0,0 +1,2 @@
+001 export
+002 fonts

tests/blend/begin

@@ -0,0 +1,23 @@
+# To prevent loops limit to 10 minutes
+cpulimit 600
+
+#setting variables for CFI test group
+dset SCALE 1000
+protect SCALE
+dset SCALE1 10
+protect SCALE1
+dset SCALE2 1
+protect SCALE2
+dset SCALE3 5
+protect SCALE3
+
+if { [array get Draw_Groups "TOPOLOGY Feature commands"] == "" } {
+	pload TOPTEST
+}
+
+if { [info exists imagedir] == 0 } {
+   set imagedir .
+}
+if { [info exists test_image ] == 0 } {
+   set test_image photo
+}

tests/blend/bfuseblend/A1

@@ -0,0 +1,9 @@
+box b -15 -15 -15 30 30 15
+pcylinder s 10 15
+ttranslate s 0 0 -0.01
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 451533

tests/blend/bfuseblend/A2

@@ -0,0 +1,9 @@
+box b -15 -15 -15 30 30 15
+pcone s 10 5 20
+ttranslate s 0 0 -0.01
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 432086

tests/blend/bfuseblend/A3

@@ -0,0 +1,8 @@
+box b -15 -15 -15 30 30 15
+psphere s 10 0 90 
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 389033

tests/blend/bfuseblend/A4

@@ -0,0 +1,8 @@
+box b 0 -30 -10 20 20 20
+ptorus s 20 5 270 
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 534763

tests/blend/bfuseblend/A5

@@ -0,0 +1,8 @@
+box b -30 -30 -30 60 60 30
+ptorus s 20 5 0 90
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 1.47825e+06

tests/blend/bfuseblend/A6

@@ -0,0 +1,11 @@
+box b -30 -30 -30 60 60 30
+ptorus s 20 10 90 180
+treverse s
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+explode s E
+bfuseblend result s b 3*SCALE1
+ 
+set square 1.65656e+06

tests/blend/bfuseblend/A7

@@ -0,0 +1,12 @@
+box b -20 -20 -20 40 40 20
+ellipse w 0 0 0 10 5
+mkedge w w
+wire w w
+mkplane w w
+prism s w 2 0 30
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+
+set square 783698

tests/blend/bfuseblend/A8

@@ -0,0 +1,16 @@
+box b -20 -20 -20 40 40 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 -pi/2 pi/2
+trotate w1 0 0 0 1 0 0 90
+wire w w1
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 677145

tests/blend/bfuseblend/A9

@@ -0,0 +1,17 @@
+box b -30 -30 -30 60 60 20
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 15 0 0  27 0 -12  0 0 -12  0 0 10
+orientation w2 R
+wire w w1 w2
+revol r w 0 0 0 0 0 1 360
+shape s So
+add r s
+trotate s b 0 0 0 1 1 0 -40
+trotate s b 0 0 0 0 0 1 -10
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+bfuseblend result s b 1*SCALE1
+ 
+set square 1.29262e+06

tests/blend/bfuseblend/B1

@@ -0,0 +1,15 @@
+box b -15 -15 -15 15 30 30
+polyline w 0 0 0 10 10 0
+circle profile 0 0 0 1 0 0 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+pipe s w profile
+trotate s b 0 0 0 1 1 0 -20
+trotate s b 0 0 0 0 0 1 20
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 395701

tests/blend/bfuseblend/B2

@@ -0,0 +1,16 @@
+box b -15 -15 -15 15 30 30
+beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
+mkedge w w
+wire w w
+circle profile 0 0 0 1 0 0 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+pipe s w profile
+tscale b 0 0 0 SCALE1
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+bfuseblend result s b 1*SCALE1
+ 
+set square 431283

tests/blend/bfuseblend/B3

@@ -0,0 +1,9 @@
+box s1 10 10 10 
+pcylinder s2 3 20 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 5 15 5
+tscale s1 0 0 0 SCALE1
+tscale s2 0 0 0 SCALE1
+bfuseblend result s1 s2 0.5*SCALE1
+
+set square 78849.6

tests/blend/bfuseblend/B4

@@ -0,0 +1,10 @@
+pcylinder s1 5 15 
+pcylinder s2 3 20 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 0 10 7
+ttranslate s1 s2 5 5 0
+tscale s1 0 0 0 SCALE1
+tscale s2 0 0 0 SCALE1
+bfuseblend result s1 s2 0.5*SCALE1
+
+set square 82598.9

tests/blend/bfuseblend/B5

@@ -0,0 +1,10 @@
+pcylinder s1 3 10 
+pcylinder s2 4 16 
+trotate s2 0 0 0 1 0 0 80
+ttranslate s2 0 9 -3
+ttranslate s1 s2 5 5 0
+tscale s1 0 0 0 SCALE1
+tscale s2 0 0 0 SCALE1
+bfuseblend result s1 s2 0.5*SCALE1
+
+set square 65305.3

tests/blend/bfuseblend/B6

@@ -0,0 +1,9 @@
+pcylinder s1 3 15 
+pcylinder s2 3 15 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 0 7.5 7.5
+tscale s1 0 0 0 SCALE1
+tscale s2 0 0 0 SCALE1
+bfuseblend result s1 s2 1*SCALE1
+
+set square 52829.1

tests/blend/bfuseblend/B7

@@ -0,0 +1,9 @@
+pcylinder s1 3 15 
+pcylinder s2 3 15 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 0.0001 7.5 7.5
+tscale s1 0 0 0 SCALE1
+tscale s2 0 0 0 SCALE1
+bfuseblend result s1 s2 1*SCALE1
+
+set square 54092.4

tests/blend/buildevol/A1

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : A5
+## Comment : 
+## ====================================
+
+box s 100 100 10
+explode s E
+mkevol result s
+updatevol s_5 0 2 1 4 2 2
+buildevol
+
+set square 23985.2

tests/blend/buildevol/A2

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : B2
+## Comment : 
+## ====================================
+
+wedge s 40 100 100 20 20 70 70
+explode s E
+mkevol result s
+updatevol s_5 0 10 1 20 2 10
+buildevol
+
+set square 30913

tests/blend/buildevol/A3

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : B5
+## Comment : 
+## ====================================
+
+wedge s 40 100 100 0
+explode s E
+mkevol result s
+updatevol s_5 0 10 1 20 2 10
+buildevol
+
+set square 27121

tests/blend/buildevol/A4

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : C2
+## Comment : 
+## ====================================
+
+pcylinder s 50 100 90
+trotate s 0 0 0 0 0 1 90
+explode s E
+mkevol result s
+updatevol s_9 0 10 1 20 2 10
+buildevol
+
+set square 21068.3

tests/blend/buildevol/A5

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : C5
+## Comment : 
+## ====================================
+
+pcylinder s 50 100 90
+trotate s 0 0 0 0 0 1 270
+explode s E
+mkevol result s
+updatevol s_1 0 10 1 20 2 10
+buildevol
+
+set square 21188.6

tests/blend/buildevol/A6

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : D2
+## Comment : 
+## ====================================
+
+pcylinder s 50 100 270
+explode s E
+mkevol result s
+updatevol s_9 0 10 1 20 2 10
+buildevol
+
+set square 44716.1

tests/blend/buildevol/A7

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : D5
+## Comment : 
+## ====================================
+
+pcylinder s 50 100 270
+explode s E
+mkevol result s
+updatevol s_2 0 10 1 20 2 10
+buildevol
+
+set square 44127.7

tests/blend/buildevol/A8

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : E2
+## Comment : 
+## ====================================
+
+pcone s 90 40 150 90
+trotate s 0 0 0 0 0 1 90
+explode s E
+mkevol result s
+updatevol s_9 0 10 1 20 2 10
+buildevol
+
+set square 42210.2

tests/blend/buildevol/A9

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : E5
+## Comment : 
+## ====================================
+
+pcone s 90 40 150 90
+trotate s 0 0 0 0 0 1 270
+explode s E
+mkevol result s
+updatevol s_3 0 10 1 20 2 10
+buildevol
+
+set square 41218.7

tests/blend/buildevol/B1

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : F2
+## Comment : 
+## ====================================
+
+pcone s 90 40 150 270
+explode s E
+mkevol result s
+updatevol s_9 0 10 1 20 2 10
+buildevol
+
+set square 89820.2

tests/blend/buildevol/B2

@@ -0,0 +1,13 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : F5
+## Comment : 
+## ====================================
+
+pcone s 90 40 150 270
+explode s E
+mkevol result s
+updatevol s_1 0 10 1 20 2 10
+buildevol
+
+set square 90149.1

tests/blend/buildevol/B3

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : G2
+## Comment : 
+## ====================================
+
+pcone s 50 0 120 90
+trotate s 0 0 0 0 0 1 90
+explode s E
+mkevol result s
+updatevol s_7 0 10 1 20 2 10
+buildevol
+
+set square 11500.5

tests/blend/buildevol/B4

@@ -0,0 +1,14 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : G5
+## Comment : 
+## ====================================
+
+pcone s 50 0 120 90
+trotate s 0 0 0 0 0 1 270
+explode s E
+mkevol result s
+updatevol s_3 0 10 1 20 2 10
+buildevol
+
+set square 11734.1

tests/blend/buildevol/B5

@@ -0,0 +1,15 @@
+## ====================================
+## Grid	   : CFI001
+## Test    : H2
+## Comment : 
+## ====================================
+
+psphere s 15 -60 60 90
+trotate s 0 0 0 0 0 1 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_9 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 134866

tests/blend/buildevol/B6

@@ -0,0 +1,9 @@
+psphere s 15 -60 60 90
+trotate s 0 0 0 0 0 1 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_2 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 134103

tests/blend/buildevol/B7

@@ -0,0 +1,8 @@
+psphere s 15 -60 60 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_9 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 275055

tests/blend/buildevol/B8

@@ -0,0 +1,8 @@
+psphere s 15 -60 60 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 276679

tests/blend/buildevol/B9

@@ -0,0 +1,9 @@
+psphere s 15 -90 60 90
+trotate s 0 0 0 0 0 1 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_7 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 137086

tests/blend/buildevol/C1

@@ -0,0 +1,9 @@
+psphere s 15 -90 60 90
+trotate s 0 0 0 0 0 1 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_2 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 135853

tests/blend/buildevol/C2

@@ -0,0 +1,8 @@
+ptorus s 10 10 0 45 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 104110

tests/blend/buildevol/C3

@@ -0,0 +1,8 @@
+ptorus s 10 10 0 45 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_9 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 104232

tests/blend/buildevol/C4

@@ -0,0 +1,8 @@
+ptorus s 20 5 0 160 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 124704

tests/blend/buildevol/C5

@@ -0,0 +1,8 @@
+ptorus s 20 5 0 160 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_8 0 1*SCALE1 1 1.5*SCALE1 2 1*SCALE1
+buildevol
+
+set square 124280

tests/blend/buildevol/C6

@@ -0,0 +1,13 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi
+polyline w2 -15 0 0 0 -5 0 15 0 0
+wire w w1 w2
+mkplane w w
+prism s w 2 0 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 133326

tests/blend/buildevol/C7

@@ -0,0 +1,13 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi
+polyline w2 -15 0 0 0 -5 0 15 0 0
+wire w w1 w2
+mkplane w w
+prism s w 2 0 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_5 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 133708

tests/blend/buildevol/C8

@@ -0,0 +1,13 @@
+parabola w1 0 0 0 1 0 0 0 0 1 50
+mkedge w1 w1 -100 100
+polyline w2 0 -100 50 0 100 50
+wire w w1 w2
+mkplane w w
+prism s w 20 0 100
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_2 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 5.10383e+06

tests/blend/buildevol/C9

@@ -0,0 +1,13 @@
+parabola w1 0 0 0 1 0 0 0 0 1 50
+mkedge w1 w1 -100 100
+polyline w2 0 -100 50 0 100 50
+wire w w1 w2
+mkplane w w
+prism s w 20 0 100
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE 1 2*SCALE 2 1*SCALE
+buildevol
+
+set square 5.39403e+06

tests/blend/buildevol/D1

@@ -0,0 +1,13 @@
+beziercurve w1 5 0 0 0 20 0 0 20 5 0 25 10 0 10 20 0
+mkedge w1 w1 
+polyline w2 10 20 0 0 0 0
+wire w w1 w2
+mkplane w w
+prism s w 0 2 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 106625

tests/blend/buildevol/D2

@@ -0,0 +1,13 @@
+beziercurve w1 5 0 0 0 20 0 0 20 5 0 25 10 0 10 20 0
+mkedge w1 w1 
+polyline w2 10 20 0 0 0 0
+wire w w1 w2
+mkplane w w
+prism s w 0 2 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 106172

tests/blend/buildevol/D3

@@ -0,0 +1,13 @@
+bsplinecurve w1 3 2  -1.0 4   1.0 4  0 0 0 1  2 10 0 1  4 6 0 1  10 0 0 1
+mkedge w1 w1 
+polyline w2 10 0 0 0 0 0
+wire w w1 w2
+mkplane w w
+prism s w 0 2 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 0.5*SCALE1 1 1.*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 33785.2

tests/blend/buildevol/D4

@@ -0,0 +1,13 @@
+bsplinecurve w1 3 2  -1.0 4   1.0 4  0 0 0 1  2 10 0 1  4 6 0 1  10 0 0 1
+mkedge w1 w1 
+polyline w2 10 0 0 0 0 0
+wire w w1 w2
+mkplane w w
+prism s w 0 2 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 0.3*SCALE1 1 0.6*SCALE1 2 0.3*SCALE1
+buildevol
+
+set square 33938.1

tests/blend/buildevol/D5

@@ -0,0 +1,14 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
+wire w w1 w2
+mkplane w w
+revol s w 0 0 0 0 0 1 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 427160

tests/blend/buildevol/D6

@@ -0,0 +1,14 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 0 0 10 0 0 -10 25 0 -10 15 0 0
+wire w w1 w2
+mkplane w w
+revol s w 0 0 0 0 0 1 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_10 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 426050

tests/blend/buildevol/D7

@@ -0,0 +1,10 @@
+polyline w 0 0 25  20 0 5  5 0 5  5 0 -5  20 0 -5  0 0 -25  0 0 25
+mkplane w w
+revol s w 0 0 0 0 0 1 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_8 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 555384

tests/blend/buildevol/D8

@@ -0,0 +1,11 @@
+puts "TODO OCC22817 All: Faulty shapes in variables faulty_1 to faulty_2"
+polyline w 0 0 25  20 0 5  5 0 5  5 0 -5  20 0 -5  0 0 -25  0 0 25
+mkplane w w
+revol s w 0 0 0 0 0 1 270
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 554378

tests/blend/buildevol/D9

@@ -0,0 +1,14 @@
+circle w -20 0 0 20
+mkedge w w 0 pi/2
+wire w w
+polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+mkevol result s
+updatevol s_5 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 87027.5

tests/blend/buildevol/E1

@@ -0,0 +1,14 @@
+circle w -20 0 0 20
+mkedge w w 0 pi/2
+wire w w
+polyline profile 0 0 0  10 0 0  5 0 5  0 0 0
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+mkevol result s
+updatevol s_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 99053.9

tests/blend/buildevol/E2

@@ -0,0 +1,14 @@
+beziercurve w 3 0 0 0 5 10 0 10 15 0
+mkedge w w
+wire w w
+polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  0 0 0
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+mkevol result s
+updatevol s_5 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 81492.8

tests/blend/buildevol/E3

@@ -0,0 +1,14 @@
+beziercurve w 3 0 0 0 5 10 0 10 15 0
+mkedge w w
+wire w w
+polyline profile 0 0 0  10 0 0  10 0 10  0 0 10  0 0 0
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+mkevol result s
+updatevol s_6 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 81299.7

tests/blend/buildevol/E4

@@ -0,0 +1,8 @@
+pcylinder s 5 15
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 61785.2

tests/blend/buildevol/E5

@@ -0,0 +1,8 @@
+pcone s 10 5 20
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 135224

tests/blend/buildevol/E6

@@ -0,0 +1,8 @@
+psphere s 5 -90 45 
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 30499.9

tests/blend/buildevol/E7

@@ -0,0 +1,8 @@
+ptorus s 20 5 270 
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_2 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 309758

tests/blend/buildevol/E8

@@ -0,0 +1,8 @@
+ptorus s 20 5 0 90
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_3 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 418406

tests/blend/buildevol/E9

@@ -0,0 +1,8 @@
+ptorus s 20 5 0 150
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 444541

tests/blend/buildevol/F1

@@ -0,0 +1,12 @@
+ellipse w 0 0 0 10 5
+mkedge w w
+wire w w
+mkplane w w
+prism s w 2 0 10
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_3 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 78053.9

tests/blend/buildevol/F2

@@ -0,0 +1,14 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 15 0 0  25 0 -10  0 0 -10  0 0 10
+orientation w2 R
+wire w w1 w2
+revol s w 0 0 0 0 0 1 360
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+
+set square 484801

tests/blend/buildevol/F3

@@ -0,0 +1,14 @@
+ellipse w1 0 0 0 15 10
+mkedge w1 w1 0 pi/2
+trotate w1 0 0 0 1 0 0 90
+polyline w2 15 0 0  25 0 -10  0 0 -10  0 0 10
+orientation w2 R
+wire w w1 w2
+revol s w 0 0 0 0 0 1 360
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_4 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 428442

tests/blend/buildevol/F4

@@ -0,0 +1,13 @@
+polyline w 0 0 0 10 10 0
+circle profile 0 0 0 1 0 0 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+explode s E
+mkevol result s
+updatevol s_1 0 2*SCALE1 1 1*SCALE1 2 2*SCALE1
+buildevol
+ 
+set square 49612.1

tests/blend/buildevol/F5

@@ -0,0 +1,16 @@
+beziercurve w 4 0 0 0 10 0 0 10 10 0 20 10 0
+mkedge w w
+wire w w
+circle profile 0 0 0 1 0 0 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+pipe s w profile
+tscale s 0 0 0 SCALE1
+fsameparameter s SCALE1*1.e-7
+explode s E
+mkevol result s
+updatevol s_1 0 1*SCALE1 1 2*SCALE1 2 1*SCALE1
+buildevol
+ 
+set square 86185.5

tests/blend/buildevol/F6

@@ -0,0 +1,16 @@
+
+#box s1 10 10 10 
+#pcylinder s2 3 20 
+#trotate s2 0 0 0 1 0 0 90
+#ttranslate s2 5 15 5
+#cut s s1 s2
+#save s L12.draw 
+
+restore L12.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_5 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 72604.8

tests/blend/buildevol/F7

@@ -0,0 +1,13 @@
+pcylinder s1 5 15 
+pcylinder s2 3 15 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 0 7 7
+ttranslate s1 s2 5 5 0
+bcut s s1 s2
+tscale s 0 0 0 SCALE1
+nexplode s e
+mkevol result s
+updatevol s_1 0 0.3*SCALE1 1 0.5*SCALE1 2 0.3*SCALE1
+buildevol
+
+set square 72838.2

tests/blend/buildevol/F8

@@ -0,0 +1,13 @@
+pcylinder s1 5 15 
+pcylinder s2 3 15 
+trotate s2 0 0 0 1 0 0 90
+ttranslate s2 0 7 7
+ttranslate s1 s2 5 5 0
+bcut s s1 s2
+tscale s 0 0 0 SCALE1
+nexplode s e
+mkevol result s
+updatevol s_4 0 0.3*SCALE1 1 0.5*SCALE1 2 0.3*SCALE1
+buildevol
+
+set square 73347.5

tests/blend/buildevol/F9

@@ -0,0 +1,8 @@
+restore 2_O12.draw s
+explode s e
+
+mkevol result s
+updatevol s_5 0 2*SCALE1 1 1*SCALE1 2 2*SCALE1
+buildevol
+
+set square 5.34396e+06

tests/blend/buildevol/G1

@@ -0,0 +1,17 @@
+puts "TODO OCC22817 All: exception.+There are no suitable edges"
+puts "TODO OCC22817 All: \\*\\* Exception \\*\\*"
+puts "TODO OCC22817 All: TEST INCOMPLETE"
+
+pcylinder s1 3 10 
+pcylinder s2 4 16 
+trotate s2 0 0 0 1 0 0 80
+ttranslate s2 0 9 -3
+ttranslate s1 s2 5 5 0
+bcut s s1 s2
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_2 0 0.3*SCALE1 1 0.5*SCALE1 2 0.3*SCALE1
+buildevol
+
+set square 0

tests/blend/buildevol/G2

@@ -0,0 +1,14 @@
+#box s1 0 0 0 10 10 10
+#box s2 0 0 0 3 2 7
+#ttranslate s2 3 0 1
+#cut s s1 s2
+#save s A1234.draw 
+
+restore A1234.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_10 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 63753.9

tests/blend/buildevol/G3

@@ -0,0 +1,14 @@
+#box s1 0 0 0 10 10 10
+#box s2 0 0 0 4 4 4
+#ttranslate s2 4 4 10
+#fuse s s1 s2
+#save s A5678.draw 
+
+restore A5678.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_16 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 66266.6

tests/blend/buildevol/G4

@@ -0,0 +1,15 @@
+#box s1 0 0 0 10 10 10
+#box s2 0 0 0 4 5 7
+#ttranslate s2 8 -1 3
+#trotate s1 s2 0 0 0 0 0 1 10
+#cut s s1 s2
+#save s B1234.draw 
+
+restore B1234.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_9 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 59764.7

tests/blend/buildevol/G5

@@ -0,0 +1,15 @@
+#box s1 0 0 0 10 10 10
+#box s2 0 0 0 3 4 7
+#ttranslate s2 9 -1 0
+#trotate s1 s2 0 0 0 0 0 1 10
+#fuse s s1 s2
+#save s B5678.draw 
+
+restore B5678.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_2 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 65911.7

tests/blend/buildevol/G6

@@ -0,0 +1,15 @@
+#box s1 0 0 0 10 10 10
+#pcylinder s2 3 4 90
+#trotate s2 0 0 0 0 0 1 90
+#ttranslate s2 5 1.5 10
+#fuse s s1 s2
+#save s C5678.draw 
+
+restore C5678.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_14 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 64151.6

tests/blend/buildevol/G7

@@ -0,0 +1,15 @@
+#box s1 0 0 0 10 10 10
+#pcylinder s2 3 5 90
+#trotate s2 0 0 0 0 0 1 90
+#ttranslate s2 5 -1 0
+#cut s s1 s2
+#save s D1234.draw 
+
+restore D1234.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_15 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 61178.8

tests/blend/buildevol/G8

@@ -0,0 +1,14 @@
+#box s1 0 0 0 10 10 10
+#pcylinder s2 2.5 5 270
+#ttranslate s2 6 5 10
+#fuse s s1 s2
+#save s D5678.draw 
+
+restore D5678.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_14 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 68102.2

tests/blend/buildevol/G9

@@ -0,0 +1,15 @@
+#box s1 0 0 0 10 10 10
+#pcylinder s2 2 5
+#ttranslate s2 10 10 0
+#trotate s1 s2 0 0 0 0 0 1 -10
+#fuse s s1 s2
+#save s E5678.draw 
+
+restore E5678.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_4 0 0.5*SCALE1 1 1*SCALE1 2 0.5*SCALE1
+buildevol
+
+set square 64488.9

tests/blend/buildevol/H1

@@ -0,0 +1,15 @@
+#pcylinder s1 5 13
+#box s2 0 0 0 3 5 7
+#ttranslate s2 0 -7 1
+#ttranslate s1 s2 5 5 0
+#cut s s1 s2
+#save s F1234.draw 
+
+restore F1234.draw s
+tscale s 0 0 0 SCALE1
+explode s e
+mkevol result s
+updatevol s_5 0 0.3*SCALE1 1 0.5*SCALE1 2 0.3*SCALE1
+buildevol
+
+set square 61452