Functional PostScript Examples

Functional PostScript Examples

Demo Driver

This is the demo driver for the FPS sample file. It demonstrates the use of show, channel, and various options. It outputs to the file demo.ps. [PostScript Output] 

(define (demo)
  (let* ((channel (ps2-text-channel "demo.ps" (:title "FPS Demo")))
	 (doit    (lambda (pic label) 
		    (show channel pic (:page-label label))
		    (display label) (newline))))
    (doit (fractal (pt 150 350) (pt 275 575) 10) "basic-lines")
    (doit (fractal-arrow 400 9)                  "transformation")
    (doit (headlines 9)                          "colormap")
    (doit (clip-msg "Scheme rules.")             "clipping")
    (doit (turkey 144 144)                       "bitmap")
    (doit (arc-bounding-box)                     "bounding-box")
    (doit (sun 12)                               "sun")
    (doit (square-to-circle 6)                   "tangent-arc")
    (doit (circle-text "Functional PostScript" 0.3 
		       "Halloween 1996" 0.5)       "circle-text")
    (close-channel channel)))
FPS Home | Prev Example

FPS Examples: Right-angle Fractal | Arrow Fractal | Headlines | Clipping Message | Turkey Bitmap | Sun | Bounding Box | Morphing Square to Circle | Text Along a Circle | Demo Driver