;; Copyright © 2026 Genworks International
;;
;; This program is 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.  Distributed WITHOUT
;; ANY WARRANTY; see <https://www.gnu.org/licenses/agpl-3.0.html>.

(in-package :gdl-user)

(define-object truss ()
  :objects
  ((lower-beam :type 'beam)
   (vertical-beam :type 'beam)
   (front-slope-beam :type 'beam)
   (rear-slope-beam :type 'beam)))

(define-object beam ()
  :objects
  ((outer :type 'box)
   (inner :type 'box)))