« previous next »
Pages: [1] 2   Go Down

Author Topic: Crop Circles  (Read 6795 times)

0 Members and 1 Guest are viewing this topic.

This topic contains a post which is marked as Best Answer. Press here if you would like to see it.

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Crop Circles
« on: January 25, 2021, 04:12:42 pm »
Crop circles: 2 color geometric design with shades of fractal or whatever looks intelligently designed or fun!

Crop Circles #3 mod
Code: QB64: [Select]
  1. _TITLE "Crop Circles #3" 'b+ trans and mod to QB64 2021-01-25
  2.  
  3. CONST Xmax = 730, Ymax = 730, Cx = Xmax / 2, Cy = Ymax / 2
  5. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  6. _DELAY .25
  8.  
  9. Hc = _RGB32(240, 220, 80): Lc = _RGB32(100, 50, 10): n = 12: stp = -40
  10. COLOR , Hc
  12. FOR br = 360 TO 0 STEP stp
  13.     shft = shft + 720 / (n * n)
  14.     FOR i = 1 TO n
  15.         x = Cx + br * COS(_D2R(i * 360 / n + shft))
  16.         y = Cy + br * SIN(_D2R(i * 360 / n + shft))
  17.         drawc x, y
  18.         _LIMIT 10
  19.     NEXT
  22.  
  23. SUB drawc (mx, my)
  24.     'local m,cr,dx,dy,dr,i,cc
  26.     cr = .5 * SQR((Cx - mx) ^ 2 + (Cy - my) ^ 2): m = .5 * cr
  27.     dx = (mx - Cx) / m: dy = (my - Cy) / m: dr = cr / m
  28.     FOR i = m TO 0 STEP -1
  29.         IF i MOD 2 = 0 THEN cc = Hc ELSE cc = Lc
  30.         x = Cx + dx * (m - i): y = Cy + dy * (m - i): r = dr * i
  31.         fcirc x, y, r, cc
  32.     NEXT
  34.  
  35. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  36.     DIM Radius AS LONG, RadiusError AS LONG
  37.     DIM X AS LONG, Y AS LONG
  38.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  39.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  40.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  41.     WHILE X > Y
  42.         RadiusError = RadiusError + Y * 2 + 1
  43.         IF RadiusError >= 0 THEN
  44.             IF X <> Y + 1 THEN
  45.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  46.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  47.             END IF
  48.             X = X - 1
  49.             RadiusError = RadiusError - X * 2
  50.         END IF
  51.         Y = Y + 1
  52.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  53.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  54.     WEND
  56.  
  57.  
  58.  
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Crop Circles
« Reply #1 on: January 25, 2021, 05:32:28 pm »
You obviously have non-traditional aliens where you live...

Nicely done... Does it come in blue... lol  Kidding....
Logged
Logic is the beginning of wisdom.

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Crop Circles
« Reply #2 on: January 25, 2021, 05:35:58 pm »
I want a slower frames version, with a zoom feature... so I can see Steve on his tractor, making those crop circles. We all know it's him!!!

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Crop Circles
« Reply #3 on: January 25, 2021, 05:52:45 pm »
Awesome B+! I decided to change one line to make the colors red and green to make it a flower.

Code: QB64: [Select]
  1. _TITLE "Crop Circles #3" 'b+ trans and mod to QB64 2021-01-25
  2.  
  3. CONST Xmax = 730, Ymax = 730, Cx = Xmax / 2, Cy = Ymax / 2
  5. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  6. _DELAY .25
  8.  
  9. 'Color mod by SierraKen to look like a flower.
  10. 'Hc = _RGB32(240, 220, 80): Lc = _RGB32(100, 50, 10): n = 12: stp = -40
  11. Hc = _RGB32(0, 255, 0): Lc = _RGB32(255, 0, 0): n = 12: stp = -40
  12. COLOR , Hc
  14. FOR br = 360 TO 0 STEP stp
  15.     shft = shft + 720 / (n * n)
  16.     FOR i = 1 TO n
  17.         x = Cx + br * COS(_D2R(i * 360 / n + shft))
  18.         y = Cy + br * SIN(_D2R(i * 360 / n + shft))
  19.         drawc x, y
  20.         _LIMIT 10
  21.     NEXT
  24.  
  25. SUB drawc (mx, my)
  26.     'local m,cr,dx,dy,dr,i,cc
  28.     cr = .5 * SQR((Cx - mx) ^ 2 + (Cy - my) ^ 2): m = .5 * cr
  29.     dx = (mx - Cx) / m: dy = (my - Cy) / m: dr = cr / m
  30.     FOR i = m TO 0 STEP -1
  31.         IF i MOD 2 = 0 THEN cc = Hc ELSE cc = Lc
  32.         x = Cx + dx * (m - i): y = Cy + dy * (m - i): r = dr * i
  33.         fcirc x, y, r, cc
  34.     NEXT
  36.  
  37. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  38.     DIM Radius AS LONG, RadiusError AS LONG
  39.     DIM X AS LONG, Y AS LONG
  40.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  41.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  42.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  43.     WHILE X > Y
  44.         RadiusError = RadiusError + Y * 2 + 1
  45.         IF RadiusError >= 0 THEN
  46.             IF X <> Y + 1 THEN
  47.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  48.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  49.             END IF
  50.             X = X - 1
  51.             RadiusError = RadiusError - X * 2
  52.         END IF
  53.         Y = Y + 1
  54.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  55.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  56.     WEND
  58.  
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Crop Circles
« Reply #4 on: January 25, 2021, 06:58:22 pm »
Quote from: Pete on January 25, 2021, 05:35:58 pm
I want a slower frames version, with a zoom feature... so I can see Steve on his tractor, making those crop circles. We all know it's him!!!

