Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SMcNeill on November 17, 2019, 10:03:51 pm

Title: Steve's 3D Print
Post by: SMcNeill on November 17, 2019, 10:03:51 pm
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)
  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

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.  ;)
Title: Re: Steve's 3D Print
Post by: SMcNeill on November 17, 2019, 10:14:31 pm
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)
  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
  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
  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
  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
  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
Title: Re: Steve's 3D Print
Post by: Petr on November 18, 2019, 10:37:19 am
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. :)
Text Only | Text with Attachments