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 |
1654 |
1656 |
1655 tempForm := Form width:(xMax-xMin+1+aForm width) |
1657 tempForm := Form width:(xMax-xMin+1+aForm width) |
1656 height:(yMax-yMin+1+aForm height) |
1658 height:(yMax-yMin+1+aForm height) |
1657 depth:aForm depth |
1659 depth:aForm depth |
1658 onDevice:device. |
1660 onDevice:device. |
|
1661 tempForm isNil ifTrue:[^nil]. |
1659 tempForm clear. |
1662 tempForm clear. |
1660 tempForm paint:(Color colorId:1) on:(Color colorId:0). |
1663 tempForm paint:(Color colorId:1) on:(Color colorId:0). |
1661 tempForm function:#or. |
1664 tempForm function:#or. |
1662 |
1665 |
1663 ((yStart = yEnd and:[xStart < xEnd]) |
1666 ((yStart = yEnd and:[xStart < xEnd]) |
2024 |
2027 |
2025 w := font widthOf:aString. |
2028 w := font widthOf:aString. |
2026 h := font height. |
2029 h := font height. |
2027 descent := h - ascent. |
2030 descent := h - ascent. |
2028 |
2031 |
2029 tempForm := Form |
2032 tempForm := Form width:w height:h depth:1 onDevice:device. |
2030 width:w |
2033 tempForm isNil ifTrue:[^ self]. |
2031 height:h |
|
2032 depth:1 |
|
2033 onDevice:device. |
|
2034 |
|
2035 tempForm clear. |
2034 tempForm clear. |
2036 tempForm font:font. |
2035 tempForm font:font. |
2037 tempForm paint:(Color colorId:1) on:(Color colorId:0). |
2036 tempForm paint:(Color colorId:1) on:(Color colorId:0). |
2038 tempForm displayString:aString x:0 y:ascent. |
2037 tempForm displayString:aString x:0 y:ascent. |
2039 tempImage := (Depth1Image fromForm:tempForm) rotated:angle. |
2038 tempImage := (Depth1Image fromForm:tempForm) rotated:angle. |
2046 h := aString heightOn:self. |
2045 h := aString heightOn:self. |
2047 descent := 0. |
2046 descent := 0. |
2048 "/ ascent := font ascent max:(h // 2). |
2047 "/ ascent := font ascent max:(h // 2). |
2049 "/ descent := (h - font ascent) max:(h // 2). |
2048 "/ descent := (h - font ascent) max:(h // 2). |
2050 |
2049 |
2051 tempForm := Form |
2050 tempForm := Form width:w height:h depth:(device depth) onDevice:device. |
2052 width:w |
2051 tempForm isNil ifTrue:[^ self]. |
2053 height:h |
|
2054 depth:(device depth) |
|
2055 onDevice:device. |
|
2056 |
|
2057 tempForm paint:bgPaint. |
2052 tempForm paint:bgPaint. |
2058 tempForm fillRectangleX:0 y:0 width:w height:h. |
2053 tempForm fillRectangleX:0 y:0 width:w height:h. |
2059 tempForm paint:paint on:bgPaint. |
2054 tempForm paint:paint on:bgPaint. |
2060 tempForm font:font. |
2055 tempForm font:font. |
2061 aString displayOn:tempForm x:0 y:ascent opaque:true. |
2056 aString displayOn:tempForm x:0 y:ascent opaque:true. |