0023364: Integration of test grid "cpp" into the new testing system

Integration of test grid "cpp" (pipe) into the new testing system

diff --git a/tests/pipe/standard/A2 b/tests/pipe/standard/A2
new file mode 100644 (file)
index 0000000..161999b
--- /dev/null
+++ b/tests/pipe/standard/A2
@@ -0,0 +1,10 @@
+circle profile 0 150 5 0 1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+beziercurve w 7 0 150 0 0 200 50 0 170 70 0 40 30 0 0 0 0 50 10 0 140 0
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 7516.8

diff --git a/tests/pipe/standard/A3 b/tests/pipe/standard/A3
new file mode 100644 (file)
index 0000000..973530a
--- /dev/null
+++ b/tests/pipe/standard/A3
@@ -0,0 +1,9 @@
+hyperbola profile 0 35 35 0 1 -1 50 50
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+ellipse w 0 40 0 1 0 0 100 40
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 113874

diff --git a/tests/pipe/standard/A4 b/tests/pipe/standard/A4
new file mode 100644 (file)
index 0000000..a466f32
--- /dev/null
+++ b/tests/pipe/standard/A4
@@ -0,0 +1,10 @@
+circle profile 10 0 0 0 1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+circle w 0 50 0 1 0 0 50
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 8385.98

diff --git a/tests/pipe/standard/A5 b/tests/pipe/standard/A5
new file mode 100644 (file)
index 0000000..1466bcc
--- /dev/null
+++ b/tests/pipe/standard/A5
@@ -0,0 +1,10 @@
+circle profile 10 0 0 0 1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+ellipse w 20 20 0 1 0 0 60 20
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 7767.04

diff --git a/tests/pipe/standard/A6 b/tests/pipe/standard/A6
new file mode 100644 (file)
index 0000000..5da7305
--- /dev/null
+++ b/tests/pipe/standard/A6
@@ -0,0 +1,10 @@
+circle profile  0 -115.064945 75.458923 1 -1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 8185.6

diff --git a/tests/pipe/standard/A7 b/tests/pipe/standard/A7
new file mode 100644 (file)
index 0000000..7ae1b8d
--- /dev/null
+++ b/tests/pipe/standard/A7
@@ -0,0 +1,8 @@
+circle profile 0 0 0 1 1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+polyline w 10 0 0 0 30 30 0 70 70
+pipe result w profile
+
+set square 2925.22

diff --git a/tests/pipe/standard/A8 b/tests/pipe/standard/A8
new file mode 100644 (file)
index 0000000..6055242
--- /dev/null
+++ b/tests/pipe/standard/A8
@@ -0,0 +1,10 @@
+circle profile 10 -62.831853 19.7392088 1 -1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+parabola w 10 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 3935.74

diff --git a/tests/pipe/standard/A9 b/tests/pipe/standard/A9
new file mode 100644 (file)
index 0000000..525de94
--- /dev/null
+++ b/tests/pipe/standard/A9
@@ -0,0 +1,10 @@
+circle profile 0 0 0 0 1 1 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 100 100 100 1 100 0 0 1 -10 -10 -10 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 8684.67

diff --git a/tests/pipe/standard/B2 b/tests/pipe/standard/B2
new file mode 100644 (file)
index 0000000..54b3ddb
--- /dev/null
+++ b/tests/pipe/standard/B2
@@ -0,0 +1,10 @@
+ellipse profile 0 0 0 0 1 1 10 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+circle w 0 50 0 1 0 0 50
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 12789.7

diff --git a/tests/pipe/standard/B3 b/tests/pipe/standard/B3
new file mode 100644 (file)
index 0000000..9ad56f4
--- /dev/null
+++ b/tests/pipe/standard/B3
@@ -0,0 +1,10 @@
+ellipse profile 20 0 0 0 1 1 5 2
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+ellipse w 20 20 0 1 0 0 60 20
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 5094.14

diff --git a/tests/pipe/standard/B4 b/tests/pipe/standard/B4
new file mode 100644 (file)
index 0000000..6b8d113
--- /dev/null
+++ b/tests/pipe/standard/B4
@@ -0,0 +1,10 @@
+ellipse profile 10 -115.064945 75.458923 1 -1 1 5 2
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 5810.34

