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

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)
#+nil
(defun dmapcar (function list)
(dmapc function list)
(mapcar function list))
#+nil
(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))))
list)))
......@@ -46,7 +47,7 @@
(height 30)
(hole-radius 2 :settable)
(hole-length 35)
(quantity 3 :settable))
(quantity 2 :settable))
:computed-slots
......@@ -79,7 +80,10 @@
(
(collect-volumes
(&key remote?)
()
;;(&key remote?)
#+nil
(dmapcar #'(lambda(drilled-block) (the-object drilled-block volume))
(list-elements (if remote? (the remote-drilled) (the local-drilled)))))
......@@ -98,11 +102,8 @@
(global-gc
()
(gc t))
(reload
()
(gdl-user::g105))))
(glisp:gc-full))))
......@@ -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)))
:objects
((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)))
:functions
((cl!
()
(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)
......
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
......@@ -164,7 +164,8 @@ have open-source Gendl or a lite Trial version of Genworks GDL, these
regression tests will not all function.
In Emacs at the "
(:texttt "gdl-user>")
;;(:texttt "gdl-user>")
(:texttt "gdl-user")
" prompt in the "
(:texttt "*slime-repl...*") " buffer, type the following commands:"
((:list :style :enumerate)
......
......@@ -360,7 +360,7 @@ the arguments to the "
(:texttt "list")
" function get evaluated, from left to right, before being
processed by the function. For example:"
(:verbatim "(list ’a ’b (+ 2 2))")
(:verbatim "(list 'a 'b (+ 2 2))")
"will return the list"
(:verbatim "(a b 4)")
"The two quoted symbols evaluate to symbols, and the function
......
(:glisp :aserve)
(:bordeaux-threads :glisp :aserve)
......@@ -3,7 +3,7 @@
(asdf:defsystem #:gwl :description
"The Gendl\" Generative Web Language (GWL)" :author "John McCarthy"
:license "Affero Gnu Public License (http://www.gnu.org/licenses/)"
:serial t :version "20140916" :depends-on (:glisp :aserve)
:serial t :version "20140916" :depends-on (:bordeaux-threads :glisp :aserve)
#-asdf-unicode :defsystem-depends-on #-asdf-unicode (:asdf-encodings)
#+asdf-encodings :encoding #+asdf-encodings :utf-8
:components
......
This diff is collapsed.
This diff is collapsed.
gwl/static/gwl/images/add-item.png

289 Bytes | W: | H:

gwl/static/gwl/images/add-item.png

439 Bytes | W: | H:

gwl/static/gwl/images/add-item.png
gwl/static/gwl/images/add-item.png
gwl/static/gwl/images/add-item.png
gwl/static/gwl/images/add-item.png
  • 2-up
  • Swipe
  • Onion skin
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
This diff is collapsed.
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