Draw sexp
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.
.gitignore
LICENSE
README.md
info.rkt
main.rkt

README.md

pict-sexp

Draw sexp.

fib.png

INSTALL

raco pkg install https://github.com/tojoqk/pict-sexp.git

UPDATE

raco pkg update https://github.com/tojoqk/pict-sexp.git

UNINSTALL

raco pkg remove pict-sexp

USAGE

Save as "pict-fib.png".

#lang racket
(require pict)
(require pict-sexp)

(define pict-fib
  (pict-sexp
   '(define (fib n)
      (cond
        [(= n 0) 0]
        [(= n 1) 1]
        [else
         (+ (fib (- n 1))
            (fib (- n 2)))]))))

(send (pict->bitmap pict-fib) save-file "pict-fib.png" 'png)