"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

Geometric subclass:#Polygon

	instanceVariableNames:'vertices'

	classVariableNames:''

	poolDictionaries:''

	category:'Graphics-Geometry'

!

!Polygon class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1988 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Polygon - an array of points

    Adds simple boundary checking methods to Array.

    (needs much more - such as inside check, area computation etc.)

    [author:]

        Claus Gittinger

    [see also:]

"

!

examples

"

  simple polygon; filled & unfilled:

                                                                        [exBegin]

    |v p|

    v := (View extent:200@200) openAndWait.

    p := Polygon vertices:

                (Array with:(10@10)

                       with:(90@90)

                       with:(10@90)).

    v scale:2.

    v paint:Color blue.

    p displayFilledOn:v.

    v paint:Color red.

    p displayStrokedOn:v.

    v scale:1; translation:100@0.

    v paint:Color green.

    p displayFilledOn:v.

    v paint:Color black.

    p displayStrokedOn:v.

                                                                        [exEnd]

  arbitrary polygon; filled & unfilled:

                                                                        [exBegin]

    |v p|

    v := (View extent:200@200) openAndWait.

    v scale:2.

    p := Polygon vertices:

                (Array with:(10@10)

                       with:(90@90)

                       with:(50@90)

                       with:(90@10)

                       with:(10@90)

                                   ).

    v paint:Color blue.

    p displayFilledOn:v.

    v paint:Color red.

    p displayStrokedOn:v.

                                                                        [exEnd]

"

! !

!Polygon class methodsFor:'instance creation'!

fromRectangle:aRectangle

    "return a new polygon, taking the rectangles vertices"

    ^ self new vertices:(aRectangle asPointArray)

    "

     Polygon fromRectangle:(50@50 corner:100@100)

    "

    "Modified: 8.5.1996 / 20:15:18 / cg"

!

