equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1992 by Claus Gittinger |
4 COPYRIGHT (c) 1992 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1058 clearRectangleX:x y:y width:w height:h |
1060 clearRectangleX:x y:y width:w height:h |
1059 "clear a rectangular area to viewBackground - |
1061 "clear a rectangular area to viewBackground - |
1060 redefined since GraphicsMedium fills with background |
1062 redefined since GraphicsMedium fills with background |
1061 - not viewBackground as we want here." |
1063 - not viewBackground as we want here." |
1062 |
1064 |
1063 |pX pY nW nH pO pC| |
1065 |pX pY nW nH rect| |
1064 |
1066 |
1065 transformation notNil ifTrue:[ |
1067 transformation notNil ifTrue:[ |
1066 pO := transformation transformPoint:x@y. |
1068 rect := transformation transformRectangle:(Rectangle left:x top:y width:w height:h). |
1067 pC := transformation transformPoint:(x+w-1)@(y+h-1). |
1069 pX := rect left. |
1068 pX := pO x. |
1070 pY := rect top. |
1069 pY := pO y. |
1071 nW := rect width. |
1070 nW := pC x - pX + 1. |
1072 nH := rect height. |
1071 nH := pC y - pY + 1. |
|
1072 ] ifFalse:[ |
1073 ] ifFalse:[ |
1073 pX := x. |
1074 pX := x. |
1074 pY := y. |
1075 pY := y. |
1075 nW := w. |
1076 nW := w. |
1076 nH := h. |
1077 nH := h. |
1077 ]. |
1078 ]. |
1078 |
1079 |
1079 pX := pX rounded. |
1080 pX := pX rounded. |
1080 pY := pY rounded. |
1081 pY := pY rounded. |
1081 nW := nW rounded. |
1082 nW := nW ceiling. |
1082 nH := nH rounded. |
1083 nH := nH ceiling. |
1083 |
1084 |
1084 ^ self clearDeviceRectangleX:pX y:pY width:nW height:nH. |
1085 ^ self clearDeviceRectangleX:pX y:pY width:nW height:nH. |
1085 |
1086 |
1086 "Modified: / 30.10.1998 / 15:00:37 / cg" |
1087 "Modified: / 30.10.1998 / 15:00:37 / cg" |
1087 ! |
1088 ! |
1149 bg := Color white. |
1150 bg := Color white. |
1150 fg := Color black. |
1151 fg := Color black. |
1151 ]. |
1152 ]. |
1152 self foreground:fg background:bg. |
1153 self foreground:fg background:bg. |
1153 ]. |
1154 ]. |
1154 self deviceClippingRectangle:(x@y extent:w@h). |
1155 self deviceClippingRectangle:(Rectangle left:x top:y width:w height:h). |
1155 |
1156 |
1156 offsX := (xR0 + pattOffs x) \\ pW. |
1157 offsX := (xR0 + pattOffs x) \\ pW. |
1157 offsY := (yR + pattOffs y) \\ pH. |
1158 offsY := (yR + pattOffs y) \\ pH. |
1158 |
1159 |
1159 oY := offsY. |
1160 oY := offsY. |