Pete

Sure, sure but not a tractor, QB64!  ;-))
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Crop Circles
« Reply #5 on: January 25, 2021, 07:11:38 pm »
I lost a good first officer, adrift in space that way. I yelled to Ensign Steve, "Engage the tractor beam! To which he immediately went to the shuttle bay, and engaged the headlight on the John Deere. Oh well.

- Pete out.
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Crop Circles
« Reply #6 on: January 25, 2021, 07:26:41 pm »
@johnno56 and @SierraKen  different colors huh?

OK let's take a look into my little bag of tricks...
Logged

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Crop Circles
« Reply #7 on: January 25, 2021, 09:21:15 pm »
OK here is what my tractor beam from my ship can do:
Code: QB64: [Select]
  1. _TITLE "Crop Circles #3 Mod 1 Zap Color Changes" 'b+ trans and mod to QB64 2021-01-25
  2.  
  3. CONST Xmax = 1024, Ymax = 730, Cx = Xmax / 2, Cy = Ymax / 2
  5. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  6. _DELAY .25
  9. HighColr = _RGB32(240, 220, 80): LowColr = _RGB32(100, 50, 10)
  10. makeCCircle
  12.     _PUTIMAGE , CCircle, 0
  13.     WHILE _MOUSEINPUT: WEND 'aim with mouse
  14.     mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
  15.     drawShip mx, my, LowColr
  16.     IF mb THEN
  17.         PLC mx, my, Cx, Cy, 360
  18.         _DISPLAY
  19.         FlagChange = -1
  20.     END IF
  21.     IF FlagChange THEN
  22.         makeCCircle
  23.         FlagChange = 0
  24.     END IF
  25.     _DISPLAY
  27.  
  28. SUB makeCCircle
  29.     IF CCircle THEN _FREEIMAGE CCircle
  30.     CCircle = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
  31.     _DEST CCircle
  32.     n = 12: stp = -40
  33.     COLOR , HighColr
  34.     CLS
  35.     FOR br = 360 TO 0 STEP stp
  36.         shft = shft + 720 / (n * n)
  37.         FOR i = 1 TO n
  38.             x = Cx + br * COS(_D2R(i * 360 / n + shft))
  39.             y = Cy + br * SIN(_D2R(i * 360 / n + shft))
  40.             drawc x, y
  41.         NEXT
  42.     NEXT
  43.     _DEST 0
  45.  
  46. SUB drawc (mx, my)
  48.     cr = .5 * SQR((Cx - mx) ^ 2 + (Cy - my) ^ 2): m = .5 * cr
  49.     dx = (mx - Cx) / m: dy = (my - Cy) / m: dr = cr / m
  50.     FOR i = m TO 0 STEP -1
  51.         IF i MOD 2 = 0 THEN cc = HighColr ELSE cc = LowColr
  52.         x = Cx + dx * (m - i): y = Cy + dy * (m - i): r = dr * i
  53.         fcirc x, y, r, cc
  54.     NEXT
  56.  
  57. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  58.     DIM Radius AS LONG, RadiusError AS LONG
  59.     DIM X AS LONG, Y AS LONG
  60.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  61.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  62.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  63.     WHILE X > Y
  64.         RadiusError = RadiusError + Y * 2 + 1
  65.         IF RadiusError >= 0 THEN
  66.             IF X <> Y + 1 THEN
  67.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  68.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  69.             END IF
  70.             X = X - 1
  71.             RadiusError = RadiusError - X * 2
  72.         END IF
  73.         Y = Y + 1
  74.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  75.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  76.     WEND
  78.  
  79. SUB PLC (baseX, baseY, targetX, targetY, targetR) ' PLC for PlasmaLaserCannon
  80.     r = RND ^ 2 * RND: g = RND ^ 2 * RND: b = RND ^ 2 * RND: hp = _PI(.5) ' red, green, blue, half pi
  81.     ta = _ATAN2(targetY - baseY, targetX - baseX) ' angle of target to cannon base
  82.     dist = _HYPOT(targetY - baseY, targetX - baseX) ' distance cannon to target
  83.     dr = targetR / dist
  84.     FOR r = 0 TO dist STEP .25
  85.         x = baseX + r * COS(ta)
  86.         y = baseY + r * SIN(ta)
  87.         C = C + .3
  88.         fcirc x, y, dr * r, _RGB32(128 + 127 * SIN(r * C), 128 + 127 * SIN(g * C), 128 + 127 * SIN(b * C))
  89.     NEXT
  90.     FOR rr = dr * r TO 0 STEP -.5
  91.         C = C + 1
  92.         LowColr = _RGB32(128 + 127 * SIN(r * C), 128 + 127 * SIN(g * C), 128 + 127 * SIN(b * C))
  93.         fcirc x, y, rr, LowColr
  94.     NEXT
  95.     cAnalysis LowColr, rr, gg, bb, aa
  96.     HighColr = _RGB32(255 - rr, 255 - gg, 255 - bb)
  98.  
  99. SUB cAnalysis (c AS _UNSIGNED LONG, outRed, outGrn, outBlu, outAlp)
  100.     outRed = _RED32(c): outGrn = _GREEN32(c): outBlu = _BLUE32(c): outAlp = _ALPHA32(c)
  102.  
  103. SUB drawShip (x, y, colr AS _UNSIGNED LONG) 'shipType     collisions same as circle x, y radius = 30
  104.     STATIC ls
  105.     DIM light AS LONG, r AS LONG, g AS LONG, b AS LONG
  106.     r = _RED32(colr): g = _GREEN32(colr): b = _BLUE32(colr)
  107.     fellipse x, y, 6, 15, _RGB32(r, g - 120, b - 100)
  108.     fellipse x, y, 18, 11, _RGB32(r, g - 60, b - 50)
  109.     fellipse x, y, 30, 7, _RGB32(r, g, b)
  110.     FOR light = 0 TO 5
  111.         fcirc x - 30 + 11 * light + ls, y, 1, _RGB32(ls * 50, ls * 50, ls * 50)
  112.     NEXT
  113.     ls = ls + 1
  114.     IF ls > 5 THEN ls = 0
  116.  
  117. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  118.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  120.     DIM x AS LONG, y AS LONG
  121.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  122.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  123.     DO WHILE y < yr
  124.         y = y + 1
  125.         x = SQR((h2w2 - y * y * w2) \ h2)
  126.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  127.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  128.     LOOP
  130.  
  131.  