diff --git a/tests/pipe/standard/B5 b/tests/pipe/standard/B5
new file mode 100644 (file)
index 0000000..752a89c
--- /dev/null
+++ b/tests/pipe/standard/B5
@@ -0,0 +1,8 @@
+ellipse profile 10 0 0 1 0 1 10 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+polyline w 10 0 0 0 30 30 0 70 70
+pipe result w profile
+
+set square 4068.2

diff --git a/tests/pipe/standard/B6 b/tests/pipe/standard/B6
new file mode 100644 (file)
index 0000000..d6a8954
--- /dev/null
+++ b/tests/pipe/standard/B6
@@ -0,0 +1,10 @@
+ellipse profile 10 -62.831853 19.7392088 0 1 0 10 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+parabola w 10 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 6058.02

diff --git a/tests/pipe/standard/B7 b/tests/pipe/standard/B7
new file mode 100644 (file)
index 0000000..96c7529
--- /dev/null
+++ b/tests/pipe/standard/B7
@@ -0,0 +1,10 @@
+ellipse profile 0 0 0 0 1 1 10 5
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 100 100 100 1 100 0 0 1 -10 -10 -10 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 14092.7

diff --git a/tests/pipe/standard/B8 b/tests/pipe/standard/B8
new file mode 100644 (file)
index 0000000..e571662
--- /dev/null
+++ b/tests/pipe/standard/B8
@@ -0,0 +1,10 @@
+ellipse profile 0 154 -1.5 0 1 1 4 2
+mkedge profile profile
+wire profile profile
+mkplane profile profile
+beziercurve w 7 0 150 0 0 200 50 0 170 70 0 40 30 0 0 0 0 50 10 0 140 0
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 5448.91

diff --git a/tests/pipe/standard/B9 b/tests/pipe/standard/B9
new file mode 100644 (file)
index 0000000..0a15547
--- /dev/null
+++ b/tests/pipe/standard/B9
@@ -0,0 +1,9 @@
+hyperbola profile 0 35 35 0 1 -1 50 50
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+circle w 0 100 0 1 0 0 100
+mkedge w w;
+wire w w;
+pipe result w profile
+
+set square 210218

diff --git a/tests/pipe/standard/C2 b/tests/pipe/standard/C2
new file mode 100644 (file)
index 0000000..717cfdf
--- /dev/null
+++ b/tests/pipe/standard/C2
@@ -0,0 +1,9 @@
+hyperbola profile 10 -105. 85. 0 1 -1 15 15
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 24825.3

diff --git a/tests/pipe/standard/C3 b/tests/pipe/standard/C3
new file mode 100644 (file)
index 0000000..76ed5cb
--- /dev/null
+++ b/tests/pipe/standard/C3
@@ -0,0 +1,7 @@
+hyperbola profile 10 10.6 10.6 0 1 -1 15 15
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+polyline w 10 0 0 10 -30 30 10 -70 90
+pipe result w profile
+
+set square 9588.68

diff --git a/tests/pipe/standard/C4 b/tests/pipe/standard/C4
new file mode 100644 (file)
index 0000000..83f7791
--- /dev/null
+++ b/tests/pipe/standard/C4
@@ -0,0 +1,9 @@
+hyperbola profile 0 -52.3 30.3 0 1 -1 15 15
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+parabola w 0 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 12028.2

diff --git a/tests/pipe/standard/C5 b/tests/pipe/standard/C5
new file mode 100644 (file)
index 0000000..e3e21cc
--- /dev/null
+++ b/tests/pipe/standard/C5
@@ -0,0 +1,9 @@
+hyperbola profile 0 -110 -90 0 1 1 15 15
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 1000 1000 1000 1 1000 0 0 1 -100 -100 -100 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 149159

