kaveh808 / kons-9 Goto Github PK

View Code? Open in Web Editor NEW

550.0 550.0 32.0 1.25 MB

Common Lisp 3D Graphics Project

License: MIT License

Common Lisp 98.97% Emacs Lisp 0.15% Shell 0.46% Nix 0.42%

3d-animation 3d-graphics common-lisp graphics lisp

kons-9's Introduction

I am a long-time 3D graphics developer, with an interest in Common Lisp.

Some highlights:

MIT mathematics degree
developed some of the earliest 3D CG software for Symbolics Lisp Machines
wrote animation software used in “Jurassic Park”
software R&D lead on “Final Fantasy: The Spirits Within” movie
senior software developer on “The Hobbit” films

Currently designing and developing 3D software in Common Lisp (CCL on MacOS) as an open-ended research project.

More info about the project at my blog: https://kaveh808.medium.com

UPDATE:

The 3D software is now an open source project in the kons-9 repo. It has been moved to SBCL and runs on MacOS and Linux.

kons-9's People

Contributors

Stargazers

Watchers

kons-9's Issues

Implement basic duplication functionality for classes in the kernel

Use a naive per class implementation for now and then see how best to elaborate on it.

Swap out 3D math classes

Replace the existing point.lisp and matrix.lisp with Shinmera's classes (vectors, matrices, quaternions, and transforms).

Let's wait on this until the SBCL ports are done.

https://github.com/Shinmera/3d-vectors
https://github.com/Shinmera/3d-matrices
https://github.com/Shinmera/3d-quaternions

Implement per-class object naming

Generate default object names with a per class counter.

get mouse dragging working

Thanks to @jolby and @mikelevins , we now have a branch for testing the SBCL port: merge-ccl-sbcl.

Can someone with GLFW experience see about getting the mouse-dragged function in minimal-ui.lisp working so we can have 3D navigation? You can copy the code for mouse navigation from the CCL folder, or just get the function to be called and I'll do the rest.

Implement basic 2D graphics for GUI

sbcl Linux port

Port the system to sbcl/Linux/OpenGL.

New transform class: angle-axis-transform

Use angle and axis instead of Euler angles for rotate.

Implement basic mouse interaction with the prototype menus

Implement command table for UI key bindings

Prevent Z fighting between world axes and ground plane

Implement animation class

Package shapes & motions to allow animation instancing.

Optimize OpenGL Drawing

Use vertex arrays and the like to speed up the current naive drawing code in opengl.lisp.

Enhance transform class: scale/rotate/translate order

Explore Vulkan graphics

An idea...

We could take opengl.lisp as our display API and see if we can write a drop-in replacement using Vulkan.

bug: src/kernel/item not loaded

kons-9.asd does not load src/hernel/item.lisp in commit e85f7d9.

Adding (:file "src/kernel/scene-item") to the components before (:file "src/kernel/scene") appears to resolve the issue.

Enhance transform class: scale pivot

Encapsulate OpenGL drawing settings into a class

Will allow quick switching between styles. I have noticed the default settings look chunky on some displays.

kons-9 is using opengl v4.6 on Linux and opengl v2.1 on macos which are fundamentally incompatible versions

add find-closest-point method

Implement a method find-closest-point for the class polyhedron. Ignore the shape's transform.

The returned point must be on the surface of a face, on an edge, or at a vertex or the polyhedron.

Text engine problem - black window

Branch: main
Platform: Devuan GNU/Linux x86_64, SBCL version 2.1.1.
Commit: 7ff3015
I have downloaded the latest sources and now when I try to start (run) or (run-1) I get a black window or a window with the background as in the gif. If I comment (:file "src/graphics/opengl/text") in kons-9.asd and the lines corresponding to the text engine in minimal-ui.lisp the window starts correctly. I think Kaveh had the same problem. I will investigate, see if I can make in work.

Improve print-object

Print useful info for some classes.

Where are the Discussions?

The https://github.com/kaveh808/kons-9/blob/main/README.md mentions:

Read the Introductions thread in Discussions.

Where are the discussion? The link would be very helpful.

Enhance transform class: rotate order

Problem running kons-9

The problem is most likely because this system is so ancient, but FYI I was unsuccessful trying to run kons-9 on my only remaining Apple H/W:

Mac OS X 10.6.8
CCL 1.3

ASDF could not load kons-9 because Objective-C runtime exception:
-[NSCachedWhiteColor CGColor]: unrecognized selector sent to instance 0x146120.

Error: Objective-C runtime exception:
-[NSCachedWhiteColor CGColor]: unrecognized selector sent to instance 0x146120
While executing: CCL::CHECK-NS-EXCEPTION, in process Listener(4).

Add is-visible? and is-active? slots

Add is-visible? to shapes.

Add is-active? to motions.

Make demo test for them.

Document kernel files.

Write basic overviews and docstrings as necessary.

move to euler transform affects some demos

Mainly the particle systems near the end of demo.lisp and make-uv-sphere-mesh which wants the old transform.

