jsbasic/samples/sample.hgrblends.txt
2013-08-18 21:26:39 -07:00

14 lines
357 B
Plaintext

0 DIM C(5) : FOR I = 0 TO 5 : READ X : C(I) = X : NEXT : DATA 0,1,2,5,6,7
5 HGR2
10 FOR X = 0 TO 5 : FOR Y = 0 TO 5
20 SX = INT(X / 6 * 279)
: EX = INT((X+1) / 6 * 279)
: SY = INT(Y / 6 * 190)
: EY = INT((Y+1) / 6 * 190)
30 FOR PY = SY TO EY
: HCOLOR= C(X) : HPLOT SX,PY TO EX,PY : PY = PY + 1
: HCOLOR= C(Y) : HPLOT SX,PY TO EX,PY
40 NEXT : NEXT : NEXT