Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: Petr on November 14, 2019, 11:43:59 am

Title: Pseudo 3D text
Post by: Petr on November 14, 2019, 11:43:59 am
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  2. im1 = _NEWIMAGE(400, 140, 32)
  3. _DEST im1
  4. D = _LOADFONT("calibri.ttf", 40, "BOLD")
  5. _FONT D, im1
  7. PRINT "Have nice day!"
  9. kX = 1
  11.     LINE (0, 0)-(1024, 768), &HDD000000, BF
  12.     i = 0
  13.     FOR f = _PI / 2 + .2 TO _PI(1.5) - .2 STEP (_PI(1.5) - .2 - _PI / 2 + .2) / 399
  14.         i = i + 1
  15.         x = 512 + SIN(f + r) * 500
  16.         x2 = 512 + SIN(f + .1 + r) * 500
  17.         y = 264 + COS(f + r) * 250
  18.         y2 = 564 + COS(f + r) * 230
  19.         XX = kX * i
  20.         _MAPTRIANGLE (XX - kX, 0)-(XX, 0)-(XX - kX, 120), im1 TO(x, y)-(x2, y)-(x, y2), 0
  21.         _MAPTRIANGLE (XX, 0)-(XX - kX, 120)-(XX, 120), im1 TO(x2, y)-(x, y2)-(x2, y2), 0
  22.     NEXT
  23.     r = r - .01
  24.     _DISPLAY
  26.  

Title: Re: Pseudo 3D text
Post by: bplus on November 14, 2019, 11:47:27 am
Oh yeah! Nice effect Petr  :)
Title: Re: Pseudo 3D text
Post by: Petr on November 14, 2019, 11:49:44 am
Thank you, BPlus :)
Title: Re: Pseudo 3D text
Post by: SierraKen on November 14, 2019, 01:29:04 pm
Incredible Petr. It's not only 3D text but it's an optical illusion. It also can work without the font. This would make an amazing opening screen to any program or game.
Title: Re: Pseudo 3D text
Post by: johnno56 on November 15, 2019, 09:41:40 am
THAT is soooo cool. Nice one Petr!!
Title: Re: Pseudo 3D text
Post by: TempodiBasic on November 16, 2019, 09:51:29 am
Yes very nice!

try this my mod

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  2. im1 = _NEWIMAGE(400, 140, 32)
  3. _DEST im1
  4. D = _LOADFONT("calibri.ttf", 40, "BOLD")
  5. _FONT D, im1
  7. PRINT "Gret job Petr!!"
  9. kX = 1
  11.     LINE (0, 0)-(1024, 768), &HDD000000, BF
  12.     i = 0
  13.     FOR f = _PI / 2 + .2 TO _PI(1.5) - .2 STEP (_PI(1.5) - .2 - _PI / 2 + .2) / 399
  14.         i = i + 1
  15.         x = 512 + SIN(f + r) * 500
  16.         x2 = 512 + SIN(f + .1 + r) * 500
  17.         y = 264 + COS(f + r) * 250
  18.         y2 = 564 + COS(f + r) * 230
  19.         XX = kX * i
  20.         _MAPTRIANGLE (XX - kX, 0)-(XX, 0)-(XX - kX, 120), im1 TO(x, y)-(x2, y)-(x, y2), 0
  21.         _MAPTRIANGLE (XX, 0)-(XX - kX, 120)-(XX, 120), im1 TO(x2, y)-(x, y2)-(x2, y2), 0
  22.     NEXT
  23.     r = r - .01
  24.     _DISPLAY
  26.  
Title: Re: Pseudo 3D text
Post by: SierraKen on November 16, 2019, 01:03:28 pm
Here is my mod for it using the Mouse Wheel to speed up, slow down, and make it go in reverse. I also added the speed number in the top left corner.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  2. im1 = _NEWIMAGE(400, 140, 32)
  3. _DEST im1
  4. D = _LOADFONT("calibri.ttf", 40, "BOLD")
  5. _FONT D, im1
  7. PRINT "Mouse Wheel"
  9. kX = 1
  11.     LINE (0, 0)-(1024, 768), &HDD000000, BF
  12.     i = 0
  13.     FOR f = _PI / 2 + .2 TO _PI(1.5) - .2 STEP (_PI(1.5) - .2 - _PI / 2 + .2) / 399
  14.         i = i + 1
  15.         x = 512 + SIN(f + r) * 500
  16.         x2 = 512 + SIN(f + .1 + r) * 500
  17.         y = 264 + COS(f + r) * 250
  18.         y2 = 564 + COS(f + r) * 230
  19.         XX = kX * i
  20.         _MAPTRIANGLE (XX - kX, 0)-(XX, 0)-(XX - kX, 120), im1 TO(x, y)-(x2, y)-(x, y2), 0
  21.         _MAPTRIANGLE (XX, 0)-(XX - kX, 120)-(XX, 120), im1 TO(x2, y)-(x, y2)-(x2, y2), 0
  22.     NEXT
  23.  
  25.         mouseX = _MOUSEX
  26.         mouseY = _MOUSEY
  27.         mouseWheel = mouseWheel + _MOUSEWHEEL
  28.     LOOP
  29.     LOCATE 1, 1: PRINT mouseWheel
  30.     rr = mouseWheel / 100
  31.     'r = r - .01
  32.     r = r - rr
  33.     _DISPLAY
  35.  