vertices:anArrayOfPoints

    "return a new polygon, given a collection of vertices"

    ^ self new vertices:anArrayOfPoints

    "

     Polygon vertices:(Array with:10@10

                             with:20@20

                             with:30@30)

     Polygon vertices:(#(10 10  100 0  50 50) pairWiseCollect:[:x :y | x @ y])

    "

    "Modified: 8.5.1996 / 20:11:31 / cg"

! !

!Polygon methodsFor:'accessing'!

vertices

    "return the array containing my points"

    ^ vertices

!

vertices:anArrayOfPoints

    "set the array containing my points"

    vertices := anArrayOfPoints

! !

!Polygon methodsFor:'displaying'!

displayFilledOn:aGC

    "display a filled polygin as represented by the receiver in 

     the graphicsContext, aGC"

    aGC fillPolygon:vertices 

    "

     |v|

     v := View new openAndWait.

     (Polygon vertices:(

          Array

            with:10@10

            with:60@10

            with:35@60)) displayFilledOn:v

     |v|

     v := View new openAndWait.

     (Polygon vertices:(

        Array

            with:10@10

            with:60@10

            with:35@60

            with:10@10)) displayStrokedOn:v

    "

    "Modified: 8.5.1996 / 14:41:47 / cg"

!

displayStrokedOn:aGC

    "display an unfilled polygin as represented by the receiver in 

     the graphicsContext, aGC"

    aGC displayPolygon:vertices 

    "

     |v|

     v := View new open.

     [v shown] whileFalse:[Processor yield].

     (Polygon vertices:(

        Array

            with:10@10

            with:60@10

            with:35@60)) displayStrokedOn:v

     |v|

     v := View new open.

     [v shown] whileFalse:[Processor yield].

     (Polygon vertices:(

        Array

            with:10@10

            with:60@10

            with:35@60

            with:10@10)) displayStrokedOn:v

    "

    "Modified: 27.4.1996 / 14:52:29 / cg"

! !

!Polygon methodsFor:'enumerating'!

edgesDo:aTwoArgBlock

    "evaluate aTwoArgBlock for each pair of vertices"

    1 to:vertices size-1 do:[:i |

	aTwoArgBlock value:(vertices at:i) value:(vertices at:i+1)

    ].

    "

     |v p|

     v := View new open.

     [v shown] whileFalse:[Processor yield].

     p := Polygon vertices:(Array with:5@5 

				  with:50@5 

				  with:30@30

				  with:5@5).

     p displayOn:v.

     (Delay forSeconds:3) wait.

     p edgesDo:[:p1 :p2 | v lineWidth:3. v displayLineFrom:p1 to:p2] 

    "

!

verticesDo:aBlock

    "evaluate aBlock for each point"

    vertices do:aBlock

    "

     |v p|

     v := View new open.

     [v shown] whileFalse:[Processor yield].

     p := Polygon vertices:(Array with:5@5 

				  with:50@5 

				  with:30@30

				  with:5@5).

     p displayOn:v.

     (Delay forSeconds:3) wait.

     p verticesDo:[:p | v displayRectangleX:p x -3  y:p y -3  width:6 height:6] 

    "

! !

!Polygon methodsFor:'queries'!

bottom

    "return the bottom boundary of the polygon,

     that is the maximum y coordinate of all its points"

    (vertices size == 0) ifTrue: [^ nil].

    ^ vertices inject:(vertices at:1) y into:[:maxSoFar :p | maxSoFar max:(p y)]

    "

     (Polygon vertices:(

	Array

	    with:10@10

	    with:60@10

	    with:35@60)) bottom 

    "

!

bounds

    "return the smallest enclosing rectangle"

    |minX maxX minY maxY t n "{ Class: SmallInteger }" |

    n := vertices size.

    n == 0 ifTrue:[

        ^ nil    "/ mhmh - should we return an empty rectangle here ?

    ].

    t := vertices at:1.

    minX := maxX := t x.

    minY := maxY := t y.

    2 to:n do:[:i |

        |x y t|

        t := vertices at:i.

        x := t x.

        y := t y.

        x < minX ifTrue:[

            minX := x.

        ] ifFalse:[

            x > maxX ifTrue:[

                maxX := x.

            ]

        ].

        y < minY ifTrue:[

            minY := y.

        ] ifFalse:[

            y > maxY ifTrue:[

                maxY := y.

            ]

        ].

    ].

    ^ Rectangle origin:(minX @ minY) corner:(maxX @ maxY).

    "

     |p|

     p := (Polygon vertices:(

            Array

                with:10@10

                with:60@10

                with:35@60)).

     p bounds 

    "

    "Modified: 8.5.1996 / 14:06:35 / cg"

!

canBeFilled

    "return true, if the receiver can be drawn as a filled geometric.

     Always true here."

    ^ true

    "Created: 8.5.1996 / 08:16:53 / cg"

!

left

    "return the left boundary of the polygon,

     that is the minimum x coordinate of all its points"

    (vertices size == 0) ifTrue: [^ nil].

    ^ vertices inject:(vertices at:1) x into:[:minSoFar :p | minSoFar min:(p x)]

    "

     (Polygon vertices:(

	Array

	    with:10@10

	    with:60@10

	    with:35@60)) left  

    "

!

right

    "return the right boundary of the polygon,

     that is the maximum x coordinate of all its points"

    (vertices size == 0) ifTrue: [^ nil].

    ^ vertices inject:(vertices at:1) x into:[:maxSoFar :p | maxSoFar max:(p x)]

    "

     (Polygon vertices:(

	Array

	    with:10@10

	    with:60@10

	    with:35@60)) right  

    "

!

top

    "return the top boundary of the polygon,

     that is the minimum y coordinate of all its points"

    (vertices size == 0) ifTrue: [^ nil].

    ^ vertices inject:(vertices at:1) y into:[:minSoFar :p | minSoFar min:(p y)]

    "

     (Polygon vertices:(

	Array

	    with:10@10

	    with:60@10

	    with:35@60)) top  

    "

! !

!Polygon class methodsFor:'documentation'!

version

! !