« previous next »
Pages: [1]   Go Down

Author Topic: Need a little help.  (Read 4499 times)

0 Members and 1 Guest are viewing this topic.

Offline Cobalt

  • QB64 Developer
  • Forum Resident
  • Posts: 878
  • At 60 I become highly radioactive!
    • View Profile
Need a little help.
« on: July 31, 2018, 01:23:02 pm »
Okay so I'm trying to finish up some stuff for my eRATication Mark II and I just can't get my cheese wedge shaped shooter to rotate correctly. or more precisely the 'holes' in the wedge to stay put as the wedge spins. I can get them to work in very specific locations but not in a random look that I want.
Code: QB64: [Select]
  1. 'cheese wedge ship design spin test.
  2. CONST TRUE = -1, FALSE = NOT TRUE
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4.  
  5. x = 400: y = 300
  7.  FOR i! = 0 TO 6.28 STEP .01
  8.   RadianAngle = i!
  9.   LINE (300, 200)-(500, 400), _RGB(0, 0, 0), BF 'erase spin area
  10.  
  11.   x1 = x + 60 * COS(RadianAngle) 'the wedge points
  12.   y1 = y + 60 * SIN(RadianAngle)
  13.   x2 = x + 30 * COS(RadianAngle + _PI(2 / 3))
  14.   y2 = y + 30 * SIN(RadianAngle + _PI(2 / 3))
  15.   x3 = x + 30 * COS(RadianAngle - _PI(2 / 3))
  16.   y3 = y + 30 * SIN(RadianAngle - _PI(2 / 3))
  17.  
  18.   fTri x1, y1, x2, y2, x3, y3, _RGB(252, 221, 37) 'draw the wedge
  19.  
  20.   'try to add some 'holes' to the wedge and have them stay in place while spining
  21.   fcirc x + 15 * COS(RadianAngle + _PI(2 / 3)), y + 15 * SIN(RadianAngle + _PI(2 / 3)), 4, _RGB(148, 76, 36)
  22.   fcirc x + 10 * COS(RadianAngle), y + 15 * SIN(RadianAngle), 3, _RGB(148, 76, 36)
  23.   fcirc x + 20 * COS(RadianAngle - _PI(2 / 3)), y - 8 * SIN(RadianAngle - _PI(2 / 3)), 2, _RGB(148, 76, 36)
  24.  
  25.   'mark the main points of the triangle
  26.   PSET (x1, y1), _RGB(255, 0, 0)
  27.   PSET (x2, y2), _RGB(0, 255, 0)
  28.   PSET (x3, y3), _RGB(0, 0, 255)
  29.   'mark the rotational center of the triangle
  30.   PSET (x, y), _RGB(255, 0, 255): DRAW "ud2url2"
  31.  
  32.   _DELAY .01
  33.   IF INKEY$ <> "" THEN exitflag% = TRUE: i! = 6.30
  34.  NEXT i!
  35. LOOP UNTIL exitflag%
  36.  
  37. SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  38.  a& = _NEWIMAGE(1, 1, 32)
  39.  _DEST a&
  40.  PSET (0, 0), K
  41.  _DEST 0
  42.  _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  43.  _FREEIMAGE a& '<<< this is important!
  45.  
  46. 'vince version
  47. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  48.  x0 = R
  49.  y0 = 0
  50.  e = 0
  51.  DO WHILE y0 < x0
  52.   IF e <= 0 THEN
  53.    y0 = y0 + 1
  54.    LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  55.    LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  56.    e = e + 2 * y0
  57.   ELSE
  58.    LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  59.    LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  60.    x0 = x0 - 1
  61.    e = e - 2 * x0
  62.   END IF
  64.  LINE (x - R, y)-(x + R, y), C, BF
  66.  

the back of the wedge is a little flat yet but I'm not overly concerned with that at this time. I just need to find a way to keep the 'hole' circles in place on the wedge while having a random pattern of them. you guys have any ideas?
Logged
Granted after becoming radioactive I only have a half-life!

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #1 on: July 31, 2018, 01:44:44 pm »
Hi. I would do it otherwise. I would make a cheese wallpaper and then cut out the cheese triangle using the _maptriangle and turn it over RotoZoom.
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #2 on: July 31, 2018, 02:28:51 pm »
....wallpaper.... i meant texture.... i now write, how do it.
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Need a little help.
« Reply #3 on: July 31, 2018, 03:08:53 pm »
Hi Cobalt,

