Prompt Lab

open-source Gendl

Working...Failed

Build a geometry model web app

This is the free public lab: everything made here -- your prompts, the model and its code -- is public the moment it is made, in the archive for anyone to read and reuse. Nothing is sold here; a private lab of your own, where you can sell what you make, is a rung up the ladder.

the agent is working...

I acknowledge this file will be shared

Upload a drawing or file

Build from a drawing: a PDF of up to 10 pages, an image or a text file (DXF, SVG, CSV, STEP), 2.0 MB at most.

Archived session d7e9b3b063002026-10-01 02:39 UTCbuilt on solid: open it there

Rivets

3,833 rivets left in the community pot

A question or a problem: [email protected]; a fault in the lab's code, its issue tracker.

Download

The model's drawings and files, once it is built.

Log

doneI built a six-axis-style robotic arm in its default pose. It's about 471 × 327 × 366 mm overall, and it built and rendered without errors. **Parts, from the floor up:** - A slate-grey base disc with a steel-blue turret on top. - A grey shoulder joint, then an orange upper arm. - A grey elbow joint, then a gold forearm. - A grey wrist joint, then a red hand stub. - A dark palm with two parallel gripper fingers. **Inputs you can change in the Inputs panel:** - **Pose (sliders):** base yaw (−180° to 180°), shoulder (0° to 120°, measured up from horizontal), elbow and wrist (each relative to the part before it), and gripper opening (10 to 80 mm). The arm moves as a chain, so turning the shoulder carries the forearm and gripper with it. - **Sizes:** upper-arm length and forearm length (both have sliders), plus base radius and height, turret height, hand length, finger length and link thickness. **Limits:** - The parts are separate simple shapes placed together, not one combined solid. - The gripper has no wrist roll. - Parts don't detect collisions, so some angle combinations will push the arm through the base or the floor.

toolrender

toolcheck_model

toolwrite_model

promptRobotic arm

noteSession d7e9b3b06300 opened for an external agent.

viewport 1Wireframe · trimetric

Welcome to Sluice.

Sluice is for inspecting Gendl models while you're developing them. You can see your model structure in the tree at the upper left.

The display list of this viewport is empty. Click a node in the tree to apply the ADD-LEAVES operation.

