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

added contract to scale

Browse Source
This commit is contained in:
Robby Findler 2010-09-26 09:24:15 -05:00
parent c0e34a7166
commit 827679e9db
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/texpict/utils.rkt
View File

@ -47,7 +47,6 @@
color-series color-series
scale-color scale-color
scale
scale/improve-new-text scale/improve-new-text
cellophane cellophane
@ -64,6 +63,8 @@
(andmap pict? p)))) (andmap pict? p))))
(provide/contract (provide/contract
[scale (case-> (-> pict? number? number? pict?)
(-> pict? number? pict?))]
[pin-line (->* (pict? [pin-line (->* (pict?
pict-path? (-> pict? pict-path? (values number? number?)) pict-path? (-> pict? pict-path? (values number? number?))
pict-path? (-> pict? pict-path? (values number? number?))) pict-path? (-> pict? pict-path? (values number? number?)))