QB64.org Forum

Active Forums => Programs => Topic started by: bplus on November 20, 2019, 12:31:58 am

Title: Block Printing
Post by: bplus on November 20, 2019, 12:31:58 am

Code: QB64: [Select]

1. _TITLE "Cube It"
2. CONST xmax = 1200, ymax = 600
3. SCREEN _NEWIMAGE(xmax, ymax, 32)
4. _SCREENMOVE 100, 40
5.  
6. PRINT " bplus was here "
7. DIM section(127, 16)
8. FOR y = 0 TO 16
9.     FOR x = 0 TO 127
10.         IF POINT(x, y) <> _RGB32(0, 0, 0) THEN section(x, y) = 1
11.     NEXT
12. NEXT
13. CLS
14.  
15. FOR l = 0 TO -32 * 4 STEP -4
16.     FOR y = 8 TO 8 * 16 STEP 8
17.         FOR x = 127 * 8 TO 0 STEP -8
18.             IF section(x / 8, y / 8) THEN cube2 x - l + 25, 350 + y + l, 16, &HFF88BBFF
19.         NEXT
20.     NEXT
21.     _DISPLAY
22.     _LIMIT 30
23. NEXT
24. SLEEP
25.  
26. SUB cube2 (x, y, side, c~&)
27.     sd2 = side / 2
28.     LINE (x + sd2, y)-STEP(sd2 - 1, sd2 - 1), c~&, BF
29.     r = _RED32(c~&): g = _GREEN32(c~&): b = _BLUE32(c~&)
30.     fquad x + sd2, y, x + sd2, y + sd2, x, y + side, x, y + sd2, _RGB32(.25 * r, .5 * g, .75 * b)
31.     fquad x, y + side, x + sd2, y + sd2, x + side, y + sd2, x + sd2, y + side, _RGB32(.75 * r, .3 * g, .3 * b)
32. END SUB
33.  
34. 'this text was fetched
35. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
36.     DIM a&
37.     a& = _NEWIMAGE(1, 1, 32)
38.     _DEST a&
39.     PSET (0, 0), K
40.     _DEST 0
41.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
42.     _FREEIMAGE a& '<<< this is important!
43. END SUB
44.  
45. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
46. SUB fquad (x1, y1, x2, y2, x3, y3, x4, y4, K AS _UNSIGNED LONG)
47.     ftri x1, y1, x2, y2, x4, y4, K
48.     ftri x3, y3, x2, y2, x4, y4, K
49. END SUB
50.  
51.  

Text Only | Text with Attachments