Text Only | Text with Attachments

QB64.org Forum

Active Forums => QB64 Discussion => Topic started by: Petr on June 25, 2018, 01:35:23 pm

Title: Hello. Does anyone know how to fix the border between two triangles?
Post by: Petr on June 25, 2018, 01:35:23 pm
Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3. SX0 = 100: SY0 = 100: SX1 = 100: SY1 = 668: sx2 = 1024: sy2 = 0: sx3 = 1024: sy3 = 768
  4. '    SX0             SX2
  5. '
  6. '
  7. '
  8. '    SX1             SX3
  11.     Mx = _MOUSEX: My = _MOUSEY
  12.     StredX = Mx
  13.     CLS
  14.     _MAPTRIANGLE (0, 0)-(0, 768)-(1024, 0), img& TO(SX0, SY0)-(SX1, SY1)-(sx2, sy2), 0, _SMOOTHSTRETCHED
  15.     _MAPTRIANGLE (1024, 768)-(1024, 0)-(0, 768), img& TO(sx3, sy3)-(sx2, sy2)-(SX1, SY1), 0, _SMOOTHSTRETCHED
  16.     _DISPLAY
  18.  
Title: Re: Hello. Does anyone know how to fix the border between two triangles?
Post by: FellippeHeitor on June 25, 2018, 01:52:38 pm
I don't know what border you're talking about, but maybe it's the _SEAMLESS keyword you're after.

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3. SX0 = 100: SY0 = 100: SX1 = 100: SY1 = 668: sx2 = 1024: sy2 = 0: sx3 = 1024: sy3 = 768
  4. '    SX0             SX2
  5. '
  6. '
  7. '
  8. '    SX1             SX3
  11.     Mx = _MOUSEX: My = _MOUSEY
  12.     StredX = Mx
  13.     CLS
  14.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 768)-(1024, 0), img& TO(SX0, SY0)-(SX1, SY1)-(sx2, sy2), 0, _SMOOTHSTRETCHED
  15.     _MAPTRIANGLE _SEAMLESS(1024, 768)-(1024, 0)-(0, 768), img& TO(sx3, sy3)-(sx2, sy2)-(SX1, SY1), 0, _SMOOTHSTRETCHED
  16.     _DISPLAY
  18.  
Title: Re: Hello. Does anyone know how to fix the border between two triangles?
Post by: Petr on June 25, 2018, 02:09:57 pm
Hi,
 I'm looking for a way how texture this irregular face with a picture without deforming the image on a triangle link. Maybe divide image to more particles.... i try it again.  Thank you.
Title: Re: Hello. Does anyone know how to fix the border between two triangles?
Post by: Petr on June 25, 2018, 02:52:49 pm
I found solution :-D

Code: QB64: [Select]
  1. SCREEN _NEWIMAGE(1024, 768, 32)
  3. img& = _COPYIMAGE(im&, 33)
  5. SX0 = 0: SY0 = 0: SX1 = 0: SY1 = _HEIGHT: sx2 = _WIDTH: sy2 = 0: sx3 = _WIDTH: sy3 = _HEIGHT
  6. DX0 = -2: DY0 = 2: DX1 = -2: DY1 = -2: DX2 = 2: DY2 = 2: DX3 = 2: DY3 = -2
  7.  
  8. '    SX0             SX2                                                                    y
  9. '    dx0                                   X left = -   right = +                 - x      -z       +x
  10. '                                          Y dole = -   nahore = +                         -y
  11. '                                          Z vzadu = max - 10, normalne ale -1
  12. '    SX1             SX3
  13. tt = .01: t = .1
  16.     Mx = _MOUSEX: My = _MOUSEY
  17.     StredX = Mx
  18.     t = t + tt: IF t > 1 OR t < .1 THEN tt = tt * -1
  19.     R = SIN(t) * -5
  20.     S = COS(t) * -5
  21.     CLS
  22.     _MAPTRIANGLE (SX0, SY0)-(sx3, sy3)-(SX1, SY1), img& TO(DX0, DY0, R)-(DX3, DY3, S)-(DX1, DY1, R), 0, _SMOOTH
  23.     _MAPTRIANGLE (SX0, SY0)-(sx3, sy3)-(sx2, sy2), img& TO(DX0, DY0, R)-(DX3, DY3, S)-(DX2, DY2, S), 0, _SMOOTH
  24.     _DISPLAY
  25.     _LIMIT 30
  27.  
  28.  
Text Only | Text with Attachments