You need to use the same coefficient for  y for sin multiplier as you used for x cos multiplier

x = cx + m * sin(...)
y = cy + m * cos(...)

Here is code modified with a draw sub for shooter with some more holes added.
The shooter angle (which is shared for sub access) is not converted to radians until inside the sub.
Also the shooter x, y location is also shared.

Code: QB64: [Select]
  1. 'cheese wedge ship design spin test.
  2. CONST TRUE = -1, FALSE = NOT TRUE
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. DIM SHARED shooterX, shooterY, shooterA
  5. shooterX = 400: shooterY = 300
  6.  
  7. FOR shooterA = 0 TO 360 STEP 1
  8.     IF _KEYDOWN(32) THEN END
  9.     LINE (300, 200)-(500, 400), _RGB(0, 0, 0), BF 'erase spin area
  10.  
  11.     drawShooter
  12.     _DISPLAY
  13.     _LIMIT 60
  15.  
  16.  
  17. SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  18.     a& = _NEWIMAGE(1, 1, 32)
  19.     _DEST a&
  20.     PSET (0, 0), K
  21.     _DEST 0
  22.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  23.     _FREEIMAGE a& '<<< this is important!
  25.  
  26. 'vince version
  27. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  28.     x0 = R
  29.     y0 = 0
  30.     e = 0
  31.     DO WHILE y0 < x0
  32.         IF e <= 0 THEN
  33.             y0 = y0 + 1
  34.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  35.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  36.             e = e + 2 * y0
  37.         ELSE
  38.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  39.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  40.             x0 = x0 - 1
  41.             e = e - 2 * x0
  42.         END IF
  43.     LOOP
  44.     LINE (x - R, y)-(x + R, y), C, BF
  46.  
  47. SUB drawShooter ()
  48.     'calculate 3 points of triangle shooter
  49.     'dim shared ShooterX, ShooterY, ShooterA
  50.     rA = _D2R(shooterA)
  51.     x1 = shooterX + 60 * COS(rA) 'main point of shooter according to heading
  52.     y1 = shooterY + 60 * SIN(rA)
  53.     x2 = shooterX + 30 * COS(rA + _PI(2 / 3)) 'next two points are 120 degrees off main point in direction
  54.     y2 = shooterY + 30 * SIN(rA + _PI(2 / 3))
  55.     x3 = shooterX + 30 * COS(rA - _PI(2 / 3))
  56.     y3 = shooterY + 30 * SIN(rA - _PI(2 / 3))
  57.     fTri x1, y1, x2, y2, x3, y3, _RGB32(252, 221, 37)
  58.     ''try to add some 'holes' to the wedge and have them stay in place while spining
  59.  
  60.     fcirc shooterX + 15 * COS(rA + _PI(2 / 3)), shooterY + 15 * SIN(rA + _PI(2 / 3)), 4, _RGB(148, 76, 36)
  61.     fcirc shooterX + 10 * COS(rA), shooterY + 10 * SIN(rA), 3, _RGB(148, 76, 36)
  62.     fcirc shooterX + 8 * COS(rA - _PI(2 / 3)), shooterY + 8 * SIN(rA - _PI(2 / 3)), 2, _RGB(148, 76, 36)
  63.     fcirc shooterX + 5 * COS(rA + _PI(1 / 3)), shooterY + 5 * SIN(rA + _PI(1 / 3)), 1, _RGB(148, 76, 36)
  64.     fcirc shooterX + 20 * COS(rA + _PI(1 / 20)), shooterY + 20 * SIN(rA + _PI(1 / 20)), 3, _RGB(148, 76, 36)
  65.     fcirc shooterX + 40 * COS(rA - _PI(1 / 36)), shooterY + 40 * SIN(rA - _PI(1 / 36)), 4, _RGB(148, 76, 36)
  66.     fcirc shooterX + 20 * COS(rA + _PI(1 / 20)), shooterY + 20 * SIN(rA + _PI(1 / 20)), 3, _RGB(148, 76, 36)
  67.     fcirc shooterX + 40 * COS(rA - _PI(1 / 36)), shooterY + 40 * SIN(rA - _PI(1 / 36)), 4, _RGB(148, 76, 36)
  68.  
  69.     ''mark the main points of the triangle
  70.     fcirc x1, y1, 1, _RGB32(255, 0, 0)
  71.     fcirc x2, y2, 1, _RGB32(0, 255, 0)
  72.     fcirc x3, y3, 1, _RGB32(0, 0, 255)
  73.     ''mark the rotational center of the triangle
  74.     fcirc shooterX, shooterY, 2, _RGB(255, 0, 255)
  75.  
  76.  
  78.  
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #4 on: July 31, 2018, 03:28:35 pm »
Again, hello. Perhaps this way is easier:

