Anonymous user
Bitmap: Difference between revisions
→{{header|Smalltalk}}
Line 4,125:
{{works with|Smalltalk/X}}
<lang Smalltalk>|img1 img2|
"a depth24 RGB image"
img1 := Image width:100 height:200 depth:24.
img1 fillRectangle:(0@0 corner:100@100) with:Color red.
Line 4,133 ⟶ 4,134:
Transcript showCR:(img1 colorAt:(100 @ 10) ).
"a depth8 palette image"
img2 := Image width:100 height:200 depth:8.
img2 colorMap:{ Color black. Color red . Color green }.
| |||