Oh yeah! wear your laser safety glasses unless you have a welders helmet ;-))
« Last Edit: January 25, 2021, 09:30:06 pm by bplus »
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Crop Circles
« Reply #8 on: January 25, 2021, 10:03:56 pm »
Okay, that was very amusing, to say the least. Ensign Steve, eat your heart out!

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline SierraKen

  • Forum Resident
  • Posts: 1454
    • View Profile
Re: Crop Circles
« Reply #9 on: January 25, 2021, 10:45:36 pm »
The UFO is back!!! Run for your lives!!!!!!!! :D
Logged

Offline johnno56

  • Forum Resident
  • Posts: 1270
  • Live long and prosper.
    • View Profile
Re: Crop Circles
« Reply #10 on: January 26, 2021, 07:16:52 am »
You have excelled yourself yet again!!
Logged
Logic is the beginning of wisdom.

Offline Dav

  • Forum Resident
  • Posts: 792
    • View Profile
Re: Crop Circles
« Reply #11 on: January 26, 2021, 08:11:47 am »
Cool effect.  Nice coding!.

Edit:  I had to play around with it...

Code: QB64: [Select]
  1. _TITLE "Crop Circles #3 Mod 1 Zap Color Changes" 'b+ trans and mod to QB64 2021-01-25
  2.  
  3. CONST Xmax = 1024, Ymax = 730, Cx = Xmax / 2, Cy = Ymax / 2
  5. SCREEN _NEWIMAGE(Xmax, Ymax, 32)
  6. _DELAY .25
  9. HighColr = _RGB32(240, 220, 80): LowColr = _RGB32(100, 50, 10)
  10. makeCCircle
  12.     _PUTIMAGE , CCircle, 0
  13.     WHILE _MOUSEINPUT: WEND 'aim with mouse
  14.     mx = _MOUSEX: my = _MOUSEY: mb = _MOUSEBUTTON(1)
  15.     drawShip mx, my, LowColr
  16.     IF mb THEN
  17.         PLC mx, my, Cx, Cy, 360
  18.         _DISPLAY
  19.         FlagChange = -1
  20.     END IF
  21.     IF FlagChange THEN
  22.         makeCCircle
  23.         FlagChange = 0
  24.     END IF
  25.  
  26.  
  27.     temp& = _COPYIMAGE(_DISPLAY)
  28.     RotoZoom _WIDTH / 2, _HEIGHT / 2, temp&, 1, angle
  29.     angle = angle + 3: IF angle >= 360 THEN angle = angle - 360
  30.     _FREEIMAGE temp&
  31.     _DISPLAY
  32.     _DELAY .01
  33.  
  34.  
  36.  
  37. SUB makeCCircle
  38.     IF CCircle THEN _FREEIMAGE CCircle
  39.     CCircle = _NEWIMAGE(_WIDTH, _HEIGHT, 32)
  40.     _DEST CCircle
  41.     n = 12: stp = -40
  42.     COLOR , HighColr
  43.     CLS
  44.     FOR br = 360 TO 0 STEP stp
  45.         shft = shft + 720 / (n * n)
  46.         FOR i = 1 TO n
  47.             x = Cx + br * COS(_D2R(i * 360 / n + shft))
  48.             y = Cy + br * SIN(_D2R(i * 360 / n + shft))
  49.             drawc x, y
  50.         NEXT
  51.     NEXT
  52.     _DEST 0
  54.  
  55. SUB drawc (mx, my)
  57.     cr = .5 * SQR((Cx - mx) ^ 2 + (Cy - my) ^ 2): m = .5 * cr
  58.     dx = (mx - Cx) / m: dy = (my - Cy) / m: dr = cr / m
  59.     FOR i = m TO 0 STEP -1
  60.         IF i MOD 2 = 0 THEN cc = HighColr ELSE cc = LowColr
  61.         x = Cx + dx * (m - i): y = Cy + dy * (m - i): r = dr * i
  62.         fcirc x, y, r, cc
  63.     NEXT
  65.  
  66. SUB fcirc (CX AS LONG, CY AS LONG, R AS LONG, C AS _UNSIGNED LONG)
  67.     DIM Radius AS LONG, RadiusError AS LONG
  68.     DIM X AS LONG, Y AS LONG
  69.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  70.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  71.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  72.     WHILE X > Y
  73.         RadiusError = RadiusError + Y * 2 + 1
  74.         IF RadiusError >= 0 THEN
  75.             IF X <> Y + 1 THEN
  76.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  77.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  78.             END IF
  79.             X = X - 1
  80.             RadiusError = RadiusError - X * 2
  81.         END IF
  82.         Y = Y + 1
  83.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  84.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  85.     WEND
  87.  
  88. SUB PLC (baseX, baseY, targetX, targetY, targetR) ' PLC for PlasmaLaserCannon
  89.     r = RND ^ 2 * RND: g = RND ^ 2 * RND: b = RND ^ 2 * RND: hp = _PI(.5) ' red, green, blue, half pi
  90.     ta = _ATAN2(targetY - baseY, targetX - baseX) ' angle of target to cannon base
  91.     dist = _HYPOT(targetY - baseY, targetX - baseX) ' distance cannon to target
  92.     dr = targetR / dist
  93.     FOR r = 0 TO dist STEP .25
  94.         x = baseX + r * COS(ta)
  95.         y = baseY + r * SIN(ta)
  96.         C = C + .3
  97.         fcirc x, y, dr * r, _RGB32(128 + 127 * SIN(r * C), 128 + 127 * SIN(g * C), 128 + 127 * SIN(b * C))
  98.     NEXT
  99.     FOR rr = dr * r TO 0 STEP -.5
  100.         C = C + 1
  101.         LowColr = _RGB32(128 + 127 * SIN(r * C), 128 + 127 * SIN(g * C), 128 + 127 * SIN(b * C))
  102.         fcirc x, y, rr, LowColr
  103.     NEXT
  104.     cAnalysis LowColr, rr, gg, bb, aa
  105.     HighColr = _RGB32(255 - rr, 255 - gg, 255 - bb)
  107.  
  108. SUB cAnalysis (c AS _UNSIGNED LONG, outRed, outGrn, outBlu, outAlp)
  109.     outRed = _RED32(c): outGrn = _GREEN32(c): outBlu = _BLUE32(c): outAlp = _ALPHA32(c)
  111.  
  112. SUB drawShip (x, y, colr AS _UNSIGNED LONG) 'shipType     collisions same as circle x, y radius = 30
  113.     STATIC ls
  114.     DIM light AS LONG, r AS LONG, g AS LONG, b AS LONG
  115.     r = _RED32(colr): g = _GREEN32(colr): b = _BLUE32(colr)
  116.     fellipse x, y, 6, 15, _RGB32(r, g - 120, b - 100)
  117.     fellipse x, y, 18, 11, _RGB32(r, g - 60, b - 50)
  118.     fellipse x, y, 30, 7, _RGB32(r, g, b)
  119.     FOR light = 0 TO 5
  120.         fcirc x - 30 + 11 * light + ls, y, 1, _RGB32(ls * 50, ls * 50, ls * 50)
  121.     NEXT
  122.     ls = ls + 1
  123.     IF ls > 5 THEN ls = 0
  125.  
  126. SUB fellipse (CX AS LONG, CY AS LONG, xr AS LONG, yr AS LONG, C AS _UNSIGNED LONG)
  127.     IF xr = 0 OR yr = 0 THEN EXIT SUB
  129.     DIM x AS LONG, y AS LONG
  130.     w2 = xr * xr: h2 = yr * yr: h2w2 = h2 * w2
  131.     LINE (CX - xr, CY)-(CX + xr, CY), C, BF
  132.     DO WHILE y < yr
  133.         y = y + 1
  134.         x = SQR((h2w2 - y * y * w2) \ h2)
  135.         LINE (CX - x, CY + y)-(CX + x, CY + y), C, BF
  136.         LINE (CX - x, CY - y)-(CX + x, CY - y), C, BF
  137.     LOOP
  139.  
  140. SUB RotoZoom (X AS LONG, Y AS LONG, Image AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
  141.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
  142.     W& = _WIDTH(Image&): H& = _HEIGHT(Image&)
  143.     px(0) = -W& / 2: py(0) = -H& / 2: px(1) = -W& / 2: py(1) = H& / 2
  144.     px(2) = W& / 2: py(2) = H& / 2: px(3) = W& / 2: py(3) = -H& / 2
  145.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
  146.     FOR i& = 0 TO 3
  147.         x2& = (px(i&) * cosr! + sinr! * py(i&)) * Scale + X: y2& = (py(i&) * cosr! - px(i&) * sinr!) * Scale + Y
  148.         px(i&) = x2&: py(i&) = y2&
  149.     NEXT
  150.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, H& - 1)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
  151.     _MAPTRIANGLE _SEAMLESS(0, 0)-(W& - 1, 0)-(W& - 1, H& - 1), Image& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
  153.  
  154.  