Display animation data in window title bar (for now)

Until we have a proper timeline and sequencer.

Implement OpenGL text engine

Allow for the display of text in OpenGL views.

motion is-active? demo

When an object becomes inactive and then activated some time later, it will jump to the position it would have been in had it not been inactive.
Is this the desired behaviour, or should an object resume from where it was left off?

Implement 3d picking of shapes

[Need someone for this.]

Initially by clicking on just shapes in the 3D view.

Requires some knowledge of OpenGL.

Later, it can be extended to mesh parts (face, edge, vertex) of poly-mesh at some point.

SBCL Windows port

Port the system to sbcl/Windows/OpenGL.

Handle monitor content scale

Use glfw:get-monitor-content-scale to properly handle retina-style monitors.

Make command table demo

SBCL Port

Here will be some things needed for SBCL to work, platform independent

New transform class: generalized-transform

List of transform-operator instances instead of translate, rotate, scale.

Reorganize demos

Split into different files.
More documentation.
Better organization.

Enhance transform class: rotate pivot

Implement hierarchical motions

Motion classes for hierarchical animation.

Add start and end times for scene animation.

Necessary for hierarchical motions.

Implement basic scene management tools

Need to be able to query scenes by object name, scene-path (i.e. dag paths), etc.

Also make demos for this.

demo-uv-mesh error

Branch: main
Commit: 7ff3015
Platform: Devuan GNU/Linux x86_64, SBCL version 2.1.1

When I try to run the first demo in demo-uv-mesh.lisp I get the following error:

The value
  (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0))
is not of type
  VECTOR
when binding #:LOOP-ACROSS-VECTOR-0
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Abort compilation.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "worker" RUNNING {100454B3B3}>)

