suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

pt- to pip- in tutorial

Browse Source 
svn: r193
This commit is contained in:
Matthew Flatt 2005-06-16 10:55:33 +00:00
parent 4aabbba277
commit 86802e9ce1
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/slideshow/info.ss
View File

@ -9,4 +9,4 @@
(define mred-launcher-libraries (list "start.ss"))
(define mred-launcher-names (list "Slideshow"))
(define compile-omit-files
(list "tutorial-show.ss" "initial-ones.ss" "pict-snipclass.ss")))
(list "initial-ones.ss" "pict-snipclass.ss")))

8
collects/slideshow/tutorial-show.ss
View File

@ -507,13 +507,13 @@
"pict's bounding box and baselines")
(note "(The green frame is the \"bounding box\" of the result)")
(blank)
(page-item "The" (code pin-over) "function is useful with" (code pt-arrow-line)
(page-item "The" (code pin-over) "function is useful with" (code pip-arrow-line)
"to draw an"
(let ([p (bound-frame (inset (t "outgoing arrow") 2))])
(pin-over p (/ (pict-width p) 2) (/ (pict-height p) 2)
;; pt-arrow-line creates a pict where the
;; pip-arrow-line creates a pict where the
;; "bounding box" corresponds to the non-arrow end
(linewidth 3 (colorize (pt-arrow-line 50 50 gap-size) "orange"))))
(linewidth 3 (colorize (pip-arrow-line 50 50 gap-size) "orange"))))
"without changing the layout"))
(define blue-fish (standard-fish (* 3 gap-size) (* 2 gap-size) 'right "blue" "white"))
@ -533,7 +533,7 @@
(pin-over fish-file-scene
fdx fdy
(colorize
(pt-arrow-line (- adx fdx) (- ady fdy) gap-size)
(pip-arrow-line (- adx fdx) (- ady fdy) gap-size)
"orange")))
(page-para "There's a" (code -find) "function for every combination of"
(code l) "," (code c) ", and" (code r)