[racket-dev] [plt] Push #27263: master branch updated

On Thu, Aug 8, 2013 at 9:50 AM,  <asumu at racket-lang.org> wrote:
> asumu has updated `master' from a8405eb77d to 24e55c1faa.
>   http://git.racket-lang.org/plt/a8405eb77d..24e55c1faa
>
> =====[ 2 Commits ]======================================================
> Directory summary:
>   76.4% pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/
>   23.5% pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/
>
> ~~~~~~~~~~
>
> 495c70c Asumu Takikawa <asumu at racket-lang.org> 2013-08-07 17:15
> :
> | Doc fixes in 2htdp/image
> :
>   M .../htdp-doc/teachpack/2htdp/scribblings/image.scrbl   | 15 ++++++++-------
>
> ~~~~~~~~~~
>
> 24e55c1 Asumu Takikawa <asumu at racket-lang.org> 2013-08-07 17:16
> :
> | Doc fixes in htdp/image
> :
>   M .../htdp-doc/teachpack/htdp/scribblings/image.scrbl          | 3 ++-
>
> =====[ Overall Diff ]===================================================
>
> pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> --- OLD/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
> +++ NEW/pkgs/htdp-pkgs/htdp-doc/teachpack/2htdp/scribblings/image.scrbl
> @@ -1,6 +1,7 @@
>  #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
>                       (except-in lang/htdp-beginner posn make-posn posn? posn-x posn-y image?)
>                       lang/posn
> @@ -57,7 +58,7 @@
>            for a more careful discussion of this issue.}))
>
>  @defmodule[#:require-form beginner-require 2htdp/image]
> -
> +a
Was this addition intentional?

>  The image teachpack provides a number of basic image construction
>  functions, along with combinators for building more complex images out of
>  existing images. Basic images include various polygons, ellipses and
> @@ -504,13 +505,13 @@ They all construct a triangle oriented as follows:
>
>  }
>
> - at defproc*[([(rectangle [width real?]
> -                       [height real?]
> + at defproc*[([(rectangle [width (and/c real? (not/c negative?))]
> +                       [height (and/c real? (not/c negative?))]
>                         [mode mode?]
>                         [color image-color?])
>              image?]
> -           [(rectangle [width real?]
> -                       [height real?]
> +           [(rectangle [width (and/c real? (not/c negative?))]
> +                       [height (and/c real? (not/c negative?))]
>                         [outline-mode (or/c 'outline "outline")]
>                         [pen-or-color (or/c pen? image-color?)])
>              image?])]{
> @@ -1110,7 +1111,7 @@ a black outline.
>  @defproc[(scene+curve [scene image?]
>                        [x1 real?] [y1 real?] [angle1 angle?] [pull1 real?]
>                        [x2 real?] [y2 real?] [angle2 angle?] [pull2 real?]
> -                      [color image-color?])
> +                      [color (or/c pen? image-color?)])
>           image?]{
>
>  Adds a curve to @racket[scene], starting at the point
>
> pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/image.scrbl
> ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
> --- OLD/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/image.scrbl
> +++ NEW/pkgs/htdp-pkgs/htdp-doc/teachpack/htdp/scribblings/image.scrbl
> @@ -1,6 +1,7 @@
>  #lang scribble/doc
>
> -@(require scribble/manual "shared.rkt" (for-label racket teachpack/htdp/image))
> +@(require scribble/manual "shared.rkt"
> +          (for-label racket lang/posn teachpack/htdp/image))
>
>  @teachpack["image"]{Manipulating Images}
>