The rendering mode is Wireframe (this viewport's View menu). Wireframe is a pannable, zoomable SVG; the shaded modes are navigable X3D scenes, in either of two X3D browsers. The X_ITE scene offers a headset button where WebXR is available.

Your web app

It shows here, live, once the agent has built it. Describe it on the left and press Build.

Model file

(defun rad (d) (* d (/ pi 180)))

(defun arm-dir (a yaw)
  "Unit vector in the arm's vertical plane at elevation A (deg), plane turned by YAW (deg)."
  (make-vector (* (cos (rad a)) (cos (rad yaw)))
               (* (cos (rad a)) (sin (rad yaw)))
               (sin (rad a))))

(defun arm-up (a yaw)
  (make-vector (- (* (sin (rad a)) (cos (rad yaw))))
               (- (* (sin (rad a)) (sin (rad yaw))))
               (cos (rad a))))

(defun arm-side (yaw)
  (make-vector (- (sin (rad yaw))) (cos (rad yaw)) 0))

(define-object link-box (box)
  :input-slots (start dir up (thick 40) (color :darkorange))
  :computed-slots ((width (the thick)) (height (the thick))
                   (center (translate-along-vector (the start) (the dir) (half (the length))))
                   (orientation (alignment :rear (the dir) :top (the up)))
                   (display-controls (list :color (the color)))))

(define-object joint-cyl (cylinder)
  :input-slots (at side (color :dimgray))
  :computed-slots ((center (the at))
                   (orientation (alignment :rear (the side)))
                   (display-controls (list :color (the color)))))

(define-object model (base-object)
  :input-slots ((base-radius 90) (base-height 30)
                (turret-height 70)
                (upper-arm-length 260) (forearm-length 210) (hand-length 50)
                (finger-length 60)
                (link-thickness 44)
                (yaw 30) (shoulder 55) (elbow -70) (wrist -40)
                (gripper-opening 40))
  :computed-slots
  ((input-controls (list :yaw (list :min -180 :max 180 :step 5 :label "Base yaw (deg)")
                         :shoulder (list :min 0 :max 120 :step 5 :label "Shoulder (deg)")
                         :elbow (list :min -150 :max 150 :step 5 :label "Elbow (deg)")
                         :wrist (list :min -120 :max 120 :step 5 :label "Wrist (deg)")
                         :gripper-opening (list :min 10 :max 80 :step 2)
                         :upper-arm-length (list :min 120 :max 500 :step 10)
                         :forearm-length (list :min 100 :max 450 :step 10)))
   (a1 (the shoulder))
   (a2 (+ (the a1) (the elbow)))
   (a3 (+ (the a2) (the wrist)))
   (side (arm-side (the yaw)))
   (shoulder-pt (make-point 0 0 (+ (the base-height) (the turret-height) (* 0.6 (the link-thickness)))))
   (elbow-pt (translate-along-vector (the shoulder-pt) (arm-dir (the a1) (the yaw)) (the upper-arm-length)))
   (wrist-pt (translate-along-vector (the elbow-pt) (arm-dir (the a2) (the yaw)) (the forearm-length)))
   (palm-pt (translate-along-vector (the wrist-pt) (arm-dir (the a3) (the yaw)) (the hand-length))))
  :objects
  ((base :type 'cylinder :radius (the base-radius) :length (the base-height)
         :center (make-point 0 0 (half (the base-height)))
         :orientation (alignment :rear (make-vector 0 0 1))
         :display-controls (list :color :slategray))
   (turret :type 'cylinder :radius (* 0.65 (the base-radius)) :length (the turret-height)
           :center (make-point 0 0 (+ (the base-height) (half (the turret-height))))
           :orientation (alignment :rear (make-vector 0 0 1))
           :display-controls (list :color :steelblue))
   (shoulder-joint :type 'joint-cyl :at (the shoulder-pt) :side (the side)
                   :radius (* 0.7 (the link-thickness)) :length (* 1.6 (the link-thickness)))
   (upper-arm :type 'link-box :start (the shoulder-pt) :dir (arm-dir (the a1) (the yaw))
              :up (arm-up (the a1) (the yaw)) :length (the upper-arm-length)
              :thick (the link-thickness) :color :darkorange)
   (elbow-joint :type 'joint-cyl :at (the elbow-pt) :side (the side)
                :radius (* 0.6 (the link-thickness)) :length (* 1.4 (the link-thickness)))
   (forearm :type 'link-box :start (the elbow-pt) :dir (arm-dir (the a2) (the yaw))
            :up (arm-up (the a2) (the yaw)) :length (the forearm-length)
            :thick (* 0.8 (the link-thickness)) :color :goldenrod)
   (wrist-joint :type 'joint-cyl :at (the wrist-pt) :side (the side)
                :radius (* 0.45 (the link-thickness)) :length (* 1.1 (the link-thickness)))
   (hand :type 'link-box :start (the wrist-pt) :dir (arm-dir (the a3) (the yaw))
         :up (arm-up (the a3) (the yaw)) :length (the hand-length)
         :thick (* 0.6 (the link-thickness)) :color :firebrick)
   (palm :type 'box :center (the palm-pt)
         :orientation (alignment :rear (arm-dir (the a3) (the yaw)) :top (arm-up (the a3) (the yaw)))
         :width (+ (the gripper-opening) 30) :length 12 :height (* 0.6 (the link-thickness))
         :display-controls (list :color :darkslategray))
   (fingers :type 'link-box :sequence (:size 2)
            :start (translate-along-vector
                    (translate-along-vector (the palm-pt) (arm-dir (the a3) (the yaw)) 6)
                    (the side)
                    (* (if (zerop (the-child index)) 1 -1) (+ (half (the gripper-opening)) 5)))
            :dir (arm-dir (the a3) (the yaw)) :up (arm-up (the a3) (the yaw))
            :length (the finger-length) :thick 10 :color :dimgray)))