103 lines
10 KiB
Plaintext
103 lines
10 KiB
Plaintext
((1) 0 () 0 () () 5)
|
|
((1) 0 () 0 () () 5)
|
|
((1) 0 () 0 () () (c begin c "art gallery"))
|
|
((1) 0 () 0 () () "art gallery")
|
|
((1) 0 () 0 () () (c circle c 10))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img0.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c rectangle c 10 c 20))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img1.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c circle c 10 c 20))
|
|
((1) 1 (((lib "exn.ss" "scribblings" "quick") . deserialize-info:mr-exn-v0)) 0 () () (0 "procedure circle: expects 1 argument, given 2: 10 20"))
|
|
((1) 0 () 0 () () (c hc-append c (c circle c 10) c (c rectangle c 10 c 20)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img2.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c c c (c circle c 10)))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c define c r c (c rectangle c 10 c 20)))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () r)
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img3.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c hc-append c c c r))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img4.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c hc-append c 20 c c c r c c))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img5.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c square c n) c (c filled-rectangle c n c n)))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c square c 10))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img6.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c four c p) c (c define c two-p c (c hc-append c p c p)) c (c vc-append c two-p c two-p)))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c four c (c circle c 10)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img7.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c checker c p1 c p2) c (c let c (c (c p12 c (c hc-append c p1 c p2)) c (c p21 c (c hc-append c p2 c p1))) c (c vc-append c p12 c p21))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c checker c (c colorize c (c square c 10) c "red") c (c colorize c (c square c 10) c "black")))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img8.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c checkerboard c p) c (c let* c (c (c rp c (c colorize c p c "red")) c (c bp c (c colorize c p c "black")) c (c c c (c checker c rp c bp)) c (c c4 c (c four c c))) c (c four c c4))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c checkerboard c (c square c 10)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img9.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () circle)
|
|
((1) 1 (((lib "struct.ss" "scribble") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#<procedure:circle>"))))
|
|
((1) 0 () 0 () () (c define c (c series c mk) c (c hc-append c 4 c (c mk c 5) c (c mk c 10) c (c mk c 20))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c series c circle))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img10.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c series c square))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img11.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c series c (c lambda c (c size) c (c checkerboard c (c square c size)))))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img12.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c rgb-series c mk) c (c vc-append c (c series c (c lambda c (c sz) c (c colorize c (c mk c sz) c "red"))) c (c series c (c lambda c (c sz) c (c colorize c (c mk c sz) c "green"))) c (c series c (c lambda c (c sz) c (c colorize c (c mk c sz) c "blue"))))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c rgb-series c circle))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img13.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c rgb-series c square))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img14.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define c (c rgb-maker c mk) c (c lambda c (c sz) c (c vc-append c (c colorize c (c mk c sz) c "red") c (c colorize c (c mk c sz) c "green") c (c colorize c (c mk c sz) c "blue")))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c series c (c rgb-maker c circle)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img15.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c series c (c rgb-maker c square)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img16.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c list c "red" c "green" c "blue"))
|
|
((1) 0 () 0 () () (c "red" c "green" c "blue"))
|
|
((1) 0 () 0 () () (c list c (c circle c 10) c (c square c 10)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 1 ("[image]") () (c (0 #f (c (0 (1 (u . "images/img17.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img18.png") 1.0) (c (? . 0)))))))
|
|
((1) 0 () 0 () () (c define c (c rainbow c p) c (c map c (c lambda c (c color) c (c colorize c p c color)) c (c list c "red" c "orange" c "yellow" c "green" c "blue" c "purple"))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c rainbow c (c square c 5)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 1 ("[image]") () (c (0 #f (c (0 (1 (u . "images/img19.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img20.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img21.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img22.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img23.png") 1.0) (c (? . 0))))) c (0 #f (c (0 (1 (u . "images/img24.png") 1.0) (c (? . 0)))))))
|
|
((1) 0 () 0 () () (c apply c vc-append c (c rainbow c (c square c 5))))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img25.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c require c slideshow/flash))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c filled-flash c 40 c 30))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img26.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c require c (c planet c "random.ss" c (c "schematics" c "random.plt" c 1 c 0))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c random-gaussian))
|
|
((1) 0 () 0 () () 0.7386912134436788)
|
|
((1) 0 () 0 () () (c require c slideshow/code))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c code c (c circle c 10)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img27.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c define-syntax c pict+code c (c syntax-rules c () c (c (c pict+code c expr) c (c hc-append c 10 c expr c (c code c expr))))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c pict+code c (c circle c 10)))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img28.png") 1.0) (c "[image]")))))
|
|
((1) 0 () 0 () () (c require c scheme/class c scheme/gui/base))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c define c f c (c new c frame% c (c label c "My Art") c (c width c 300) c (c height c 300) c (c alignment c (c quote c (c center c center))))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c send c f c show c #t))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c send c f c show c #f))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c define c (c add-drawing c p) c (c let c (c (c drawer c (c make-pict-drawer c p))) c (c new c canvas% c (c parent c f) c (c style c (c quote c (c border))) c (c paint-callback c (c lambda c (c self c dc) c (c drawer c dc c 0 c 0)))))))
|
|
((1) 0 () 0 () () (void))
|
|
((1) 0 () 0 () () (c add-drawing c (c pict+code c (c circle c 10))))
|
|
((1) 1 (((lib "struct.ss" "scribble") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:object:canvas% ...)"))))
|
|
((1) 0 () 0 () () (c add-drawing c (c colorize c (c filled-flash c 50 c 30) c "yellow")))
|
|
((1) 1 (((lib "struct.ss" "scribble") . deserialize-info:element-v0)) 0 () () (0 #f (c (u . "#(struct:object:canvas% ...)"))))
|
|
((1) 0 () 0 () () (c scale c (c bitmap c (c build-path c (c collection-path c "scribblings/quick") c "art.png")) c 0.5))
|
|
((1) 2 (((lib "struct.ss" "scribble") . deserialize-info:element-v0) ((lib "struct.ss" "scribble") . deserialize-info:image-file-v0)) 0 () () (0 #f (c (0 (1 (u . "images/img29.png") 1.0) (c "[image]")))))
|