Title: Re: Pseudo 3D text
Post by: Petr on November 16, 2019, 02:09:30 pm
Thank you for your modifications :)
Title: Re: Pseudo 3D text
Post by: SMcNeill on November 17, 2019, 02:34:17 pm
I like this little set of code quite a bit!

This reminds me somewhat of how I basically do italics without loading a different font for use with it.  One of my most used tools is my "TextToImage" routines, and once I have an image, it's a breeze to put a tilt of various amounts on it, like so:

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 720, 32)
  3. OE20 = _LOADFONT("calibri.ttf", 20)
  4. _FONT OE20
  5.  
  6. COLOR &HFFFFFF00, 0
  7. text$ = "Hello  World!!"
  8. PRINT text$
  9. source = _COPYIMAGE(0)
  10. '   x1         x2   (slide the top left or right to create an italicized look for the font)
  11. 'y1 -----------
  12. '   |        /|
  13. '   |      /  |
  14. '   |    /    |
  15. '   |  /      |
  16. '   |/        |
  17. 'y2 -----------   (we could also slide the bottom in an opposite direction as well, but I don't here)
  18.  
  19. sx1 = 0: sy1 = 0
  20. sx2 = _PRINTWIDTH(text$): sy2 = _FONTHEIGHT
  21.  
  22. dx1 = 200: dy1 = 100
  23. dx2 = 200 + sx2 * 3: dy2 = 100 + sy2 * 3
  24.  
  25. direction = 1
  26.  
  28.     CLS
  29.     tilt = tilt + direction: IF ABS(tilt) > 300 THEN direction = -direction
  30.     _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), source TO(dx1 + tilt, dy1)-(dx2 + tilt, dy1)-(dx1, dy2)
  31.     _MAPTRIANGLE (sx1, sy2)-(sx2, sy1)-(sx2, sy2), source TO(dx1, dy2)-(dx2 + tilt, dy1)-(dx2, dy2)
  32.     _LIMIT 30
  33.     _DISPLAY

I haven't sorted out the math in your code yet, but it seems to work on a similar principle to the above (just taken to a greater degree).

My question is this one: Can you take what you've got and make us a SUB which would allow us to make a custom 3D-style font?  Something like the following:

SUB 3dText (x, y, text$, thick, tilt)

x/y would be where we'd want to place the text at on the screen.
text$ would be the text we'd want to place.
thick would be the thickness of the text (your demo has a rather thick looking 3D text; I'd prefer one half as deep usually, so a variable to adjust for that thickness would be nice.)
tilt would would decide the direction that the 3d text would tilt in.  "Hello World" with the shadow/thickness to the left, or the right, or wherever we wanted...

It's a little beyond my 3D skills, without a lot of brushing up and studying, but such a little routine would be PERFECT for the toolbox here on the forums.  I know I for one would love to be able to make use of such a versatile little snippet!  ;)
Title: Re: Pseudo 3D text
Post by: Petr on November 17, 2019, 03:27:32 pm
Hi. It is not real 3D :) I try do it as you wrote, Steve. Try on row 16 rewriting          x2 = 512 + SIN(f + .01 + r) * 500    as     x2 = 512 + SIN(f + .05 + r) * 500  for  other thick :)
Title: Re: Pseudo 3D text
Post by: SMcNeill on November 17, 2019, 09:37:37 pm
Quote from: Petr on November 17, 2019, 03:27:32 pm
Hi. It is not real 3D :) I try do it as you wrote, Steve. Try on row 16 rewriting          x2 = 512 + SIN(f + .01 + r) * 500    as     x2 = 512 + SIN(f + .05 + r) * 500  for  other thick :)

I decided to play with my own idea somewhat; here's what I've came up with for a pseudo-3D print routine:

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
  7. Print3D 100, 200, "Steve is Awesome!", 5, -10, OE20, &HFFFF0000
  8. Print3D 100, 300, "So, what do you guys think?", 3, 0, 16, &HFFFFFFFF
  9.  
  10.  
  11. SUB Print3D (x AS INTEGER, y AS INTEGER, text$, thick AS INTEGER, tilt AS INTEGER,_
  12.              f AS LONG, fg AS _UNSIGNED LONG)
  13.     DIM copy AS INTEGER
  14.  
  15.     d = _DEST: s = _SOURCE: font = _FONT
  16.     copy = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
  17.     _DEST copy: _SOURCE copy
  18.     _FONT f
  19.     sx1 = 0: sy1 = 0
  20.     sx2 = _PRINTWIDTH(text$, copy): sy2 = _FONTHEIGHT(f)
  21.  
  22.     dx1 = x: dy1 = y
  23.     dx2 = x + sx2: dy2 = y + sy2
  24.  
  25.     FOR i = thick TO 1 STEP -1
  26.         CLS , 0
  27.         COLOR _RGBA32(_RED32(fg), _GREEN32(fg), _BLUE32(fg), 155 + 100 / i), 0
  28.         PRINT text$
  29.         _MAPTRIANGLE (sx1, sy1)-(sx2, sy1)-(sx1, sy2), copy TO(dx1 + tilt, dy1)-(dx2 + tilt, dy1)-(dx1, dy2), d
  30.         _MAPTRIANGLE (sx1, sy2)-(sx2, sy1)-(sx2, sy2), copy TO(dx1, dy2)-(dx2 + tilt, dy1)-(dx2, dy2), d
  31.         dx1 = dx1 + 1: dx2 = dx2 + 1: dy1 = dy1 + 1: dy2 = dy2 + 1
  32.     NEXT
  33.     _DEST d: _SOURCE s: _FONT font

Text Only | Text with Attachments