Hello. Does anyone know how to fix the border between two triangles?

[Petr]

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. img& = _SCREENIMAGE
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
9. DO
10.     WHILE _MOUSEINPUT: WEND
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
17. LOOP
18.  

[FellippeHeitor]

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)
2. img& = _SCREENIMAGE
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
9. DO
10.     WHILE _MOUSEINPUT: WEND
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
17. LOOP
18.  

[Petr]

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.

[Petr]

I found solution :-D

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(1024, 768, 32)
2. im& = _SCREENIMAGE
3. img& = _COPYIMAGE(im&, 33)
4. _FREEIMAGE im&
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
14. DO
15.     WHILE _MOUSEINPUT: WEND
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
26. LOOP
27.  
28.