home *** CD-ROM | disk | FTP | other *** search
/ The CDPD Public Domain Collection for CDTV 3 / CDPDIII.bin / pd / programming / gnusmalltalk / rectangle.st < prev    next >
Text File  |  1992-02-15  |  12KB  |  383 lines
  1. "========================================================================
  2. |
  3. |   Rectangle Class
  4. |
  5.  ========================================================================"
  6.  
  7. "======================================================================
  8. |
  9. | Copyright (C) 1990, 1991, 1992 Free Software Foundation, Inc.
  10. | Written by Steve Byrne.
  11. |
  12. | This file is part of GNU Smalltalk.
  13. |
  14. | GNU Smalltalk is free software; you can redistribute it and/or modify it
  15. | under the terms of the GNU General Public License as published by the Free
  16. | Software Foundation; either version 1, or (at your option) any later version.
  17. | 
  18. | GNU Smalltalk is distributed in the hope that it will be useful, but WITHOUT
  19. | ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
  20. | FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more
  21. | details.
  22. | 
  23. | You should have received a copy of the GNU General Public License along with
  24. | GNU Smalltalk; see the file COPYING.  If not, write to the Free Software
  25. | Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  
  26. |
  27.  ======================================================================"
  28.  
  29.  
  30. "
  31. |     Change Log
  32. | ============================================================================
  33. | Author       Date       Change
  34. | sbb         10 Jul 91      Altered the printing and storing to use cascaded
  35. |              messages.
  36. |
  37. | sbb         10 Jul 91      Added #= and #hash methods.
  38. |
  39. | dougm      19 Apr 90    Initial definitions for Rectangle class (needs Point)
  40. |
  41. "
  42.  
  43. Object subclass: #Rectangle
  44.        instanceVariableNames: 'origin corner'
  45.        classVariableNames: ''
  46.        poolDictionaries: ''
  47.        category: nil
  48. !
  49.  
  50. Rectangle comment:
  51. 'Beginning of the Rectangle class for simple display manipulation.
  52.  Rectangles require the Point class to be available.  An extension
  53.  to the Point class is made here that since it requires Rectangles
  54.  to be defined (see converting)' !
  55.  
  56. !Rectangle class methodsFor: 'instance creation'!
  57.  
  58. origin: originPoint corner: cornerPoint
  59.     ^self new origin: originPoint corner: cornerPoint
  60. !
  61.  
  62. origin: originPoint extent: extentPoint
  63.     ^self new origin: originPoint corner: (originPoint + extentPoint)
  64. !
  65.  
  66. left: leftNumber right: rightNumber top: topNumber bottom: bottomNumber
  67.     ^self new origin: (Point x: leftNumber y: topNumber) corner: (Point x: rightNumber y: bottomNumber)
  68. !!
  69.  
  70. !Rectangle methodsFor: 'accessing'!
  71.  
  72. origin: originPoint corner: cornerPoint
  73.     origin _ originPoint.
  74.     corner _ cornerPoint
  75. !
  76.  
  77. origin
  78.     ^origin
  79. !
  80.  
  81. corner
  82.     ^corner
  83. !
  84.  
  85. topLeft
  86.     ^origin
  87. !
  88.  
  89. topCenter
  90.     ^Point x: (origin x + (self width / 2)) y: (origin y)
  91. !
  92.  
  93. topRight
  94.     ^Point x: (corner x) y: (origin y)
  95. !
  96.  
  97. rightCenter
  98.     ^Point x: (corner x) y: (origin y + (self height / 2))
  99. !
  100.  
  101. bottomCenter
  102.     ^Point x: (origin x + (self width / 2)) y: (corner y)
  103. !
  104.  
  105. bottomLeft
  106.     ^Point x: (origin x) y: (corner y)
  107. !
  108.  
  109. bottomRight
  110.     ^corner
  111. !
  112.  
  113. leftCenter
  114.     ^Point x: (origin x) y: (origin y + (self height / 2))
  115. !
  116.  
  117. center
  118.     ^Point x: (origin x + (self width / 2))
  119.        y: (origin y + (self height / 2))
  120. !
  121.  
  122. area
  123.     ^ (self width) * (self height)
  124. !
  125.  
  126. width
  127.     ^(corner x) - (origin x)
  128. !
  129.  
  130. height
  131.     ^(corner y) - (origin y)
  132. !
  133.  
  134. extent
  135.     ^Point x: (self width) y: (self height)
  136. !
  137.  
  138. top
  139.     ^(origin y)
  140. !
  141.  
  142. right
  143.     ^(corner x)
  144. !
  145.  
  146. bottom
  147.     ^(corner y)
  148. !
  149.  
  150. left
  151.     ^(origin x)
  152. !!
  153.  
  154.  
  155. "Not yet implemented: messages to set the locations as mentioned on p 346"
  156.  
  157.  
  158.  
  159. !Rectangle methodsFor: 'testing'!
  160.  
  161. containsPoint: aPoint
  162.     ^(origin < aPoint) & (corner > aPoint)
  163. !
  164.  
  165. contains: aRectangle
  166.     ^(self containsPoint: (aRectangle origin)) &
  167.        (self containsPoint: (aRectangle corner))
  168. !
  169.  
  170. intersects: aRectangle
  171.     ^(self containsPoint: aRectangle topLeft) or:
  172.        [(self containsPoint: aRectangle topRight) or:
  173.            [(self containsPoint: aRectangle bottomLeft) or:
  174.                [(self containsPoint: aRectangle bottomRight)]]]
  175. !
  176.  
  177. = aRectangle
  178.     ^(origin = aRectangle origin)
  179.     and: [ corner = aRectangle corner ]
  180. !
  181.  
  182. hash
  183.     ^(origin hash) * (corner hash)
  184. !!
  185.  
  186. !Rectangle methodsFor: 'rectangle functions'!
  187.  
  188. amountToTranslateWithin: aRectangle
  189.     ^(aRectangle origin)-origin
  190. !
  191.  
  192. "----------------------------------------------------------------
  193. |areasOutside: aRectangle
  194. | most complicated of the Rectangle primitives
  195. | The basic methodology is to first determine that there is an
  196. | intersection by finding the overlapping rectangle.  From the
  197. | overlapping rectangle, first determine if it runs along an edge.
  198. | If it doesn't, extend the rectangle up to the top edge and add
  199. | the new rectangle to the collection and start the rest of the
  200. | process.  If the left edge does not touch the left edge of self,
  201. | extend it to the edge saving the new rectangle.  Then do the
  202. | same to the right edge.  Then check top and bottom edges.  Most
  203. | of the time only 2 or 3 rectangles get formed, occasionally 4.
  204. | It should be possible to never get more than 3 but requires more
  205. | work.
  206.  ----------------------------------------------------------------"
  207.  
  208. areasOutside: aRectangle
  209.     | collect iRect tmp |
  210.     iRect _ self intersect: aRectangle.
  211.     (iRect = nil) ifTrue: [^nil]. "case of no intersection"
  212.                                "the collect collection gathers Rectangles"
  213.     collect _ OrderedCollection new: 4.
  214.                                "is it floating or on the edge?"
  215.     (((iRect top) ~= self top) &
  216.              ((iRect bottom) ~= self bottom) &
  217.                    ((iRect left) ~= self left) & ((iRect right) ~= self right))
  218.        ifTrue: "entirely in the center."
  219.            [tmp _ Rectangle origin: (Point x: iRect left y: self top)
  220.                             corner: iRect bottomRight.
  221.             collect add: tmp.
  222.             iRect _ iRect merge: tmp].
  223.     ((iRect left) ~= self left)
  224.        ifTrue:                 "doesn't touch left edge so make it touch"
  225.            [tmp _ Rectangle origin: (Point x: self left y: iRect top)
  226.                                 corner: iRect bottomLeft.
  227.                 collect add: tmp.
  228.                                "merge new (tmp) with overlap to keep track"
  229.                 iRect _ iRect merge: tmp].
  230.     ((iRect right) ~= self right)
  231.        ifTrue:                 "doesn't touch right edge so extendi it"
  232.            [tmp _ Rectangle origin: iRect topRight
  233.                                 corner: (Point x: self right y: iRect bottom).
  234.                 collect add: tmp.
  235.                 iRect _ iRect merge: tmp].
  236.     (((iRect left) ~= self left) | ((iRect top) ~= self top))
  237.        ifTrue:                 "whole top part can be taken now"
  238.            [tmp _ Rectangle origin: origin corner: iRect topRight.
  239.                 collect add: tmp].
  240.     (((iRect right) ~= self right) | ((iRect bottom) ~= self bottom))
  241.        ifTrue:                 "whole bottom open and can be taken"
  242.            [tmp _ Rectangle origin: iRect bottomLeft corner: corner.
  243.                 collect add: tmp].
  244.     ^collect
  245. !
  246.  
  247. expandBy: delta
  248.     delta _ delta asRectangle.    "not completed"
  249.     (delta isMemberOf: Point) ifTrue:
  250.        [^Rectangle origin: (origin-delta)
  251.                    corner: (corner+delta)].
  252.     (delta isMemberOf: Rectangle) ifTrue:
  253.        [^Rectangle origin: (origin-(delta origin))
  254.                    corner: (corner+(delta corner))].
  255.     (delta isKindOf: Number) ifTrue:
  256.        [^Rectangle left: (origin x)-delta
  257.                    right:(corner x)+delta
  258.                    top:  (origin y)-delta
  259.                    bottom:(corner y)+delta].
  260.     self error: 'Illegal delta value'
  261. !
  262.  
  263. insetBy: delta
  264.     (delta isMemberOf: Point) ifTrue:
  265.        [^Rectangle origin: (origin+delta)
  266.                    corner: (corner-delta)].
  267.     (delta isMemberOf: Rectangle) ifTrue:
  268.        [^Rectangle origin: (origin+(delta origin))
  269.                    corner: (corner-(delta corner))].
  270.     (delta isKindOf: Number) ifTrue:
  271.        [^Rectangle left: (origin x)+delta
  272.                    right:(corner x)-delta
  273.                    top:  (origin y)+delta
  274.                    bottom:(corner y)-delta].
  275.     self error: 'Illegal delta value'
  276. !
  277.  
  278. insetOriginBy: originDeltaPoint corner: cornerDeltaPoint
  279.     ^Rectangle origin: origin + originDeltaPoint
  280.               corner: corner + cornerDeltaPoint
  281. !
  282.  
  283. merge: aRectangle
  284.     | orig corn |
  285.     orig _ Point x: ((origin x) min: (aRectangle origin x))
  286.                 y: ((origin y) min: (aRectangle origin y)).
  287.     corn _ Point x: ((corner x) max: (aRectangle corner x))
  288.                 y: ((corner y) max: (aRectangle corner y)).
  289.     ^Rectangle origin: orig corner: corn
  290. !
  291.  
  292. "--------------------------------------------------------------
  293. | A intersect: B
  294. |   returns the rectangle (if any) created by the overlap of
  295. |   rectangles A and B.  There are 10 possible overlap situations:
  296. |      A inside B
  297. |      B inside A
  298. |      A overlaps B at one of the four corners (1 point inside)
  299. |      A overlaps B on one of the four sides (2 points inside)
  300.  ---------------------------------------------------------------"
  301.  
  302. intersect: aRectangle
  303.     (self contains: aRectangle) ifTrue: [^Rectangle origin: aRectangle origin
  304.                                                    corner: aRectangle corner].
  305.     (aRectangle contains: self)  ifTrue: [^Rectangle origin: origin
  306.                                                     corner: corner].
  307.     (self containsPoint: aRectangle topLeft)
  308.        ifTrue: [ (self containsPoint: aRectangle topRight)
  309.                      ifTrue: [^Rectangle origin: aRectangle origin
  310.                                          corner: (Point x: aRectangle corner x
  311.                                                        y: corner y)]
  312.                      ifFalse: [^Rectangle origin: aRectangle origin
  313.                                           corner: corner]].
  314.     (self containsPoint: aRectangle topRight)
  315.        ifTrue: [^Rectangle origin: (Point x: origin x y: aRectangle origin y)
  316.                            corner: (Point x: aRectangle corner x y: corner y)].
  317.     (self containsPoint: aRectangle bottomLeft)
  318.        ifTrue: [ (self containsPoint: aRectangle bottomRight)
  319.                      ifTrue: [^Rectangle origin: (Point x: aRectangle origin x
  320.                                                         y: origin y)
  321.                                          corner: aRectangle corner]
  322.                      ifFalse: [^Rectangle origin: (Point x: aRectangle origin x
  323.                                                          y: origin y)
  324.                                           corner: aRectangle corner]].
  325.     (self containsPoint: aRectangle bottomRight)
  326.        ifTrue: [^Rectangle origin: origin corner: aRectangle corner]
  327.        ifFalse: [^nil]
  328. !!
  329.  
  330. !Rectangle methodsFor: 'printing'!
  331.  
  332. printOn: aStream
  333.     aStream print: origin;
  334.     nextPutAll: ' corner: ';
  335.     print: corner
  336. !
  337.  
  338. storeOn: aStream
  339.     aStream nextPutAll: '(Rectangle origin: ';
  340.     store: origin;
  341.     nextPutAll: ' corner: ';
  342.     store: corner;
  343.     nextPut: $)
  344. !!
  345.  
  346. !Rectangle methodsFor: 'truncation and round off'!
  347.  
  348. rounded
  349.     ^Rectangle origin: origin rounded corner: corner rounded
  350. !!
  351.  
  352. !Rectangle methodsFor: 'transforming'!
  353.  
  354. moveBy: aPoint
  355.     origin _ origin + aPoint.
  356.     corner _ corner + aPoint
  357. !
  358.  
  359. moveTo: aPoint
  360.     | diff |
  361.     diff _ aPoint - origin.
  362.     origin _ aPoint.
  363.     corner _ corner + diff
  364. !
  365.  
  366. scaleBy: scale
  367.     ^Rectangle origin: origin * scale corner: corner * scale
  368. !
  369.  
  370. translateBy: factor
  371.     ^Rectangle origin: origin + factor corner: corner + factor
  372. !!
  373.  
  374. !Point methodsFor: 'converting'!
  375.  
  376. corner: aPoint
  377.     ^Rectangle origin: self corner: aPoint
  378. !
  379.  
  380. extent: aPoint
  381.     ^Rectangle origin: self extent: aPoint
  382. !!
  383.