Code: QB64: [Select]
  1. 'cheese wedge ship design spin test.
  2. CONST TRUE = -1, FALSE = NOT TRUE, Cheese& = _RGB32(148, 76, 36), Wedge& = _RGB32(252, 221, 37)
  3. SCREEN _NEWIMAGE(800, 600, 32)
  4. REDIM ch(0) AS LONG
  5.  
  6. CheeseTexture ch()
  7. x = 400: y = 300
  8.  
  9.  
  10. 'all textures coordinate preload
  11. DIM ssx(20), ssy(20)
  12. FOR f = 1 TO 20
  13.     ssx(f) = sx: ssy(f) = sy
  14.     sx = sx + 120: IF sx > 800 - 120 THEN sx = 0: sy = sy + 120
  16.  
  17.  
  18.  
  19.  
  21.     'rotation:
  22.     CLS
  23.     FOR i = 1 TO 20
  24.         RotoZoom ssx(i) + 75, ssy(i) + 75, ch(i), _DEST, 1, f!, 1, 1
  25.     NEXT i
  26.     _DISPLAY
  27.     f! = f! + .01
  28.  
  29.  
  30.  
  31.     '    FOR i! = 0 TO 6.28 STEP .01
  32.     '    RadianAngle = i!
  33.     '   LINE (300, 200)-(500, 400), _RGB(0, 0, 0), BF 'erase spin area
  34.  
  35.     '  x1 = x + 60 * COS(RadianAngle) 'the wedge points
  36.     '  y1 = y + 60 * SIN(RadianAngle)
  37.     '  x2 = x + 30 * COS(RadianAngle + _PI(2 / 3))
  38.     '  y2 = y + 30 * SIN(RadianAngle + _PI(2 / 3))
  39.     '  x3 = x + 30 * COS(RadianAngle - _PI(2 / 3))
  40.     '  y3 = y + 30 * SIN(RadianAngle - _PI(2 / 3))
  41.  
  42.     '    fTri x1, y1, x2, y2, x3, y3, _RGB(252, 221, 37) 'draw the wedge
  43.  
  44.     'try to add some 'holes' to the wedge and have them stay in place while spining
  45.     '  fcirc x + 15 * COS(RadianAngle + _PI(2 / 3)), y + 15 * SIN(RadianAngle + _PI(2 / 3)), 4, _RGB(148, 76, 36)
  46.     '  fcirc x + 10 * COS(RadianAngle), y + 15 * SIN(RadianAngle), 3, _RGB(148, 76, 36)
  47.     '   REM        fcirc x + 20 * COS(RadianAngle - _PI(2 / 3)), y - 8 * SIN(RadianAngle - _PI(2 / 3)), 2, _RGB(148, 76, 36)
  48.     '   fcirc x + 20 * COS(RadianAngle + _PI(2 / 3)), y + 20 * SIN(RadianAngle + _PI(2 / 3)), 2, _RGB(148, 76, 36)
  49.  
  50.  
  51.     'mark the main points of the triangle
  52.     '  PSET (x1, y1), _RGB(255, 0, 0)
  53.     '  PSET (x2, y2), _RGB(0, 255, 0)
  54.     '  PSET (x3, y3), _RGB(0, 0, 255)
  55.     '  'mark the rotational center of the triangle
  56.     '  PSET (x, y), _RGB(255, 0, 255): DRAW "ud2url2"
  57.  
  58.     '  _DELAY .01
  59.     IF INKEY$ <> "" THEN exitflag% = TRUE: i! = 6.30
  60.     ' NEXT i!
  61.  
  62.  
  63.     '  _LIMIT 30
  64. LOOP UNTIL exitflag%
  65.  
  66.  
  67.  
  68.  
  69. SUB CheeseTexture (ch() AS LONG)
  70.     REDIM ch(20) AS LONG
  71.     V& = _NEWIMAGE(150, 150, 32)
  72.     curr& = _DEST
  73.     _DEST V&
  74.     FOR TextureGen = 0 TO 20
  75.         CLS , Wedge&
  76.         FOR w = 1 TO 10 'how much circles
  77.             x = RND * 150
  78.             y = RND * 150
  79.             radius = RND * 15
  80.             fcirc x, y, radius, Cheese&
  81.         NEXT w
  82.  
  83.         'generate random cheese size:
  84.         gen:
  85.         x1 = RND * 20
  86.         y1 = RND * 20
  87.         x2 = RND * 130
  88.         y2 = RND * 130
  89.         x3 = RND * 130
  90.         y3 = RND * 20
  91.         IF ABS(x3 - x1) < 30 OR ABS(x2 - x1) < 30 OR ABS(y2 - y1) < 30 THEN GOTO gen
  92.  
  93.  
  94.         ch(TextureGen) = _NEWIMAGE(150, 150, 32)
  95.         _MAPTRIANGLE (x1, y1)-(x2, y2)-(x3, y3), V& TO(x1, y1)-(x2, y2)-(x3, y3), ch(TextureGen)
  96.     NEXT
  97.     _DEST curr&
  98.     _FREEIMAGE V&
  100.  
  101.  
  102. 'SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  103. '    a& = _NEWIMAGE(1, 1, 32)
  104. '    _DEST a&
  105. '    PSET (0, 0), K
  106. '    _DEST 0
  107. '    _MAPTRIANGLE (0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  108. '    _FREEIMAGE a& '<<< this is important!
  109. 'END SUB
  110.  
  111.  
  112.  
  113. 'vince version
  114.  
  115.  
  116. SUB RotoZoom (X AS INTEGER, Y AS INTEGER, Image AS LONG, cil AS LONG, Scale AS SINGLE, RotationR AS SINGLE, direction AS INTEGER, speed AS INTEGER)
  117.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  118.     W& = _WIDTH(Image&): h& = _HEIGHT(Image&)
  119.     px(0) = -W& / 2: py(0) = -h& / 2: px(1) = -W& / 2: py(1) = h& / 2
  120.     px(2) = W& / 2: py(2) = h& / 2: px(3) = W& / 2: py(3) = -h& / 2
  121.     IF direction = 1 THEN
  122.         sinr! = COS(-RotationR / 3.1415927): cosr! = SIN(-RotationR / 3.1415927 * speed)
  123.     ELSE
  124.         sinr! = SIN(-RotationR / 3.1415927): cosr! = COS(-RotationR / 3.1415927 * speed)
  125.     END IF
  126.     '  _limit 60 - speed
  127.     FOR i& = 0 TO 3
  128.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
  129.         px(i&) = x2&: py(i&) = y2&
  130.     NEXT
  131.     _DEST cil&
  132.     _MAPTRIANGLE (0, 0)-(0, h& - 1)-(W& - 1, h& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2)), 0, _SMOOTH
  133.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, h& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2)), 0, _SMOOTH
  135.  
  136.  
  137.  
  138.  
  139.  
  140.  
  141. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  142.     x0 = R
  143.     y0 = 0
  144.     e = 0
  145.     DO WHILE y0 < x0
  146.         IF e <= 0 THEN
  147.             y0 = y0 + 1
  148.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  149.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  150.             e = e + 2 * y0
  151.         ELSE
  152.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  153.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  154.             x0 = x0 - 1
  155.             e = e - 2 * x0
  156.         END IF
  157.     LOOP
  158.     LINE (x - R, y)-(x + R, y), C, BF
  160.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Need a little help.
