Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on March 04, 2019, 09:39:48 pm

Title: Moire with triangle sheets
Post by: bplus on March 04, 2019, 09:39:48 pm
Just ran into this today:
Code: QB64: [Select]
  1. _TITLE "Moire with triangle sheets" ' B+ 2019-03-04
  2.  
  3. CONST sq3 = 1.732050808
  4. CONST xmax = 700
  5. CONST ymax = 700
  6. CONST cx = xmax / 2
  7. CONST cy = ymax / 2
  8. CONST white = &HFFFFFFFF
  9. CONST black = &HFF000000
  10.  
  11. SCREEN _NEWIMAGE(xmax, ymax, 32)
  12. _SCREENMOVE 100, 20
  13.  
  14. tsheet& = _NEWIMAGE(xmax, ymax, 32)
  15. _DEST tsheet&
  16. s = 10
  17. sd2 = 5
  18. sh = sd2 * sq3
  19. FOR y = 0 TO ymax STEP sh
  20.     yoff = (yoff + 1) MOD 2
  21.     FOR x = yoff * sd2 TO xmax STEP s
  22.         ftri tsheet&, x, y + sh, x + s, y + sh, x + sd2, y, white
  23.     NEXT
  25.  
  27. scale = 1
  28. WHILE _KEYDOWN(27) = 0
  29.     CLS
  30.     _PUTIMAGE , tsheet&, 0
  31.     RotoZoom2 cx, cy, tsheet&, scale, scale, a
  32.     a = a + _PI(1 / 180)
  33.     _DISPLAY
  34.     _LIMIT 10
  36.  
  37. SUB RotoZoom2 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale, Rotation AS SINGLE)
  38.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  39.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  40.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  41.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  42.     'sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
  43.     sinr! = SIN(-Rotation): cosr! = COS(-Rotation)
  44.     FOR i& = 0 TO 3
  45.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  46.         px(i&) = x2&: py(i&) = y2&
  47.     NEXT
  48.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  49.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  51.  
  52.  
  53. ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]:    http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
  54. SUB ftri (dh&, x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  55.     a& = _NEWIMAGE(1, 1, 32)
  56.     _DEST a&
  57.     PSET (0, 0), K
  58.     _DEST dh&
  59.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  60.     _FREEIMAGE a& '<<< this is important!
  62.  
  63.  
 [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Moire with triangle sheets
Post by: Ashish on March 06, 2019, 01:42:07 am
Amazing bplus! It is a nice illusion...Looking at this for a minute causes a pain in my head.
Title: Re: Moire with triangle sheets
Post by: bplus on March 06, 2019, 05:08:12 pm
More control over where the over-sheet lays as noted in comments:
Code: QB64: [Select]
  1. _TITLE "Moire with triangle sheets mod 2" ' B+ 2019-03-06
  2.  
  3. ' Now the middle of the over sheet is where the mouse is
  4. ' and the angle the sheet is turned is the same angle
  5. ' the mouse is to the center of screen. Theoretically
  6. ' if you put the mouse dead center of the screen the 2 sheets
  7. ' will coincide and look like one sheet. But as mouse closes in
  8. ' at center the angle swing becomes more sensitive to slightest
  9. ' changes.
  10.  
  11. CONST sq3 = 1.732050808
  12. CONST xmax = 700
  13. CONST ymax = 700
  14. CONST cx = xmax / 2
  15. CONST cy = ymax / 2
  16. CONST white = &HFFFFFFFF
  17. CONST black = &HFF000000
  18.  
  19. SCREEN _NEWIMAGE(xmax, ymax, 32)
  20. _SCREENMOVE 100, 20
  21.  
  22. tsheet& = _NEWIMAGE(xmax, ymax, 32)
  23. _DEST tsheet&
  24. s = 10
  25. sd2 = 5
  26. sh = sd2 * sq3
  27. FOR y = 0 TO ymax STEP sh
  28.     yoff = (yoff + 1) MOD 2
  29.     FOR x = yoff * sd2 TO xmax STEP s
  30.         ftri tsheet&, x, y + sh, x + s, y + sh, x + sd2, y, white
  31.     NEXT
  33.  
  35. scale = 1
  36. WHILE _KEYDOWN(27) = 0
  37.     CLS
  38.     _PUTIMAGE , tsheet&, 0
  40.     mx = _MOUSEX: my = _MOUSEY
  41.     angle = _ATAN2(my - cx, mx - cy)
  42.     RotoZoom2 mx, my, tsheet&, scale, scale, angle
  43.     _DISPLAY
  44.     _LIMIT 10
  46.  
  47. SUB RotoZoom2 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale, Rotation AS SINGLE)
  48.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  49.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  50.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  51.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  52.     'sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
  53.     sinr! = SIN(-Rotation): cosr! = COS(-Rotation)
  54.     FOR i& = 0 TO 3
  55.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  56.         px(i&) = x2&: py(i&) = y2&
  57.     NEXT
  58.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  59.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  61.  
  62.  
  63. ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]:    http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
  64. SUB ftri (dh&, x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  65.     a& = _NEWIMAGE(1, 1, 32)
  66.     _DEST a&
  67.     PSET (0, 0), K
  68.     _DEST dh&
  69.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  70.     _FREEIMAGE a& '<<< this is important!
  72.  
  73.  
Title: Re: Moire with triangle sheets
Post by: jack on March 06, 2019, 06:05:01 pm
nice bplus, can you add colors ?
Title: Re: Moire with triangle sheets
Post by: bplus on March 06, 2019, 06:24:46 pm
Quote from: jack on March 06, 2019, 06:05:01 pm
nice bplus, can you add colors ?

Yes I can add color:
Code: QB64: [Select]
  1. _TITLE "Moire with triangle sheets mod 3" ' B+ 2019-03-06
  2.  
  3. ' Now the middle of the over sheet is where the mouse is
  4. ' and the angle the sheet is turned is the same angle
  5. ' the mouse is to the center of screen. Theoretically
  6. ' if you put the mouse dead center of the screen the 2 sheets
  7. ' will coincide and look like one sheet. But as mouse closes in
  8. ' at center the angle swing becomes more sensitive to slightest
  9. ' changes.
  10.  
  11. ' mod #3 try it with color
  12.  
  13. CONST sq3 = 1.732050808
  14. CONST xmax = 700
  15. CONST ymax = 700
  16. CONST cx = xmax / 2
  17. CONST cy = ymax / 2
  18. CONST white = &HFFFFFFFF
  19. CONST black = &HFF000000
  20. CONST red = &HFFFF0000
  21. CONST grn = &HFF00FF00
  22. CONST blu = &HFF0000FF
  23.  
  24. SCREEN _NEWIMAGE(xmax, ymax, 32)
  25. _SCREENMOVE 100, 20
  27. pal(0) = red: pal(1) = grn: pal(2) = blu
  28. tsheet& = _NEWIMAGE(xmax, ymax, 32)
  29. _DEST tsheet&
  30. s = 10
  31. sd2 = 5
  32. sh = sd2 * sq3
  33. FOR y = 0 TO ymax STEP sh
  34.     yoff = (yoff + 1) MOD 2
  35.     ccy = (ccy + 1) MOD 3
  36.     ccx = ccy
  37.     FOR x = yoff * sd2 TO xmax STEP s
  38.         ftri tsheet&, x, y + sh, x + s, y + sh, x + sd2, y, pal(ccx)
  39.         ccx = (ccx + 1) MOD 3
  40.     NEXT
  42.  
  44. scale = 1
  45. WHILE _KEYDOWN(27) = 0
  46.     CLS
  47.     _PUTIMAGE , tsheet&, 0
  49.     mx = _MOUSEX: my = _MOUSEY
  50.     angle = _ATAN2(my - cx, mx - cy)
  51.     RotoZoom2 mx, my, tsheet&, scale, scale, angle
  52.     _DISPLAY
  53.     _LIMIT 10
  55.  
  56. SUB RotoZoom2 (X AS LONG, Y AS LONG, Image AS LONG, xScale AS SINGLE, yScale, Rotation AS SINGLE)
  57.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  58.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  59.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  60.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  61.     'sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
  62.     sinr! = SIN(-Rotation): cosr! = COS(-Rotation)
  63.     FOR i& = 0 TO 3
  64.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * xScale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * yScale + Y
  65.         px(i&) = x2&: py(i&) = y2&
  66.     NEXT
  67.     _MAPTRIANGLE (0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  68.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  70.  
  71.  
  72. ' found at [abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]:    http://www.[abandoned, outdated and now likely malicious qb64 dot net website - don’t go there]/forum/index.php?topic=14425.0
  73. SUB ftri (dh&, x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  74.     a& = _NEWIMAGE(1, 1, 32)
  75.     _DEST a&
  76.     PSET (0, 0), K
  77.     _DEST dh&
  78.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  79.     _FREEIMAGE a& '<<< this is important!
  81.  
  82.  

Reminds me of a Magic Eye of Rubik's Cubes.
Text Only | Text with Attachments