diff --git a/tests/pipe/standard/C6 b/tests/pipe/standard/C6
new file mode 100644 (file)
index 0000000..1ed4efc
--- /dev/null
+++ b/tests/pipe/standard/C6
@@ -0,0 +1,9 @@
+hyperbola profile 0 130 20 0 1 1 15 15
+mkedge profile profile -pi/2. pi/2.
+wire profile profile
+beziercurve w 7 0 150 0 0 2000 50 0 1700 700 0 400 300 0 0 0 0 900 400 0 140 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 192613

diff --git a/tests/pipe/standard/C7 b/tests/pipe/standard/C7
new file mode 100644 (file)
index 0000000..681594d
--- /dev/null
+++ b/tests/pipe/standard/C7
@@ -0,0 +1,7 @@
+polyline profile 0 0 0 10 10 0
+circle w 0 20 0 1 0 0 20
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 1332.86

diff --git a/tests/pipe/standard/C8 b/tests/pipe/standard/C8
new file mode 100644 (file)
index 0000000..3c9f92a
--- /dev/null
+++ b/tests/pipe/standard/C8
@@ -0,0 +1,7 @@
+polyline profile 0 0 0 3 3 0
+ellipse w 10 10 0 1 0 0 30 10
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 580.979

diff --git a/tests/pipe/standard/C9 b/tests/pipe/standard/C9
new file mode 100644 (file)
index 0000000..5cf175c
--- /dev/null
+++ b/tests/pipe/standard/C9
@@ -0,0 +1,7 @@
+polyline profile 0 -115.064945 75.458923 20 -115.064945 75.458923
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 5608.5

diff --git a/tests/pipe/standard/D1 b/tests/pipe/standard/D1
new file mode 100644 (file)
index 0000000..975d793
--- /dev/null
+++ b/tests/pipe/standard/D1
@@ -0,0 +1,5 @@
+polyline profile 0 0 0 20 0 0
+polyline w 10 0 0 0 30 30 0 70 70
+pipe result w profile
+
+set square 1979.9

diff --git a/tests/pipe/standard/D2 b/tests/pipe/standard/D2
new file mode 100644 (file)
index 0000000..3b9aec1
--- /dev/null
+++ b/tests/pipe/standard/D2
@@ -0,0 +1,7 @@
+polyline profile 0 -31.415926 4.934802 20 -31.415926 4.934802
+parabola w 10 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 2670.02

diff --git a/tests/pipe/standard/D3 b/tests/pipe/standard/D3
new file mode 100644 (file)
index 0000000..0b62cad
--- /dev/null
+++ b/tests/pipe/standard/D3
@@ -0,0 +1,7 @@
+polyline profile 0 0 0 0 -20 20
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 100 100 100 1 100 0 0 1 0 0 0 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 7950.38

diff --git a/tests/pipe/standard/D4 b/tests/pipe/standard/D4
new file mode 100644 (file)
index 0000000..93ff0ab
--- /dev/null
+++ b/tests/pipe/standard/D4
@@ -0,0 +1,7 @@
+polyline profile 0 150 0 10 150 0
+beziercurve w 7 0 150 0 0 200 50 0 170 70 0 40 30 0 0 0 0 50 10 0 150 0
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 2565.03

diff --git a/tests/pipe/standard/D5 b/tests/pipe/standard/D5
new file mode 100644 (file)
index 0000000..9f24efc
--- /dev/null
+++ b/tests/pipe/standard/D5
@@ -0,0 +1,9 @@
+parabola profile 10 0 0 0 1 1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+circle w 0 100 0 1 0 0 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 77372.9

diff --git a/tests/pipe/standard/D6 b/tests/pipe/standard/D6
new file mode 100644 (file)
index 0000000..561732c
--- /dev/null
+++ b/tests/pipe/standard/D6
@@ -0,0 +1,9 @@
+parabola profile 10 0 0 0 1 1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+ellipse w 0 80 0 1 0 0 200 80
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 123710

diff --git a/tests/pipe/standard/D7 b/tests/pipe/standard/D7
new file mode 100644 (file)
index 0000000..56b3559
--- /dev/null
+++ b/tests/pipe/standard/D7
@@ -0,0 +1,9 @@
+parabola profile 10 -115.064945 75.458923 0 1 -1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+hyperbola w 10 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 38722.8

