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

start some planking samples.

parent 9440d1da
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
......@@ -20,7 +20,7 @@
;;
(gwl:define-package :lumber (:export #:angle-cut-2x4 #:1x4 #:2x4 #:4x4
(gwl:define-package :lumber (:export #:angle-cut-2x4 #:1x4 #:2x4 #:2x6 #:4x4
#:2x4-8ft))
(in-package :lumber)
......@@ -37,6 +37,14 @@
(width (+ 1/2 3))
(height (+ 1/2 1))))
(define-object 2x6 (box)
:computed-slots
((cut? t)
(width (+ 1/2 5))
(height (+ 1/2 1))))
(define-object 2x4-8ft (2x4)
:computed-slots ((cut? nil)
(length (* 8 12))))
......
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
;;
;; Copyright 2020 Genworks International
;;
;; This source file is part of the General-purpose Declarative
;; Language project (Gendl).
;;
;; 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 :bench)
(define-object plank-samples (base-object)
:computed-slots ((length 17 :settable) (width 15) (height 3))
:objects
((ref-box :type 'box)
(planking :type 'planking
:display-controls (list :color :brown)
:plank-type 'lumber:2x6
:perimeter (let* ((p1 (the (vertex :top :left :front)))
(p2 (the (vertex :top :left :rear)))
(p3 (the (vertex :top :right :rear)))
(p4 (the (vertex :top :right :front)))
(p5 p1))
(list p1 p2 p3 p4 p5)))))
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
File mode changed from 100644 to 100755
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