aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--README.md25
1 files changed, 25 insertions, 0 deletions
diff --git a/README.md b/README.md
index 30bd341..bfb74c0 100644
--- a/README.md
+++ b/README.md
@@ -2,3 +2,28 @@
Draw sexp.
![fib.png](https://raw.githubusercontent.com/wiki/tojoqk/pict-sexp/images/fib.png)
+
+# INSALL
+```
+raco pkg install https://github.com/tojoqk/pict-sexp.git
+```
+
+# 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)
+```