diff --git a/tests/pipe/standard/D8 b/tests/pipe/standard/D8
new file mode 100644 (file)
index 0000000..4ab981a
--- /dev/null
+++ b/tests/pipe/standard/D8
@@ -0,0 +1,7 @@
+parabola profile 10 0 0 0 1 -1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+polyline w 10 0 0 10 -30 30 10 -70 90
+pipe result w profile
+
+set square 15270.1

diff --git a/tests/pipe/standard/D9 b/tests/pipe/standard/D9
new file mode 100644 (file)
index 0000000..e2cb074
--- /dev/null
+++ b/tests/pipe/standard/D9
@@ -0,0 +1,9 @@
+parabola profile 0 -62.83185 19.739209 0 1 -1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+parabola w 0 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 18784.6

diff --git a/tests/pipe/standard/E1 b/tests/pipe/standard/E1
new file mode 100644 (file)
index 0000000..4810868
--- /dev/null
+++ b/tests/pipe/standard/E1
@@ -0,0 +1,9 @@
+parabola profile -100 -110 -100 1 1 0 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 1000 1000 1000 1 1000 0 0 1 -100 -100 -100 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 391718

diff --git a/tests/pipe/standard/E2 b/tests/pipe/standard/E2
new file mode 100644 (file)
index 0000000..853c600
--- /dev/null
+++ b/tests/pipe/standard/E2
@@ -0,0 +1,9 @@
+parabola profile 0 140 100 0 1 1 50
+mkedge profile profile -pi*20. pi*20.
+wire profile profile
+beziercurve w 7 0 150 0 0 2000 50 0 1700 700 0 400 300 0 0 0 0 900 400 0 140 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 328270

diff --git a/tests/pipe/standard/E3 b/tests/pipe/standard/E3
new file mode 100644 (file)
index 0000000..6e7a7a8
--- /dev/null
+++ b/tests/pipe/standard/E3
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 -1 -1 0 2 1 1 1 1 1 0 0 1 -1 -1 0 2
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+circle w 0 10 0 1 0 0 10
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 354.016

diff --git a/tests/pipe/standard/E4 b/tests/pipe/standard/E4
new file mode 100644 (file)
index 0000000..071807e
--- /dev/null
+++ b/tests/pipe/standard/E4
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 -1 -1 0 2 1 1 1 1 1 0 0 1 -1 -1 0 2
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+ellipse w 0 8 0 1 0 0 20 8
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 510.092

diff --git a/tests/pipe/standard/E5 b/tests/pipe/standard/E5
new file mode 100644 (file)
index 0000000..a1adbd8
--- /dev/null
+++ b/tests/pipe/standard/E5
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 -25 -127.064945 75 5 25 -87.064945 75 5 25 -127.064945 77 5 -25 -127.064945 75 5
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+hyperbola w 0 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 32658.6

diff --git a/tests/pipe/standard/E6 b/tests/pipe/standard/E6
new file mode 100644 (file)
index 0000000..0c78469
--- /dev/null
+++ b/tests/pipe/standard/E6
@@ -0,0 +1,8 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 0 10 0 5 -10 -10 0 5 10 -10 5 5 0 10 0 5
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+polyline w 0 0 0 10 -30 30 0 -70 90
+pipe result w profile
+
+set square 4687.7

diff --git a/tests/pipe/standard/E7 b/tests/pipe/standard/E7
new file mode 100644 (file)
index 0000000..23c5b57
--- /dev/null
+++ b/tests/pipe/standard/E7
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 0 -45 20.74 5 -10 -75 18.74 5 10 -75 18.74 5 0 -45 20.74 5
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+parabola w 0 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 6104.74

diff --git a/tests/pipe/standard/E8 b/tests/pipe/standard/E8
new file mode 100644 (file)
index 0000000..980c886
--- /dev/null
+++ b/tests/pipe/standard/E8
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 0 10 -7 5 -10 -10 8 5 10 -10 8 5 0 10 -7 5
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 100 100 100 1 100 0 0 1 -10 -10 -10 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 16793.8