« Reply #5 on: July 31, 2018, 03:34:52 pm »
oops! I repeated holes here are 8 different ones:
Code: QB64: [Select]
  1.     fcirc shooterX + 15 * COS(rA + _PI(2 / 3)), shooterY + 15 * SIN(rA + _PI(2 / 3)), 3, _RGB(148, 76, 36)
  2.     fcirc shooterX + 10 * COS(rA), shooterY + 10 * SIN(rA), 2, _RGB(148, 76, 36)
  3.     fcirc shooterX + 8 * COS(rA - _PI(2 / 3)), shooterY + 8 * SIN(rA - _PI(2 / 3)), 2, _RGB(148, 76, 36)
  4.     fcirc shooterX + 5 * COS(rA + _PI(1 / 3)), shooterY + 5 * SIN(rA + _PI(1 / 3)), 3, _RGB(148, 76, 36)
  5.     fcirc shooterX + 20 * COS(rA + _PI(1 / 20)), shooterY + 20 * SIN(rA + _PI(1 / 20)), 2, _RGB(148, 76, 36)
  6.     fcirc shooterX + 40 * COS(rA - _PI(1 / 36)), shooterY + 40 * SIN(rA - _PI(1 / 36)), 3, _RGB(148, 76, 36)
  7.     fcirc shooterX + 10 * COS(rA + _PI(.8)), shooterY + 10 * SIN(rA + _PI(.8)), 4, _RGB(148, 76, 36)
  8.     fcirc shooterX + 12 * COS(rA - _PI(7 / 16)), shooterY + 12 * SIN(rA - _PI(7 / 16)), 4, _RGB(148, 76, 36)
  9.  
  10.  
  11.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Need a little help.
