Yet another L-system implementation
Common Lisp C Shell
Switch branches/tags
Nothing to show
Clone or download
Fetching latest commit…
Cannot retrieve the latest commit at this time.
Permalink
Failed to load latest commit information.
Makefile
README
abop.asd
anubias-leaf.obj
anubias.png
bacopa-leaf.obj
bark.png
birch-bark.png
birch-leaf.png
bouquet.obj
chestnut.obj
chestnut.png
clay-pot.obj
clay-pot.png
collada.lisp
common.lisp
compile.lisp
copyright
cornflower.png
cornflower1.obj
cornflower2.obj
cornflower3.obj
cornflower4.obj
crystal.obj
dandelion-cap.obj
dandelion-leaf.obj
dandelion-leaf.png
dandelion-petal.obj
dandelion-petal.png
dandelion-pistil.obj
dandelion-septal.png
dandelion-septal1.obj
dandelion-septal2.obj
draw.lisp
elm-leaf.png
examples.lisp
fikuss.obj
fikuss.png
freesia-bud.obj
freesia-bud.png
freesia-cup.obj
freesia-flower.png
freesia-flower1.obj
freesia-flower2.obj
geometry.lisp
half-leaf.obj
json.lisp
l-system.lisp
leaf.obj
lilac.obj
lily-petal.obj
lily-pistil.obj
machine.c
maple-leaf.png
monkey.obj
oak-leaf.png
opengl.lisp
petal.png
pine-bark.png
pine-cone-seed.obj
povray.lisp
purse-flower.obj
purse-fruit.obj
purse-leaf.obj
renderman.sh
rib.lisp
rizatoma.png
rose-leaf.obj
rose-leaf.png
rose-petal.obj
rose-sting.obj
rose-sub.obj
rose-sub.png
scene.ini
scene.pov
scene.rib
shadow.rib
shadowmap.sl
skuja.obj
sphere.obj
spruce-branch.obj
spruce-branch.png
system.lisp
texmap.sl
turtle.lisp
wavefront.lisp

README

This program is implementation of L-systems 
as described in "The Algorithmic Beauty of Plants"
http://algorithmicbotany.org/papers/abop/abop.pdf

*) Build the machine.so

   You have to get development libraries of zlib, libpng, opengl and SDL

*) Make sure you have cffi and cl-opengl

*) To run all examples launch SBCL or CLISP and type:

  (asdf:oos 'asdf:load-op 'abop)
  (in-package :abop)
  (all)

*) UI in OpenGL view:

  rotate			- MB-drag
  zoom				- CTRL + MB-drag
  pan				- SHIFT + MB-drag
  quit				- Q or ESC
  save wavefront (scene.obj)	- W
  save povray (scene.inc)	- R
  save PNM (result-xxxxx.pnm)	- S
  save collada (scene.dae)	- C
  save renderman rib		- B