' The woman is Heather Thomas
DIM dots
(7), x
(7, 7), y
(7, 7), c1
(7), c2
(28), pixel
(7, 7), w
(3), y$
(30) cps! = 12.83 ' cost per set
READ x
(n
, dot
), y
(n
, dot
) xb = 10: xe = 350 ' x begin and end
yb = 0: ye = 470 ' y begin and end
n = 0
x3 = x1 + x2
y3 = y1 + y2
r&
= CDBL(479 - y3
) * 640 + x3
+ 441 pixel(x2, y2) = -(d > 7) ' for 3 problem
n = n + d
n = n / 155 ' 175
x$
= x$
+ CHR$(48 + n
) ' for counting tiles used x$ = ""
IF n
= 3 THEN ' default bottom left - top right IF (l
= 3) OR (l
= 7) THEN ' can't change direction if the n = l ' last piece was also a 3
w(zi) = 0
xi = x2 \ 4 ' 0 or 1
yi = y2 \ 4 ' 0 or 1
zi = xi * 2 + yi ' 0-3
' LOCATE zi + 1, 1: PRINT zi;
w(zi) = w(zi) + pixel(x2, y2)
IF (w
(1) + w
(2)) > (w
(0) + w
(3)) THEN n
= 7 l = n ' save last used (for 3)
d = dots(n)
c1(n) = c1(n) + 1
tx = (x1 + 4) + x(n, dot) * 2 - xb
ty = (y1 + 4) + y(n, dot) * 2 - yb
nd = nd + 1
Status:
'COLOR i
max = c2(i)
c! = c2(i) * cps!
c! = c! + c! * .07
xn = (xe - xb) / 16
yn = (ye - yb) / 8
count:
DATA 00,01,02,03,04,05,06
dots:
DATA 4,-1,1,-1,-1,1,-1,1,1 DATA 5,-1,1,-1,-1,1,-1,1,1,0,0 DATA 6,-1,1,-1,0,-1,-1,1,1,1,0,1,-1