Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
e4f7955e
Commit
e4f7955e
authored
Nov 08, 2022
by
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
Changes
4
Pipelines
1
Expand all
Hide whitespace changes
Inline
Side-by-side
regression/data/round-trip.stp
View file @
e4f7955e
This diff is collapsed.
Click to expand it.
regression/regression.asd
View file @
e4f7955e
<<<<<<<
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
"202108
11
"
:depends-on
(
:lift
:surf
:tasty
)
:defsystem-depends-on
nil
:components
:serial
t
:version
"202
21
108"
: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
regression/source/step-writer.lisp
View file @
e4f7955e
...
...
@@ -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
...
...
surf/source/formats.lisp
View file @
e4f7955e
...
...
@@ -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
)
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment