Doc fixes in 2htdp/image

This commit is contained in:
Asumu Takikawa 2013-08-07 17:15:48 -04:00
parent a8405eb77d
commit 495c70cb61

View File

@ -1,6 +1,7 @@
#lang scribble/doc #lang scribble/doc
@(require (for-label (only-in racket/contract and/c or/c any/c not/c) @(require (for-label (only-in racket/contract and/c or/c any/c not/c listof
>=/c <=/c)
2htdp/image 2htdp/image
(except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?) (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?)
lang/posn lang/posn
@ -57,7 +58,7 @@
for a more careful discussion of this issue.})) for a more careful discussion of this issue.}))
@defmodule[#:require-form beginner-require 2htdp/image] @defmodule[#:require-form beginner-require 2htdp/image]
a
The image teachpack provides a number of basic image construction The image teachpack provides a number of basic image construction
functions, along with combinators for building more complex images out of functions, along with combinators for building more complex images out of
existing images. Basic images include various polygons, ellipses and existing images. Basic images include various polygons, ellipses and
@ -504,13 +505,13 @@ They all construct a triangle oriented as follows:
} }
@defproc*[([(rectangle [width real?] @defproc*[([(rectangle [width (and/c real? (not/c negative?))]
[height real?] [height (and/c real? (not/c negative?))]
[mode mode?] [mode mode?]
[color image-color?]) [color image-color?])
image?] image?]
[(rectangle [width real?] [(rectangle [width (and/c real? (not/c negative?))]
[height real?] [height (and/c real? (not/c negative?))]
[outline-mode (or/c 'outline "outline")] [outline-mode (or/c 'outline "outline")]
[pen-or-color (or/c pen? image-color?)]) [pen-or-color (or/c pen? image-color?)])
image?])]{ image?])]{
@ -1110,7 +1111,7 @@ a black outline.
@defproc[(scene+curve [scene image?] @defproc[(scene+curve [scene image?]
[x1 real?] [y1 real?] [angle1 angle?] [pull1 real?] [x1 real?] [y1 real?] [angle1 angle?] [pull1 real?]
[x2 real?] [y2 real?] [angle2 angle?] [pull2 real?] [x2 real?] [y2 real?] [angle2 angle?] [pull2 real?]
[color image-color?]) [color (or/c pen? image-color?)])
image?]{ image?]{
Adds a curve to @racket[scene], starting at the point Adds a curve to @racket[scene], starting at the point