GitHub - snauts/abop: Yet another L-system implementation

Branches Tags

Name		Name	Last commit message	Last commit date
Latest commit History 1 Commit
Makefile		Makefile
README		README
abop.asd		abop.asd
anubias-leaf.obj		anubias-leaf.obj
anubias.png		anubias.png
bacopa-leaf.obj		bacopa-leaf.obj
bark.png		bark.png
birch-bark.png		birch-bark.png
birch-leaf.png		birch-leaf.png
bouquet.obj		bouquet.obj
chestnut.obj		chestnut.obj
chestnut.png		chestnut.png
clay-pot.obj		clay-pot.obj
clay-pot.png		clay-pot.png
collada.lisp		collada.lisp
common.lisp		common.lisp
compile.lisp		compile.lisp
copyright		copyright
cornflower.png		cornflower.png
cornflower1.obj		cornflower1.obj
cornflower2.obj		cornflower2.obj
cornflower3.obj		cornflower3.obj
cornflower4.obj		cornflower4.obj
crystal.obj		crystal.obj
dandelion-cap.obj		dandelion-cap.obj
dandelion-leaf.obj		dandelion-leaf.obj
dandelion-leaf.png		dandelion-leaf.png
dandelion-petal.obj		dandelion-petal.obj
dandelion-petal.png		dandelion-petal.png
dandelion-pistil.obj		dandelion-pistil.obj
dandelion-septal.png		dandelion-septal.png
dandelion-septal1.obj		dandelion-septal1.obj
dandelion-septal2.obj		dandelion-septal2.obj
draw.lisp		draw.lisp
elm-leaf.png		elm-leaf.png
examples.lisp		examples.lisp
fikuss.obj		fikuss.obj
fikuss.png		fikuss.png
freesia-bud.obj		freesia-bud.obj
freesia-bud.png		freesia-bud.png
freesia-cup.obj		freesia-cup.obj
freesia-flower.png		freesia-flower.png
freesia-flower1.obj		freesia-flower1.obj
freesia-flower2.obj		freesia-flower2.obj
geometry.lisp		geometry.lisp
half-leaf.obj		half-leaf.obj
json.lisp		json.lisp
l-system.lisp		l-system.lisp
leaf.obj		leaf.obj
lilac.obj		lilac.obj
lily-petal.obj		lily-petal.obj
lily-pistil.obj		lily-pistil.obj
machine.c		machine.c
maple-leaf.png		maple-leaf.png
monkey.obj		monkey.obj
oak-leaf.png		oak-leaf.png
opengl.lisp		opengl.lisp
petal.png		petal.png
pine-bark.png		pine-bark.png
pine-cone-seed.obj		pine-cone-seed.obj
povray.lisp		povray.lisp
purse-flower.obj		purse-flower.obj
purse-fruit.obj		purse-fruit.obj
purse-leaf.obj		purse-leaf.obj
renderman.sh		renderman.sh
rib.lisp		rib.lisp
rizatoma.png		rizatoma.png
rose-leaf.obj		rose-leaf.obj
rose-leaf.png		rose-leaf.png
rose-petal.obj		rose-petal.obj
rose-sting.obj		rose-sting.obj
rose-sub.obj		rose-sub.obj
rose-sub.png		rose-sub.png
scene.ini		scene.ini
scene.pov		scene.pov
scene.rib		scene.rib
shadow.rib		shadow.rib
shadowmap.sl		shadowmap.sl
skuja.obj		skuja.obj
sphere.obj		sphere.obj
spruce-branch.obj		spruce-branch.obj
spruce-branch.png		spruce-branch.png
system.lisp		system.lisp
texmap.sl		texmap.sl
turtle.lisp		turtle.lisp
wavefront.lisp		wavefront.lisp

Repository files navigation

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