- in - WIDTH: int32 - image width
- in - HEIGHT: int32 - image height
- in - X: int32 - x start of maze
- in - Y: int32 - y start of maze
- in - SIDEWALL: float - probability of wall to side of direction
- in - AHEAD: float - probability of wall drawn ahead of direction
- Generates binary (monochrome) maze
- returns: ppix or #f on error.
(import scheme.base chicken.foreign leptonic)
(include "leptonic-types.scm")
;; generate maze, 100x75px, starts at x=5,y=70px
(define-external maze ppix (gen-bin-maze 100 75 5 70 .52 .48))
(pix-write "maze.jpg" maze 2)
(pix-destroy (location maze))