blob: e7504555c36aa8176aac3239d2edfe918537c1f5 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
;;;; License: CC0-1.0
#lang racket
(require
racket/runtime-path
sicp-pict)
(define-runtime-path rogers-file "rogers.jpg")
(define rogers
(bitmap->painter rogers-file))
(define (split left right)
(lambda (painter n)
(if (= n 0)
painter
(let ((smaller ((split left right) painter (- n 1))))
(left painter (right smaller smaller))))))
(define right-split (split beside below))
(define up-split (split below beside))
;;; Racket REPL
;;;
;;; https://ricketyspace.net/sicp/2.45.jpg
|