« Reply #6 on: July 31, 2018, 07:36:32 pm »
A different construction of the shooter wedge that makes it easier for random patterns of holes:
Code: QB64: [Select]
  1. 'cheese wedge shooter 2
  2.  
  3. 'try a different construction of wedge for easier random holes in it
  4.  
  5. CONST TRUE = -1, FALSE = NOT TRUE
  6. CONST nHoles = 9
  7. TYPE holeType
  8.     mult AS SINGLE
  9.     angle AS SINGLE
  10.     radius AS INTEGER
  12.  
  13. SCREEN _NEWIMAGE(800, 600, 32)
  15.  
  16. DIM SHARED shooterX, shooterY, shooterA
  17. DIM SHARED holes(nHoles) AS holeType
  18. shooterX = 400: shooterY = 300
  19.  
  20. 'show different patterns of holes
  22.     'new set of holes
  23.     initHoles
  24.     FOR shooterA = 0 TO 360 STEP 1
  25.         IF _KEYDOWN(27) THEN EXIT FOR
  26.         CLS
  27.         drawShooter
  28.         _DISPLAY
  29.         _LIMIT 60
  30.     NEXT
  32.  
  33. SUB fTri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  34.     a& = _NEWIMAGE(1, 1, 32)
  35.     _DEST a&
  36.     PSET (0, 0), K
  37.     _DEST 0
  38.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  39.     _FREEIMAGE a& '<<< this is important!
  41.  
  42. 'vince version
  43. SUB fcirc (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  44.     x0 = R
  45.     y0 = 0
  46.     e = 0
  47.     DO WHILE y0 < x0
  48.         IF e <= 0 THEN
  49.             y0 = y0 + 1
  50.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
  51.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
  52.             e = e + 2 * y0
  53.         ELSE
  54.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
  55.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
  56.             x0 = x0 - 1
  57.             e = e - 2 * x0
  58.         END IF
  59.     LOOP
  60.     LINE (x - R, y)-(x + R, y), C, BF
  62.  
  63. SUB drawShooter ()
  64.     'calculate 2 points of wedge, the pointer is at shooterX, shooterY
  65.     'dim shared ShooterX, ShooterY, ShooterA
  66.     rA = _D2R(shooterA)
  67.     x1 = shooterX + 80 * COS(rA + _PI(11 / 12))
  68.     y1 = shooterY + 80 * SIN(rA + _PI(11 / 12))
  69.     x2 = shooterX + 80 * COS(rA + _PI(13 / 12))
  70.     y2 = shooterY + 80 * SIN(rA + _PI(13 / 12))
  71.     fTri shooterX, shooterY, x1, y1, x2, y2, _RGB32(252, 221, 37)
  72.     ''try to add some 'holes' to the wedge and have them stay in place while spining
  73.     FOR i = 1 TO nHoles
  74.         fcirc shooterX + holes(i).mult * COS(rA + holes(i).angle), shooterY + holes(i).mult * SIN(rA + holes(i).angle), holes(i).radius, _RGB32(0, 0, 0)
  75.     NEXT
  76.  
  78.  
  79. SUB initHoles ()
  80.     FOR i = 1 TO nHoles
  81.         holes(i).mult = 17 + RND * 63
  82.         holes(i).angle = _PI(45 / 48) + RND * _PI(7 / 48)
  83.         holes(i).radius = INT(RND * 4) + 1
  84.     NEXT
  86.  
  87.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Need a little help.
« Reply #7 on: August 01, 2018, 01:27:54 pm »
Spent the morning making cheese to employ some of Petr's idea for a wedge of cheese shooter:
Everything depends upon radius of hole size, for shooter need a pretty small radius but some excellent cheese textures could be made with larger radii but the other variables then have to be tweaked. (Hi Petr, did not need rotozoom).

Anyway, here is best cheese I could come up for smallish shooter wedge:
Code: QB64: [Select]
  1. _TITLE "Cheese Factory"
  2. 'QB64 X 64 version 1.2 20180228/86  from git b301f92
  3.  
  4. '2018-08-01 started from idea I had while trying to fix holes in Colbalt's cheese wedge shooter
  5.  
  6. CONST wW = 800
  7. CONST wH = 600
  8. CONST maxHoleLife = 10
  9. CONST maxHoleRadius = 4
  10. CONST sSz = 100
  11. TYPE holeType
  12.     x AS SINGLE
  13.     y AS SINGLE
  14.     life AS INTEGER
  16.  
  17.  
  18. SCREEN _NEWIMAGE(wW, wH, 32)
  19. _SCREENMOVE 360, 60
  21.  
  22. DIM SHARED nHoles 'this might change
  23. nHoles = 2000
  24.  
  25. DIM SHARED h(nHoles) AS holeType
  26. FOR i = 1 TO nHoles
  27.     newHole i, 1
  29.  
  30. DIM SHARED slice&
  31. slice& = 1
  32.  
  33. growCheese 0
  34. COLOR _RGB32(0, 0, 0), _RGB32(255, 255, 0)
  35. _PRINTSTRING (20, 280), "Here is a sample of the cheese from which we are taking a wedge, press any to rotate shooter..."
  37. COLOR _RGB32(255, 255, 255), _RGB32(0, 0, 0)
  38.  
  39. DIM SHARED shooterX, shooterY, shooterA
  40. shooterX = 400: shooterY = 300
  41.  
  42. 'show different patterns of holes
  44.     growCheese slice& 'try different batches of cheese
  45.     FOR shooterA = 0 TO 360 STEP 1
  46.         IF _KEYDOWN(27) THEN EXIT FOR
  47.         CLS
  48.         drawShooter
  49.         _DISPLAY
  50.         _LIMIT 60
  51.     NEXT
  53.  
  54. SUB drawShooter ()
  55.     'calculate 2 points of wedge, the pointer is at shooterX, shooterY
  56.     'dim shared ShooterX, ShooterY, ShooterA
  57.     rA = _D2R(shooterA)
  58.     x1 = shooterX + sSz * COS(rA + _PI(11 / 12)) 'next two points are 120 degrees off main point in direction
  59.     y1 = shooterY + sSz * SIN(rA + _PI(11 / 12))
  60.     x2 = shooterX + sSz * COS(rA + _PI(13 / 12))
  61.     y2 = shooterY + sSz * SIN(rA + _PI(13 / 12))
  62.     _MAPTRIANGLE (400 + sSz * COS(_PI(11 / 12)), 300 + sSz * SIN(_PI(11 / 12)))-(400 + sSz * COS(_PI(13 / 12)), 300 + sSz * SIN(_PI(13 / 12)))-(400, 300), slice& TO(x1, y1)-(x2, y2)-(shooterX, shooterY)
  64.  
  65.  
  66. SUB newHole (i, tfStart)
  67.     h(i).x = wW * RND
  68.     h(i).y = wH * RND
  69.     IF tfStart THEN h(i).life = INT(RND * maxHoleLife) ELSE h(i).life = 1
  71.  
  72. SUB growCheese (destHandle&)
  73.     curr& = _DEST
  74.     l& = _NEWIMAGE(wW, wH, 32)
  75.     _DEST l&
  76.     FOR layr = 40 TO 80
  77.         LINE (0, 0)-(wW, wH), _RGBA32(255, 255, 0, .3 * layr), BF 'layer of cheese
  78.         FOR i = 1 TO nHoles 'holes in layer
  79.             IF h(i).life + 1 > maxHoleLife THEN newHole i, 0 ELSE h(i).life = h(i).life + 1
  80.             h(i).x = h(i).x + RND * 2 - 1
  81.             h(i).y = h(i).y + RND * 2 - 1
  82.             IF h(i).life < maxHoleRadius THEN
  83.                 radius = h(i).life
  84.             ELSEIF maxHoleLife - h(i).life < maxHoleRadius THEN
  85.                 radius = maxHoleLife - h(i).life
  86.             ELSE
  87.                 radius = maxHoleRadius
  88.             END IF
  89.             COLOR _RGBA32(0, 0, 0, .3 * layr)
  90.             fcirc h(i).x, h(i).y, radius
  91.         NEXT
  92.     NEXT
  93.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, wH)-(wW, 0), l& TO(0, 0)-(0, wH)-(wW, 0), destHandle&
  94.     'only using small slice of cheese
  95.     _MAPTRIANGLE _SEAMLESS(wW, 0)-(wW, wH)-(0, wH), l& TO(wW, 0)-(wW, wH)-(0, wH), destHandle&
  96.     _DEST curr&
  97.     _FREEIMAGE l& '<<< this is important!
  99.  
  100. 'Steve McNeil's  copied from his forum   note: Radius is too common a name
  101. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG)
  102.     DIM subRadius AS LONG, RadiusError AS LONG
  103.     DIM X AS LONG, Y AS LONG
  104.  
  105.     subRadius = ABS(R)
  106.     RadiusError = -subRadius
  107.     X = subRadius
  108.     Y = 0
  109.  
  110.     IF subRadius = 0 THEN PSET (CX, CY): EXIT SUB
  111.  
  112.     ' Draw the middle span here so we don't draw it twice in the main loop,
  113.     ' which would be a problem with blending turned on.
  114.     LINE (CX - X, CY)-(CX + X, CY), , BF
  115.  
  116.     WHILE X > Y
  117.         RadiusError = RadiusError + Y * 2 + 1
  118.         IF RadiusError >= 0 THEN
  119.             IF X <> Y + 1 THEN
  120.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), , BF
  121.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), , BF
  122.             END IF
  123.             X = X - 1
  124.             RadiusError = RadiusError - X * 2
  125.         END IF
  126.         Y = Y + 1
  127.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), , BF
  128.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), , BF
  129.     WEND
  131.  
