Commit 3baeb9b7 authored by Dave Cooper's avatar Dave Cooper
Browse files

building for 1582 release

parent 29b7acd4
......@@ -35,7 +35,9 @@
#-mswindows "~/share/release/")
(release-name-mapping '(("acl-8.2m-linux-x86" . "gdl1581-linux")
("acl-8.2m-win-x86" . "gdl1581-windows")))
("acl-8.2m-win-x86" . "gdl1581-windows")
("acl-9.0m-linux-x86" . "gdl1582-linux")
("acl-9.0m-win-x86" . "gdl1582-windows")))
(os-name-mapping '(("win" . "windows")
("linux" . "linux")
......
(asdf:defsystem #:gdl-wind-demo-1 :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012103100" :depends-on nil :components
((:file "source/package") (:file "source/parameters")
(:file "source/assembly")
(:file "source/blade-tanase-new")
(:file "source/edge-blend-surface-wind")
(:file "source/flaps-blade") (:file "source/hub")
(:file "source/nacelle")
(:file "source/profile-curv")
(:file "source/rotor-assembly")
(:file "source/support")
(:file "source/surface-general-rotation")
(:file "source/test") (:file "source/wt-demo-1")))
\ No newline at end of file
(asdf:defsystem #:gdl-booster-rocket :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012102600" :depends-on nil :components
((:gdl "source/package") (:gdl "source/parameters")
(:gdl "source/assembly") (:gdl "source/rules")))
\ No newline at end of file
;;
;; Copyright 2002, 2009, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :com.yoyodyne.booster-rocket)
(define-object assembly (base-object)
:objects
((nose-cap :type 'base-object)
(frustrum :type 'base-object)
(main-body :type 'base-object)
(aft-skirt :type 'base-object)))
("package" "parameters")
\ No newline at end of file
;;
;; Copyright 2002, 2009, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :gdl-user)
(gwl:define-package :com.yoyodyne.booster-rocket (:export #:assembly))
\ No newline at end of file
;;
;; Copyright 2002, 2009, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :com.yoyodyne.booster-rocket)
(defparameter *data-directory* nil)
;;
;; Copyright 2002, 2009, 2012 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (GDL).
;;
;; This source file contains free software: you can redistribute it
;; and/or modify it under the terms of the GNU Affero General Public
;; License as published by the Free Software Foundation, either
;; version 3 of the License, or (at your option) any later version.
;;
;; This source file is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;; Affero General Public License for more details.
;;
;; You should have received a copy of the GNU Affero General Public
;; License along with this source file. If not, see
;; <http://www.gnu.org/licenses/>.
;;
(in-package :com.yoyodyne.booster-rocket)
(define-object range (base-rule-object)
)
(asdf:defsystem #:gdl-server-log :description
"Auto-generated asdf defsys from Genworks GDL cl-lite."
:author
"Genworks and Dave Cooper unless otherwise indicated"
:license "AGPL unless otherwise indicated" :serial t
:version "2012103100" :depends-on (:gdl-gwl)
:components
((:file "source/package") (:file "source/assembly")
(:file "source/publish")))
\ No newline at end of file
......@@ -537,8 +537,7 @@ and moments for the brep. The moments are labeled as: :area-static-moments, :are
:area-products-of-inertia, :area-second-moment-about-coordinate-axii, :volume-static-moments,
:volume-moments-of-inertia, :volume-products-of-inertia, and :volume-second-moment-about-coordinate-axii.
:&key ((tolerance (the adaptive-tolerance)) \"Controls how precisely the properties are computed\")"
precise-properties
:&key ((tolerance (the adaptive-tolerance)) \"Controls how precisely the properties are computed\")" precise-properties
(&key (tolerance (the adaptive-tolerance)))
(brep-compute-precise-properties *geometry-kernel* self tolerance))
......@@ -551,7 +550,8 @@ be faster to compute and exhibit more stability.
properties
(&key (edge-tess-tolerance (the adaptive-tolerance))
(face-tess-tolerance (the adaptive-tolerance)))
(brep-compute-properties *geometry-kernel* self edge-tess-tolerance face-tess-tolerance))
(brep-compute-properties *geometry-kernel* self :edge-tess-toleance edge-tess-tolerance
:face-tess-tolerance face-tess-tolerance))
("Number. Area covered by the faces of the brep.
:&key ((tolerance (the adaptive-tolerance)) \"Controls how precisely the properties are computed\")"
......
......@@ -52,8 +52,8 @@
(ignore-errors (the-object object (write-stl-file buffer-file)))
(declare (ignore result))
(if (typep error 'error)
(warn "Could not write STL output for ~s (~s), skipping..."
object (the-object object root-path))
(warn "Could not write STL output for ~s (~s), skipping (error was ~a)..."
object (the-object object root-path) error)
(progn
(with-open-file (in buffer-file)
(do ((line (read-line in nil nil) (read-line in nil nil)))
......
Markdown is supported
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