Commit e4f7955e authored by Dave Cooper's avatar Dave Cooper
Browse files

added step-ap to call to phantom step writer.

parent 41c8cab5
Pipeline #7386 passed with stages
in 6 minutes and 9 seconds
This diff is collapsed.
<<<<<<< HEAD
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:regression :description
"The Gendl® regression Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20210809" :depends-on (:lift :surf :tasty)
:defsystem-depends-on nil :components
((:file "utils/source/package") (:file "utils/source/genworks")
(:file "utils/source/parameters") (:file "utils/source/functions")
(:file "source/package") (:file "source/parameters")
(:file "source/.#step-reader") (:file "source/approximated-curve")
(:file "source/arc-curve") (:file "source/b-spline-curve")
(:file "source/b-spline-surface") (:file "source/blended-solid")
(:file "source/boolean") (:file "source/box-solid")
(:file "source/boxed-curve") (:file "source/boxed-surface")
(:file "source/brep-brep-solve") (:file "source/brep-intersect")
(:file "source/chained-curves") (:file "source/compatible-curves")
(:file "source/compatible-surfaces")
(:file "source/composed-curve") (:file "source/composed-curves")
(:file "source/cone-solid") (:file "source/conic-curve")
(:file "source/cylinder-solid") (:file "source/decomposed-curves")
(:file "source/dropped-curve") (:file "source/dual-blend-surface")
(:file "source/edge-blend-surface")
(:file "source/elliptical-curve") (:file "source/extended-surface")
(:file "source/extruded-solid") (:file "source/fitted-conic")
(:file "source/fitted-curve") (:file "source/fitted-surface")
(:file "source/gdlxml") (:file "source/general-dual-blend-surface")
(:file "source/general-note") (:file "source/general-sweep")
(:file "source/global-filleted-polyline-curves")
(:file "source/iges-reader") (:file "source/iges-writer")
(:file "source/intersected-solid") (:file "source/iso-curve")
(:file "source/joined-surfaces") (:file "source/linear-curve")
(:file "source/lofted-surface") (:file "source/merged-solid")
(:file "source/native-reader") (:file "source/orientations")
(:file "source/pegasus-regioned-solid")
(:file "source/planar-contour-surface")
(:file "source/planar-offset-curve")
(:file "source/planar-section-curve")
(:file "source/planar-section-curves")
(:file "source/planar-surface") (:file "source/poly-brep")
(:file "source/projected-curve")
(:file "source/rectangular-surface")
(:file "source/regioned-solid")
(:file "source/reparameterized-curve")
(:file "source/revolved-surface")
(:file "source/revolved-surfaces") (:file "source/ruled-surface")
(:file "source/separated-solid") (:file "source/sewn-solid")
(:file "source/shelled-solid") (:file "source/silhouette-curves")
(:file "source/spherical-surface") (:file "source/split-surface")
(:file "source/step-reader") (:file "source/step-writer")
(:file "source/stitched-solid") (:file "source/subtracted-solid")
(:file "source/surface-knot-reduction")
(:file "source/swept-solid") (:file "source/test-harness")
(:file "source/transformed-curve")
(:file "source/transformed-solid")
(:file "source/transformed-surface") (:file "source/trimmed-curve")
(:file "source/trimmed-surface") (:file "source/united-solid")
(:file "assembly-output/source/package")
(:file "assembly-output/source/bracket-test")
(:file "assembly-output/source/bracket")
(:file "dgdl/source/remote") (:file "gdl/source/syntax-checker")
(:file "geom-base/source/angle-between-vectors")
(:file "geom-base/source/box-matrix")
(:file "geom-base/source/drawing")
(:file "geom-base/source/general-note")
(:file "gwl/source/package") (:file "gwl/source/ajax-json")
(:file "gwl/source/form-element-tests")
(:file "gwl/source/form-element-validation")
(:file "gwl/source/hey-now") (:file "gwl/source/large-data")
(:file "gwl/source/short-form-element-test")
(:file "gwl/source/svg-error-handling")
(:file "gwl/source/test-seq") (:file "issues/source/issue-65")
(:file "issues/source/issue-67") (:file "issues/source/issue-68")
(:file "tasty/source/center-loss")
(:file "threads/source/box-solid")))
=======
;;;; -*- coding: utf-8 -*-
(asdf:defsystem #:regression :description
"The Gendl® regression Subsystem" :author "Genworks International"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20210811" :depends-on (:lift :surf :tasty)
:defsystem-depends-on nil :components
:serial t :version "20221108" :depends-on (:lift :surf :tasty)
:components
((:file "utils/source/package") (:file "utils/source/genworks")
(:file "utils/source/parameters") (:file "utils/source/functions")
(:file "source/package") (:file "source/parameters")
......@@ -90,7 +13,8 @@
(:file "source/blended-solid") (:file "source/boolean")
(:file "source/box-solid") (:file "source/boxed-curve")
(:file "source/boxed-surface") (:file "source/brep-brep-solve")
(:file "source/brep-intersect") (:file "source/compatible-curves")
(:file "source/brep-intersect") (:file "source/chained-curves")
(:file "source/compatible-curves")
(:file "source/compatible-surfaces")
(:file "source/composed-curve") (:file "source/composed-curves")
(:file "source/cone-solid") (:file "source/conic-curve")
......@@ -149,4 +73,3 @@
(:file "issues/source/issue-67") (:file "issues/source/issue-68")
(:file "tasty/source/center-loss")
(:file "threads/source/box-solid")))
>>>>>>> smlib-rebuild
......@@ -26,7 +26,7 @@
:computed-slots
((output-file-name
(let ((output (merge-pathnames "round-trip.stp" gdl-lift-utils::*lift-data-directory*)))
(with-format (step output) (write-the test-part (breps 0) cad-output))
(with-format (step output :step-ap :ap203) (write-the test-part (breps 0) cad-output))
output))
(regression-test-data
......
......@@ -137,6 +137,7 @@
(units *output-units-default*)
(units-scale 1)
(analytic-curves? t)
(step-ap :ap203)
(objects nil))
:functions
......@@ -144,10 +145,8 @@
()
(let ((buffer-file (namestring (glisp:temporary-file))))
(with-format-slots (%assembly%)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file %assembly%)
)
(with-format-slots (%assembly% step-ap)
(smlib::write-hw-file-assembly *geometry-kernel* buffer-file %assembly% :step-ap step-ap))
(let ((buffer (make-array 4096
:element-type '(unsigned-byte 8))))
......@@ -163,7 +162,7 @@
()
(with-format-slots (tolerance breps-format units
units-scale analytic-curves?
objects)
objects step-ap)
(let ((leaves (reverse (ensure-list objects))))
(let (entity-plist)
(dolist (leaf leaves)
......@@ -206,7 +205,8 @@
:solids (nreverse (getf entity-plist :solids))))
(let ((buffer-file (namestring (glisp:temporary-file))))
(apply #'write-step-file* *geometry-kernel* buffer-file
(apply #'write-step-file* *geometry-kernel* buffer-file
:step-ap step-ap
:quiet? t :units units
:units-scale units-scale :tolerance tolerance
:write-analytic-curves? analytic-curves?
......@@ -279,6 +279,7 @@
#+nil
(defmethod encode-for-http ((self geometry-kernel-object-mixin))
(if (typep (the %parent%) 'remote-object)
(call-next-method)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment