Game board/ crosscut and flip SUB

[OldMoses]

Back when I was a young lad endeavoring to put an eye out with sharp tools, I made a chessboard in wood shop. It was a disaster, given that I didn't make sufficient allowance for saw kerfs. However, it did show me how it was done.

So I reasoned that I could do it the same way with QB64. Start with two desired images. Saw out 8 alternating strips, glue them together, crosscut them and flip every other crosscut strip. It gives a somewhat natural variation in the board, such as might be expected by the manufacturing process. Best of all, no saw kerf allowances. You can substitute black marble and strawberry tapioca if you have a mind to. Try that on a table saw...

Code: QB64: [Select]

1. 'Make Chess/Checker Board Demo
2. DIM SHARED scr&
3. lite& = _LOADIMAGE("litewood.jpg", 32)
4. dark& = _LOADIMAGE("darkwood.jpg", 32)
5. scr& = _NEWIMAGE(640, 640, 32)
6. SCREEN scr&
7. DO UNTIL _SCREENEXISTS: LOOP
8. _SCREENMOVE 5, 5
9. x = 0
10. DO
11.     x = x + 1
12.     IF x MOD 2 = 0 THEN
13.         Make_Board lite&, dark&
14.     ELSE
15.         Make_Board dark&, lite&
16.     END IF
17.     SLEEP
18. LOOP
19. END
20.  
21. SUB Make_Board (im1 AS LONG, im2 AS LONG)
22.  
23.     DIM b(3) AS LONG
24.     DIM w(3) AS LONG
25.     DIM crs(3) AS LONG
26.     DIM tmp AS LONG
27.     tmp = _COPYIMAGE(scr&) '                                    or make an _newimage of desired size
28.     widb% = _HEIGHT(im2) / 8: widw% = _HEIGHT(im1) / 8
29.     IF widb% >= widw% THEN strip% = widw% ELSE strip% = widb%
30.  
31.     FOR x = 0 TO 3 '                                            cut and join the vertical strips
32.         b(x) = _NEWIMAGE(strip%, strip% * 8, 32)
33.         w(x) = _NEWIMAGE(strip%, strip% * 8, 32)
34.         _PUTIMAGE , im2, b(x), (x * widb%, 0)-(x * widb% + widb% - 1, _HEIGHT(b(x)) - 1)
35.         _PUTIMAGE , im1, w(x), (x * widw%, 0)-(x * widw% + widw% - 1, _HEIGHT(w(x)) - 1)
36.         _PUTIMAGE (x * (_WIDTH(tmp) / 4), 0)-(x * (_WIDTH(tmp) / 4) + _WIDTH(tmp) / 8 - 1, _HEIGHT(tmp) - 1), b(x), tmp
37.         _PUTIMAGE (x * (_WIDTH(tmp) / 4) + _WIDTH(tmp) / 8, 0)-((x + 1) * (_WIDTH(tmp) / 4) - 1, _HEIGHT(tmp) - 1), w(x), tmp
38.         _FREEIMAGE b(x): _FREEIMAGE w(x)
39.     NEXT x
40.     FOR x = 0 TO 3 '                                            crosscut, flip and join alternating horizontal strips
41.         crs(x) = _NEWIMAGE(_WIDTH(tmp), _WIDTH(tmp) / 8, 32)
42.         _PUTIMAGE , tmp, crs(x), (_WIDTH(tmp) - 1, x * (_HEIGHT(tmp) / 4) + (_HEIGHT(tmp) / 8))-(0, x * (_HEIGHT(tmp) / 4))
43.         _PUTIMAGE (0, x * (_HEIGHT(tmp) / 4)), crs(x), tmp
44.         _FREEIMAGE crs(x)
45.     NEXT x
46.     _PUTIMAGE , tmp, 0
47.     _FREEIMAGE tmp
48.  
49. END SUB 'Make_Board
50.  

 

 

[SierraKen]

WOW!!!! That is so cool OldMoses! Someone could either add a chess or checkers game to it (even a 2 player would be really cool). Or they could print it out and play right on the paper. :D
This reminds me of the chess board I made when I was staying at a head injury rehab center in 1992. Except I didn't make one like this, instead I glued square ceramic tiles to a piece of plywood. I didn't have it for long though, it took up a lot of room and I didn't use it much. I really hope someone makes a game out of yours.

[SierraKen]

I see yours switches dark to light and light to dark when you press a key. :)

[STxAxTIC]

Nice work. All diced up like that, I can barely see the watermark on the images anymore!

[Pete]

Sure, it's all fun and games until for FOR loop loses an i.

Pete

[OldMoses]

Nice work. All diced up like that, I can barely see the watermark on the images anymore!

My old peepers didn't see them until you pointed them out. I could have put an i out... LOL

Another thing I didn't catch;--- until I was singing in the shower about a half hour after posting, --- since I am freeing the images within the loop, the arrays are completely extraneous. Revised code works the same.

Code: QB64: [Select]

1. 'Make Chess/Checker Board Demo
2. DIM SHARED scr&
3. lite& = _LOADIMAGE("litewood.jpg", 32)
4. dark& = _LOADIMAGE("darkwood.jpg", 32)
5. scr& = _NEWIMAGE(640, 640, 32)
6. SCREEN scr&
7. DO UNTIL _SCREENEXISTS: LOOP
8. _SCREENMOVE 5, 5
9. x = 0
10. DO
11.     x = x + 1
12.     IF x MOD 2 = 0 THEN
13.         Make_Board lite&, dark&
14.     ELSE
15.         Make_Board dark&, lite&
16.     END IF
17.     SLEEP
18. LOOP
19. END
20.  
21. SUB Make_Board (im1 AS LONG, im2 AS LONG)
22.  
23.     DIM b, w, crs, tmp AS LONG
24.     tmp = _COPYIMAGE(scr&) '                                    or make an _newimage of desired size
25.     widb% = _HEIGHT(im2) / 8: widw% = _HEIGHT(im1) / 8
26.     IF widb% >= widw% THEN strip% = widw% ELSE strip% = widb%
27.  
28.     FOR x = 0 TO 3 '                                            cut and join the vertical strips
29.         b = _NEWIMAGE(strip%, strip% * 8, 32)
30.         w = _NEWIMAGE(strip%, strip% * 8, 32)
31.         _PUTIMAGE , im2, b, (x * widb%, 0)-(x * widb% + widb% - 1, _HEIGHT(b) - 1)
32.         _PUTIMAGE , im1, w, (x * widw%, 0)-(x * widw% + widw% - 1, _HEIGHT(w) - 1)
33.         _PUTIMAGE (x * (_WIDTH(tmp) / 4), 0)-(x * (_WIDTH(tmp) / 4) + _WIDTH(tmp) / 8 - 1, _HEIGHT(tmp) - 1), b, tmp
34.         _PUTIMAGE (x * (_WIDTH(tmp) / 4) + _WIDTH(tmp) / 8, 0)-((x + 1) * (_WIDTH(tmp) / 4) - 1, _HEIGHT(tmp) - 1), w, tmp
35.         _FREEIMAGE b: _FREEIMAGE w
36.     NEXT x
37.     FOR x = 0 TO 3 '                                            crosscut, flip and join alternating horizontal strips
38.         crs = _NEWIMAGE(_WIDTH(tmp), _WIDTH(tmp) / 8, 32)
39.         _PUTIMAGE , tmp, crs, (_WIDTH(tmp) - 1, x * (_HEIGHT(tmp) / 4) + (_HEIGHT(tmp) / 8))-(0, x * (_HEIGHT(tmp) / 4))
40.         _PUTIMAGE (0, x * (_HEIGHT(tmp) / 4)), crs, tmp
41.         _FREEIMAGE crs
42.     NEXT x
43.     _PUTIMAGE , tmp, 0
44.     _FREEIMAGE tmp
45.  
46. END SUB 'Make_Board