- Dav
« Last Edit: January 26, 2021, 08:20:04 am by Dav »
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Crop Circles
« Reply #12 on: January 26, 2021, 11:37:25 am »
As Steve's attorney, I have to warn you against stealing his intellectual property. You know, ROTATING CROPS.

Help! I'm in a flat spin.......

Pete :D
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/

Offline bplus

  • Global Moderator
  • Forum Resident
  • Posts: 8053
  • b = b + ...
    • View Profile
Re: Crop Circles
« Reply #13 on: January 26, 2021, 12:16:08 pm »
Ha! Dav now I know what the aliens saw just before they crashed in Roswell ;-))

Well I think the current crop circle design is getting old and we need to zap some new ones.

Some ideas:
https://www.google.com/search?q=crop+circles&client=opera&hs=Vr&sxsrf=ALeKk03o1a04wOu4VzeNoGFGFOaq87A6Xw:1611681406788&source=lnms&tbm=isch&sa=X&ved=2ahUKEwiIhPiNjbruAhUTBs0KHVIzBKAQ_AUoAXoECAgQAw&biw=1179&bih=606
« Last Edit: January 26, 2021, 12:18:06 pm by bplus »
Logged

Offline Pete

  • Forum Resident
  • Posts: 2361
  • Cuz I sez so, varmint!
    • View Profile
Re: Crop Circles
« Reply #14 on: January 26, 2021, 01:30:13 pm »
I have a comic I photoshopped to a site once regarding the Roswell incident.

It was a saucer, half embedded in the ground at a 45-degree angle, and around the hull of the saucer, I printed "Student Flyer"

Pete
Logged
Want to learn how to write code on cave walls? https://www.tapatalk.com/groups/qbasic/qbasic-f1/
Pages: [1] 2   Go Up
« previous next »