Bitmap/Write a PPM file: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
(Applesoft BASIC) |
||
Line 251: | Line 251: | ||
} while ((j += 1) < h);</lang> |
} while ((j += 1) < h);</lang> |
||
=={{header|Applesoft BASIC}}== |
|||
<lang gwbasic> 100 W = 8 |
|||
110 H = 8 |
|||
120 BA = 24576 |
|||
130 HIMEM: 8192 |
|||
140 D$ = CHR$ (4) |
|||
150 M$ = CHR$ (13) |
|||
160 P6$ = "P6" + M$ + STR$ (W) + " " + STR$ (H) + M$ + "255" + M$ |
|||
170 FOR I = 1 TO LEN (P6$) |
|||
180 POKE BA + I - 1, ASC ( MID$ (P6$,I,1)) |
|||
190 NEXT I |
|||
200 BB = BA + I - 1 |
|||
210 BL = (BB + W * H * 3) - BA |
|||
220 C = 255 + 255 * 256 + 0 * 65536: GOSUB 600FILL |
|||
230 X = 4:Y = 5:C = 127 + 127 * 256 + 255 * 65536: GOSUB 500"SET PIXEL" |
|||
240 PRINT D$"BSAVE BITMAP.PPM,A"BA",L"BL |
|||
250 END |
|||
500 R = C - INT (C / 256) * 256:B = INT (C / 65536):G = INT (C / 256) - B * 256:A = BB + X * 3 + Y * W * 3: POKE A,R: POKE A + 1,G: POKE A + 2,B: RETURN |
|||
600 FOR Y = 0 TO H - 1: FOR X = 0 TO W - 1: GOSUB 500: NEXT X,Y: RETURN</lang> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |
||
{{works with|AutoHotkey_L|45}} |
{{works with|AutoHotkey_L|45}} |