« Last Edit: August 01, 2018, 01:29:06 pm by bplus »
Logged

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #8 on: August 01, 2018, 02:47:48 pm »
Does not matter if is rotozoom used, the principle is still the same. Good luck with other cheese orgies, I will no longer participate in them.
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Need a little help.
« Reply #9 on: August 01, 2018, 10:16:26 pm »
Sorry to highlight myself as being immensely immature, but this line is farking hilarious:

Quote
Good luck with other cheese orgies, I will no longer participate in them.
Logged
You're not done when it works, you're done when it's right.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #10 on: August 02, 2018, 03:44:42 am »
I do not know what you mean, of course, I'm writing about programming orgies - four, five or more examples for the same thema. I understand it's summer and someone can understand it differently...
Logged

Offline STxAxTIC

  • Library Staff
  • Forum Resident
  • Posts: 1091
  • he lives
    • View Profile
Re: Need a little help.
« Reply #11 on: August 02, 2018, 06:45:08 am »
^ That's why I love ya Petr. (Puns never intended!)

Begin your education on the topic here then: https://www.urbandictionary.com/define.php?term=cheese%20orgy

(Anyone who wants a kid-friendly Internet has to wait for Walt to finish his site.)
« Last Edit: August 02, 2018, 06:48:56 am by STxAxTIC »
Logged
You're not done when it works, you're done when it's right.

Offline Petr

  • Forum Resident
  • Posts: 1720
  • The best code is the DNA of the hops.
    • View Profile
Re: Need a little help.
« Reply #12 on: August 02, 2018, 07:40:41 am »
I love you not :-D

Thank you for the link, definition of this word in Czech is different. Means, among other things, brazenness, ceremony or festivity, or eccentric entertainment.



Logged
Pages: [1]   Go Up
« previous next »