Backtrace:
  0: (TRANSFORM-POINTS! (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0)) #2A((1.0 0.0 0.0 0.0) (0.0 1.0 0.0 0.0) (0.0 0.0 1.0 0.0) (0.0 0.0 -0.75 1.0)))
  1: ((:METHOD SWEEP-EXTRUDE-AUX (UV-MESH T T T T)) #<UV-MESH UV-MESH-10, 0 points, 0 faces, dims (2 2) {100459FC43}> (#(1.5 0.0 0.0 1.0) #(-1.5 0.0 0.0 1.0)) NIL #(#(0.0 0.0 -0.75 1.0) #(0.0 0.0 0.75 1.0)..
  2: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> :TABLE #(8 #<PACKAGE "KONS-9"> CLEAR-SCENE SYMBOL-VALUE *SCENE* ADD-SHAPE .....
  3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> NIL NIL)
  4: ((FLET SB-FASL::THUNK :IN LOAD))
  5: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {7FEA3CB7DE4B}> #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}>)
  6: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /tmp/slimeMEUJRN.fasl" {100459C673}> T)
  7: (LOAD #P"/tmp/slimeMEUJRN.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
  8: ((FLET SWANK/BACKEND:CALL-WITH-COMPILATION-HOOKS :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION (LAMBDA NIL :IN SWANK/BACKEND:SWANK-COMPILE-STRING) {100459C52B}>)
  9: ((FLET SWANK/BACKEND:SWANK-COMPILE-STRING :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") "(with-clear-scene ..)
 10: ((LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS))
 11: ((LAMBDA NIL :IN SWANK::COLLECT-NOTES))
 12: (SWANK::MEASURE-TIME-INTERVAL #<FUNCTION (LAMBDA NIL :IN SWANK::COLLECT-NOTES) {10023A7ECB}>)
 13: (SWANK::COLLECT-NOTES #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10023A7E7B}>)
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10023A7E2B}>)
 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 16: (EVAL (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 17: (SWANK:EVAL-FOR-EMACS (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 18: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 19: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFC9CB}>)
 20: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORK..
 21: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {1002543E53}>)) #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFCC3B}>)
 22: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 23: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 24: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
 25: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 26: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
 27: (SB-THREAD::RUN)
 28: ("foreign function: call_into_lisp")
 29: ("foreign function: funcall1")

Similar for demo 07. All other demos work.

The value
  (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0)
   #(0.5 3.061617e-17 0.0 1.0) #(0.0 0.5 0.0 1.0))

is not of type
  VECTOR
when binding #:LOOP-ACROSS-VECTOR-0
   [Condition of type TYPE-ERROR]

Restarts:
 0: [ABORT] Abort compilation.
 1: [*ABORT] Return to SLIME's top level.
 2: [ABORT] abort thread (#<THREAD "worker" RUNNING {10018F3753}>)

Backtrace:
  0: (TRANSFORM-POINTS! (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0) #(0.5 3.061617e-17 0.0 1.0) #(0.0 0.5 0.0 1.0)) #2A((0.874994019659956d0 -0.27896714553936425d0 -0.3956803937935073d0 0.0..
  1: ((:METHOD SWEEP-EXTRUDE-AUX (UV-MESH T T T T)) #<UV-MESH UV-MESH-12, 0 points, 0 faces, dims (4 65) {1001977063}> (#(-0.5 -9.184851e-17 0.0 1.0) #(6.123234e-17 -0.5 0.0 1.0) #(0.5 3.061617e-17 0.0 1.0..
  2: (SB-FASL::LOAD-FASL-GROUP #S(SB-FASL::FASL-INPUT :STREAM #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> :TABLE #(17 #<PACKAGE "KONS-9"> CLEAR-SCENE SYMBOL-VALUE *SCENE* MAKE-SINE-CU..
  3: (SB-FASL::LOAD-AS-FASL #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> NIL NIL)
  4: ((FLET SB-FASL::THUNK :IN LOAD))
  5: (SB-FASL::CALL-WITH-LOAD-BINDINGS #<FUNCTION (FLET SB-FASL::THUNK :IN LOAD) {7FEA3CB7DE4B}> #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}>)
  6: ((FLET SB-FASL::LOAD-STREAM :IN LOAD) #<SB-SYS:FD-STREAM for "file /tmp/slimegpC8yR.fasl" {10019712B3}> T)
  7: (LOAD #P"/tmp/slimegpC8yR.fasl" :VERBOSE NIL :PRINT NIL :IF-DOES-NOT-EXIST T :EXTERNAL-FORMAT :DEFAULT)
  8: ((FLET SWANK/BACKEND:CALL-WITH-COMPILATION-HOOKS :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION (LAMBDA NIL :IN SWANK/BACKEND:SWANK-COMPILE-STRING) {100197116B}>)
  9: ((FLET SWANK/BACKEND:SWANK-COMPILE-STRING :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") "(with-clear-scene ..)
 10: ((LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS))
 11: ((LAMBDA NIL :IN SWANK::COLLECT-NOTES))
 12: (SWANK::MEASURE-TIME-INTERVAL #<FUNCTION (LAMBDA NIL :IN SWANK::COLLECT-NOTES) {100196076B}>)
 13: (SWANK::COLLECT-NOTES #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {100196071B}>)
 14: (SWANK::CALL-WITH-BUFFER-SYNTAX NIL #<FUNCTION (LAMBDA NIL :IN SWANK:COMPILE-STRING-FOR-EMACS) {10019606CB}>)
 15: (SB-INT:SIMPLE-EVAL-IN-LEXENV (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 16: (EVAL (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 17: (SWANK:EVAL-FOR-EMACS (SWANK:COMPILE-STRING-FOR-EMACS "(with-clear-scene ..)
 18: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 19: (SWANK/SBCL::CALL-WITH-BREAK-HOOK #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFC9CB}>)
 20: ((FLET SWANK/BACKEND:CALL-WITH-DEBUGGER-HOOK :IN "/home/starkaiser/.emacs.d/elpa/slime-20220712.817/swank/sbcl.lisp") #<FUNCTION SWANK:SWANK-DEBUGGER-HOOK> #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORK..
 21: (SWANK::CALL-WITH-BINDINGS ((*STANDARD-INPUT* . #<SWANK/GRAY::SLIME-INPUT-STREAM {1002543E53}>)) #<FUNCTION (LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD) {52BFCC3B}>)
 22: ((LAMBDA NIL :IN SWANK::SPAWN-WORKER-THREAD))
 23: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 24: ((FLET "WITHOUT-INTERRUPTS-BODY-11" :IN SB-THREAD::RUN))
 25: ((FLET SB-UNIX::BODY :IN SB-THREAD::RUN))
 26: ((FLET "WITHOUT-INTERRUPTS-BODY-4" :IN SB-THREAD::RUN))
 27: (SB-THREAD::RUN)
 28: ("foreign function: call_into_lisp")
 29: ("foreign function: funcall1")

Rename polygon class to curve

Add Origin library to project

@JMC-design

https://git.mfiano.net/mfiano/origin
https://quickdocs.org/origin

plugin/procedural-polygon fails to compile

Branch: main
Commit: [7ff3015]
Platform: macOS 12.5.1, SBCL 2.2.6

Steps to reproduce:

Start SBCL
Load kons-9.asdf
(asdf:load-system :kons-9)

Expected result: System loads. Can create demo window.

Actual result: COMPILE-FILE-ERROR while compiling "src/plugins/procedural-polygon"

Compiling the file separately yields:
procedural-polygon.lisp:86:1:
warning:
Duplicate definition for MAKE-CIRCLE found in one file.
--> DEFUN PROGN
==>
(EVAL-WHEN (:COMPILE-TOPLEVEL)
(SB-C:%COMPILER-DEFUN 'KONS-9::MAKE-CIRCLE T NIL NIL))

Open window.
Create polyhedron.
Close window.
Open window.
Shading is much brighter.

I suspect some OpenGL state is not being reset properly.

kaveh808 / kons-9 Goto Github PK

kons-9's Introduction

kons-9's People

Contributors

Stargazers

Watchers

Forkers

kons-9's Issues

Recommend Projects

Recommend Topics

Recommend Org