Steve's 3D Print

[SMcNeill]

Inspired by Petr's 3D printing, I sat down and worked up a simple little routine to make pseudo-3d text of my own, and I wrapped it up into a single neat little SUB with 3 zillion parameters...

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 720, 32)
2. _SCREENMOVE _MIDDLE
3. OE20 = _LOADFONT("calibri.ttf", 72)
4. _FONT OE20
5.  
6. Print3D 100, 100, "Hello World", 10, 10, OE20, &HFFFFFF00, 1, 1, 1, 1
7. Print3D 100, 200, "Steve is Awesome!", 5, -10, OE20, &HFFFF0000, -1, 1, 1, 1.25
8. Print3D 100, 300, "So, what do you guys think?", 6, 0, OE20, &HFFFFFFFF, 1, .5, .5, .5
9.  
10. Print3D 100, 400, "No 3D, just *italic* style text.", 1, 20, OE20, &HFF00FF00, 0, 0, 1, 1
11.  
12.  
13. SUB Print3D (x AS INTEGER, y AS INTEGER, text$, thick AS INTEGER, tilt AS INTEGER,_
14.              f AS LONG, fg AS _UNSIGNED LONG, xchange as integer, ychange as integer,_
15.              scalex as _float, scaley as _float)
16.     DIM copy AS INTEGER
17.     DIM dx1 AS _FLOAT, dx2 AS _FLOAT, dy1 AS _FLOAT, dy2 AS _FLOAT
18.  
19.     d = _DEST: s = _SOURCE: font = _FONT
20.     copy = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
21.     _DEST copy: _SOURCE copy
22.     _FONT f
23.     sx1 = 0: sy1 = 0
24.     sx2 = _PRINTWIDTH(text$, copy): sy2 = _FONTHEIGHT(f)
25.  
26.     dx1 = x: dy1 = y
27.     dx2 = x + sx2 * scalex: dy2 = y + sy2 * scaley
28.  
29.     FOR i = thick TO 0 STEP -1
30.         CLS , 0
31.         COLOR _RGBA32(_RED32(fg), _GREEN32(fg), _BLUE32(fg), 155 + 100 / i), 0
32.         PRINT text$
33.         _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), copy TO(dx1 + tilt, dy1)-(dx2 + tilt, dy1)-(dx1, dy2), d
34.         _MAPTRIANGLE (sx1, sy2)-(sx2, sy1)-(sx2, sy2), copy TO(dx1, dy2)-(dx2 + tilt, dy1)-(dx2, dy2), d
35.         dx1 = dx1 + xchange: dx2 = dx2 + xchange: dy1 = dy1 + ychange: dy2 = dy2 + ychange
36.     NEXT
37.     _DEST d: _SOURCE s: _FONT font
38.     _FREEIMAGE copy
39. END SUB

Various thickness is supported.  Different tilts are supported.  Text can expand from any direction...  We can use it to italicize our text if we want to... It scales text to different widths and heights...

It's not a true 3D text, as in we can't rotate it on the x/y/z axis, but it makes a nice imitation text which we can use to create a nice title screen, or such, for our programs. 

Play around with it, see what you guys think of it, and I'll be happily awaiting to see how you guys who are much better than me in math will improve/alter this. 

Many thanks go to Petr for providing the inspiration for me to sit down and play around with getting this up and going to the point where it is.  I'm really quite happy with how it performs and what it can do for us, and I think this will end up going into my toolbox for regular use from now on.  ;)

[SMcNeill]

And a little demo of some of the various styles of 3d text which we can generate with the routine.  Watch and pay attention to which direction the text tilts and turns as the program goes along.

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 720, 32)
2. _SCREENMOVE _MIDDLE
3. OE20 = _LOADFONT("calibri.ttf", 72)
4. _FONT OE20
5.  
6. FOR x = -2 TO 2 STEP 0.1
7.     CLS , 0
8.     Print3D 100, 200, "Steve is Awesome!", 5, x * 20, OE20, &HFFFF0000, x, x, 1, 1.25
9.     _LIMIT 3
10.     _DISPLAY
11. NEXT
12. FOR x = -2 TO 2 STEP 0.1
13.     CLS , 0
14.     Print3D 100, 200, "Steve is Awesome!", 5, x * 20, OE20, &HFFFF0000, -x, -x, 1, 1.25
15.     _LIMIT 3
16.     _DISPLAY
17. NEXT
18. FOR x = -2 TO 2 STEP 0.1
19.     CLS , 0
20.     Print3D 100, 200, "Steve is Awesome!", 5, x * 20, OE20, &HFFFF0000, x, -x, 1, 1.25
21.     _LIMIT 3
22.     _DISPLAY
23. NEXT
24. FOR x = -2 TO 2 STEP 0.1
25.     CLS , 0
26.     Print3D 100, 200, "Steve is Awesome!", 5, x * 20, OE20, &HFFFF0000, -x, x, 1, 1.25
27.     _LIMIT 3
28.     _DISPLAY
29. NEXT
30.  
31.  
32.  
33.  
34.  
35. SUB Print3D (x AS INTEGER, y AS INTEGER, text$, thick AS INTEGER, tilt AS INTEGER,_
36.              f AS LONG, fg AS _UNSIGNED LONG, xchange as integer, ychange as integer,_
37.              scalex as _float, scaley as _float)
38.     DIM copy AS INTEGER
39.     DIM dx1 AS _FLOAT, dx2 AS _FLOAT, dy1 AS _FLOAT, dy2 AS _FLOAT
40.  
41.     d = _DEST: s = _SOURCE: font = _FONT
42.     copy = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
43.     _DEST copy: _SOURCE copy
44.     _FONT f
45.     sx1 = 0: sy1 = 0
46.     sx2 = _PRINTWIDTH(text$, copy): sy2 = _FONTHEIGHT(f)
47.  
48.     dx1 = x: dy1 = y
49.     dx2 = x + sx2 * scalex: dy2 = y + sy2 * scaley
50.  
51.     FOR i = thick TO 0 STEP -1
52.         CLS , 0
53.         COLOR _RGBA32(_RED32(fg), _GREEN32(fg), _BLUE32(fg), 155 + 100 / i), 0
54.         PRINT text$
55.         _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), copy TO(dx1 + tilt, dy1)-(dx2 + tilt, dy1)-(dx1, dy2), d
56.         _MAPTRIANGLE (sx1, sy2)-(sx2, sy1)-(sx2, sy2), copy TO(dx1, dy2)-(dx2 + tilt, dy1)-(dx2, dy2), d
57.         dx1 = dx1 + xchange: dx2 = dx2 + xchange: dy1 = dy1 + ychange: dy2 = dy2 + ychange
58.     NEXT
59.     _DEST d: _SOURCE s: _FONT font
60.     _FREEIMAGE copy
61. END SUB

[Petr]

Nice work, Steve. For a true 3D font, is easiest to choose a box as a pixel. You just make a block (in 3D space) instead of a pixel, as my video shows earlier this year:       

Now I try write my pseudo 3D function, my suggestion is to generate the whole ASCII table (then, the character call will be much faster). Maybe only some deformed monsters will come out of it instead of letters, we'll see. :)