diff --git a/tests/pipe/standard/E9 b/tests/pipe/standard/E9
new file mode 100644 (file)
index 0000000..f02352e
--- /dev/null
+++ b/tests/pipe/standard/E9
@@ -0,0 +1,10 @@
+bsplinecurve profile 2 3 0 3 1 1 2 3 0 30 -21 5 -30 -30 24  5 30 -30 24 5 0 30 -21 5
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+beziercurve w 7 0 0 0 0 2000 50 0 1700 700 0 400 300 0 0 0 0 900 400 0 140 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 309430

diff --git a/tests/pipe/standard/F1 b/tests/pipe/standard/F1
new file mode 100644 (file)
index 0000000..c023267
--- /dev/null
+++ b/tests/pipe/standard/F1
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 10 0 -5 0 0 -5 -20 0 5 -20 0 5 0 0 0 10 0 
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+circle w 0 100 0 1 0 0 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 30818.9

diff --git a/tests/pipe/standard/F2 b/tests/pipe/standard/F2
new file mode 100644 (file)
index 0000000..848f1a1
--- /dev/null
+++ b/tests/pipe/standard/F2
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 10 0 -5 0 0 -5 -20 0 5 -20 0 5 0 0 0 10 0 
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+ellipse w 0 80 0 1 0 0 200 80
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 45793.5

diff --git a/tests/pipe/standard/F3 b/tests/pipe/standard/F3
new file mode 100644 (file)
index 0000000..e75d44d
--- /dev/null
+++ b/tests/pipe/standard/F3
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 -105 75.5 -5 -115 75.5 -5 -135 75.5 5 -135 75.5 5 -115 75.5 0 -105 75.5 
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+hyperbola w 0 0 -50 1 0 0 50 50
+mkedge w w -pi/2. pi/2.
+wire w w
+pipe result w profile
+
+set square 9533.54

diff --git a/tests/pipe/standard/F4 b/tests/pipe/standard/F4
new file mode 100644 (file)
index 0000000..87f11e9
--- /dev/null
+++ b/tests/pipe/standard/F4
@@ -0,0 +1,8 @@
+beziercurve profile 6 0 10 0 -5 0 0 -5 -20 0 5 -20 0 5 0 0 0 10 0 
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+polyline w 0 0 0 10 -30 30 0 -70 90
+pipe result w profile
+
+set square 4583.22

diff --git a/tests/pipe/standard/F5 b/tests/pipe/standard/F5
new file mode 100644 (file)
index 0000000..b15eeaf
--- /dev/null
+++ b/tests/pipe/standard/F5
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 -53 19.8 -5 -63 19.8 -5 -83 19.8 5 -83 19.8 5 -63 19.8 0 -53 19.8 
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+parabola w 0 0 0 1 0 0 50
+mkedge w w -pi*20. pi*20.
+wire w w
+pipe result w profile
+
+set square 3895.63

diff --git a/tests/pipe/standard/F6 b/tests/pipe/standard/F6
new file mode 100644 (file)
index 0000000..6bcf7e9
--- /dev/null
+++ b/tests/pipe/standard/F6
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 0 40 0 -20 0 0 -20 -80 0 20 -80 0 20 0 0 0 40
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+bsplinecurve w 2 3 0 3 1 1 2 3 0 0 0 2 1000 1000 1000 1 1000 0 0 1 -100 -100 -100 2
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 450587

diff --git a/tests/pipe/standard/F7 b/tests/pipe/standard/F7
new file mode 100644 (file)
index 0000000..fc77e95
--- /dev/null
+++ b/tests/pipe/standard/F7
@@ -0,0 +1,10 @@
+beziercurve profile 6 0 0 20 -10 0 0 -10 0 -40 10 0 -80 10 0 0 0 0 20
+mkedge profile profile 
+wire profile profile 
+mkplane profile profile
+beziercurve w 7 0 0 0 0 2000 50 0 1700 700 0 400 300 0 0 0 0 900 400 0 140 100
+mkedge w w
+wire w w
+pipe result w profile
+
+set square 305504