Commit 74df57e2 authored by Dave Cooper's avatar Dave Cooper
Browse files

restarting manual effort

parent 5cd11129
......@@ -28,7 +28,8 @@
;;(defparameter *gendl-version* "1587p005")
;;(defparameter *gendl-version* "1587p006")
;;(defparameter *gendl-version* "1587p007")
(defparameter *gendl-version* "1587p008")
;;(defparameter *gendl-version* "1587p008")
(defparameter *gendl-version* "1587p009")
;;(defparameter *gendl-version* "ql-2013-12")
(defparameter *gendl-patch-level* nil)
......@@ -22,16 +22,17 @@
(in-package :gdl-user)
(defun dmapcar (function list)
(dmapc function list)
(mapcar function list))
(defun dmapc (function list)
(let ((count -1))
(mapc #'(lambda(element)
(let ((element element))
(bt:make-thread function :name (format nil "thread ~a from dmapcar" (incf count)))))
(mapc #'(lambda ()
(bt:make-thread function :name (format nil "thread ~a from dmapcar" (incf count))))
......@@ -46,7 +47,7 @@
(height 30)
(hole-radius 2 :settable)
(hole-length 35)
(quantity 3 :settable))
(quantity 2 :settable))
......@@ -79,7 +80,10 @@
(&key remote?)
;;(&key remote?)
(dmapcar #'(lambda(drilled-block) (the-object drilled-block volume))
(list-elements (if remote? (the remote-drilled) (the local-drilled)))))
......@@ -98,11 +102,8 @@
(gc t))
......@@ -113,17 +114,13 @@
(quantity 50 :settable))
:computed-slots ((volume (sum-elements (the results) (the-element volume)))
(c-of-g (the results center-of-gravity))
:computed-slots ((volume (the result volume))
(c-of-g (the result center-of-gravity)))
((results :type 'subtracted-solid
;;:sequence (:size (the quantity))
:pass-down (brep other-brep))
((result :type 'subtracted-solid
:pass-down (brep other-brep))
(brep :type 'box-solid
:display-controls (list :color :green))
......@@ -132,12 +129,7 @@
(other-brep :type 'cylinder-solid
:radius (the hole-radius)
:length (the hole-length)
:display-controls (list :color :green)))
(load (compile-file-if-needed "~/genworks/training/g105/examples/source/drilled-block.lisp")))))
:display-controls (list :color :green))))
(eval-when (:compile-toplevel :load-toplevel :execute)
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