Commit 532aca77 authored by Dave Cooper's avatar Dave Cooper
Browse files

deleted defunct training data

parent 2b90ff88
Loading
Loading
Loading
Loading
Loading
+0 −8
Original line number Diff line number Diff line
;;;; -*- coding: utf-8 -*-

(asdf:defsystem #:component-assembly
 :description "The Gendl® component-assembly Subsystem" :author
 "Genworks International" :license
 "Affero Gnu Public License (http://www.gnu.org/licenses/)" :serial t
 :version "20250326" :depends-on nil :components
 ((:file "source/package") (:file "source/assembly")))
+0 −32
Original line number Diff line number Diff line
;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: gdl-user; Base: 10 -*-
(in-package :gdl-user)

(load-quicklisp)

(defparameter *component-assembly-project-path* (make-pathname :name nil :type nil
						    :defaults (glisp:source-pathname)))

;; Generate/update the ASDF system definition
(cl-lite *component-assembly-project-path* :create-asd-file? t)

;; Add to Quicklisp's local projects
(pushnew *component-assembly-project-path* ql:*local-project-directories* :test #'equalp)

;; Load the project
(ql:quickload :component-assembly)

;; Create a default instance for testing
(defparameter *assembly*
  (make-object 'component-assembly:assembly)) ;; assembly
					      ;; is :exported
					      ;; so only one
					      ;; colon (:)
					      ;; needed. Any
					      ;; use of double
					      ;; colons is
					      ;; considered bad
					      ;; style.

(format t "~%~%Example project loaded successfully!~%")
(format t "A component assembly has been created as *assembly*~%")
(format t "Try: (theo *assembly* (components 0) volume)~%~%")
+0 −34
Original line number Diff line number Diff line
;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: example-project; Base: 10 -*-

(in-package :component-assembly)

(define-object base-component (base-object)
  :input-slots
  ((width 100)
   (length 100)
   (height 50)
   (color :blue))
  
  :computed-slots
  ((volume (* (the width) (the length) (the height)))
   (display-controls (list :color (the color))))
  
  :objects
  ((geometry :type 'box
             :width (the width)
             :length (the length) 
             :height (the height))))

(define-object assembly (base-object)
  :input-slots
  ((num-components 3))
  
  :objects
  ((components :type 'base-component
               :sequence (:size (the num-components))
               :center (translate (the center)
                                  :right (* (the-child index) 150))
               :color (case (the-child index)
                        (0 :red)
                        (1 :green)
                        (t :blue)))))
+0 −6
Original line number Diff line number Diff line
;;; -*- Mode: LISP; Syntax: Common-Lisp; Package: gdl-user; Base: 10 -*-

(in-package :gdl-user)

(gdl:define-package :component-assembly
  (:export #:assembly))
Loading