Skip to content

Instantly share code, notes, and snippets.

@knorth55

knorth55/cube-vertices.l

Last active June 22, 2016 03:55
Show Gist options
  • Save knorth55/15651ba4f14a9f3b675e2e0c5f0d4f59 to your computer and use it in GitHub Desktop.
Save knorth55/15651ba4f14a9f3b675e2e0c5f0d4f59 to your computer and use it in GitHub Desktop.
Download ZIP
roseus cube vertices bug
Raw
cube-vertices.l
(let (cube)
(setq cube (make-cube 100 200 300))
(send cube :locate #f(100 200 300))
(setq *local-vertices* (send cube :vertices)))
(setq *cube* (make-cube 100 200 300))
(send *cube* :locate #f(100 200 300))
(setq *global-vertices* (send *cube* :vertices))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment