_Title "TriQuad Puzzle" 'B+ start 2019-07-17 trans to QB64 from: ' TriQuad.bas SmallBASIC 0.12.8 [B+=MGA] 2017-03-26
' inspired by rick3137's recent post at Naalaa of cute puzzle
' 2019-07 Complete remake for N X N puzzles, not just 3 X 3's.
' post at QB64 forum 2019-10-14
Const xmax
= 1000, margin
= 50 'screen size, margin that should allow a line above and below the puzzle display Const topLeftB1X
= margin
, topLeftB2X
= xmax
/ 2 + .5 * margin
, topY
= margin
'these have to be decided from user input from Intro screen
ymax = 500 'for starters in intro screen have resizing in pixels including ymax
ReDim Shared B1
(2, 2), B2
(2, 2) ' B1() box container for scrambled pieces of C(), B2 box container to build solution ReDim Shared C
(8, 3) '9 squares 4 colored triangles, C() contains the solution as created by code, may not be the only one!
intro
restart:
assignColors
holdF = N * N
showB (1)
showB (2)
by
= Int((my
- topY
) / sq
) If topLeftB1X
<= mx
And mx
<= topLeftB1X
+ N
* sq
Then 'mx in b1 bx
= Int((mx
- topLeftB1X
) / sq
) If holdF
< N
* N
Then 'trying to put the piece on hold here? B1(bx, by) = holdF: holdF = N * N
holdF = B1(bx, by): B1(bx, by) = N * N
ElseIf topLeftB2X
<= mx
And mx
<= topLeftB2X
+ N
* sq
Then 'mx in b2 bx
= Int((mx
- topLeftB2X
) / sq
) B2(bx, by) = holdF: holdF = N * N
holdF = B2(bx, by): B2(bx, by) = N * N
Locate 2, 1: centerPrint
"Congratulations puzzle solved!" showSolution
Locate 2, 1: centerPrint
"Here is solution (for 10 secs), Goodbye!" centerPrint "Press enter to play again, any + enter ends... "
'since it is possible that a different tile combination could be a valid solution we have to check points
'first check that there is a puzzle piece in every slot of b2
'check left and right triangle matches in b2
If Point(topLeftB2X
+ x
* sq
+ sq2
+ sq4
, topY
+ y
* sq
+ sq2
) <> Point(topLeftB2X
+ (x
+ 1) * sq
+ sq4
, topY
+ y
* sq
+ sq2
) Then Exit Function 'check to and bottom triangle matches in b2
'the color of tri4 in piece below = color tri1 of piece above
If Point(topLeftB2X
+ x
* sq
+ sq2
, topY
+ y
* sq
+ sq2
+ sq4
) <> Point(topLeftB2X
+ x
* sq
+ sq2
, topY
+ (y
+ 1) * sq
+ sq4
) Then Exit Function 'if made it this far then solved
solved = -1
drawSquare index, x * sq + topLeftB2X, y * sq + topY
index = index + 1
index = B1(x, y)
drawSquare index, x * sq + topLeftB1X, y * sq + topY
index = B2(x, y)
drawSquare index, x * sq + topLeftB2X, y * sq + topY
Sub drawSquare
(index
, x
, y
) Line (x
, y
)-Step(sq
, sq
), &HFF000000, BF
Line (x
+ sq
, y
)-Step(-sq
, sq
), &HFFFFFFFF Paint (x
+ sq2
+ sq4
, y
+ sq2
), hue
(C
(index
, 0)), &HFFFFFFFF Paint (x
+ sq2
, y
+ sq2
+ sq4
), hue
(C
(index
, 1)), &HFFFFFFFF Paint (x
+ sq4
, y
+ sq2
), hue
(C
(index
, 2)), &HFFFFFFFF Paint (x
+ sq2
, y
+ sq4
), hue
(C
(index
, 3)), &HFFFFFFFF
'the pieces are indexed 0 to N X N -1 (NxNm1)
' y(index) = int(index/N) : x(index) = index mod N
' index(x, y) = (y - 1) * N + x
'first assign a random color rc to every triangle
For i
= 0 To NxNm1
'piece index For j
= 0 To 3 'tri color index for piece C(i, j) = rand(1, 9)
'next match c0 to c3 of square to right
'the color of tri3 of next square piece to right = color of tri0 to left of it
C(y * N + x + 1, 2) = C(y * N + x, 0)
'the color of tri4 in piece below = color tri1 of piece above
C((y + 1) * N + x, 3) = C(y * N + x, 1)
' C() now contains one solution for puzzle, may not be the only one
' scramble pieces to box1
Dim t
(0 To NxNm1
), index
'temp array B1(x, y) = t(index)
index = index + 1
B2(x, y) = N * N
'PRINT B1(x, y), B2(x, y)
Case 0: hue~&
= &HFF000000 Case 1: hue~&
= &HFFA80062 Case 2: hue~&
= &HFF000050 Case 3: hue~&
= &HFFE3333C Case 4: hue~&
= &HFFFF0000 Case 5: hue~&
= &HFF008000 Case 6: hue~&
= &HFF0000FF Case 7: hue~&
= &HFFFF64FF Case 8: hue~&
= &HFFFFFF00 Case 9: hue~&
= &HFF00EEEE Case 10: hue~&
= &HFF663311
If n1
> n2
Then hi
= n1: lo
= n2
Else hi
= n2: lo
= n1
rand%
= (Rnd * (hi
- lo
+ 1)) \
1 + lo
Sub intro
'use intro to select number of pieces centerPrint
"TriQuad Instructions:":
Print:
Color hue
(9) centerPrint "This puzzle has two boxes that contain up to N x N square pieces of 4 colored triangles."
centerPrint
"The object is to match up the triangle edges from left Box to fill the Box on the right.":
Print centerPrint "You may move any square piece to an empty space on either board by:"
centerPrint "1st clicking the piece to disappear it,"
centerPrint
"then clicking any empty space for it to reappear.":
Print centerPrint
"You may press q to quit and see the solution displayed.":
Print centerPrint "Hint: the colors without matching"
centerPrint
"complement, are edge pieces.":
Print centerPrint
"Good luck!":
Color hue
(5) Locate CsrLin + 2, 1: centerPrint
"Press number key for square pieces per side (3 to 9, 1 to quit)..." N = test ' pieces per side of 2 boards
Nm1 = N - 1 ' FOR loops
NxNm1 = N * N - 1 ' FOR loop of piece index
'sizing
sq = (xmax / 2 - 1.5 * margin) / N 'square piece side size
sq2 = sq / 2: sq4 = sq / 4
ymax = sq * N + 2 * margin
ReDim B1
(Nm1
, Nm1
), B2
(Nm1
, Nm1
), C
(NxNm1
, 3) '_SCREENMOVE 300, 40 'need again?
'PRINT ymax
