Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: bplus on October 22, 2019, 03:38:20 pm

Title: Halloween Time
Post by: bplus on October 22, 2019, 03:38:20 pm
Yep! another clock ;-)) Plus show off Candy Corn color scheme for IDE:
Code: QB64: [Select]
  1. _TITLE "Halloween Time" 'B+ 2019-10-22
  2. CONST m = 350
  3. SCREEN _NEWIMAGE(700, 700, 32)
  4. _SCREENMOVE 500, 10
  5.  
  6. DIM SHARED sprt(15, 15)
  7. FOR y = 0 TO 15
  8.     FOR x = 0 TO 15
  9.         READ sprt(x, y)
  10.     NEXT
  12.  
  13. DIM SHARED sprt2(15, 15)
  14. FOR y = 0 TO 15
  15.     FOR x = 0 TO 15
  16.         READ sprt2(x, y)
  17.     NEXT
  19. DIM SHARED bx, by, bf
  20.  
  22.     CLS
  23.     'angles
  24.     hour% = INT(t# / 3600)
  25.     IF hour% > 12 THEN showHr# = t# / 3600 - 12 ELSE showHr# = t# / 3600
  26.     min# = t# / 60 - hour% * 60
  27.     sec# = t# - hour% * 3600 - INT(min#) * 60
  28.  
  29.     'face
  30.     FOR r = 340 TO 0 STEP -1
  31.         IF r < 150 THEN
  32.             c~& = _RGB32(200 - 50 * r / 100, 150 - 100 * r / 100, 0)
  33.         ELSE
  34.             c~& = _RGB32(200 - 50 * r / 100, 150 - 100 * r / 100, 40 - r / 340)
  35.         END IF
  36.         fcirc m, m, r, c~&
  37.     NEXT
  38.     FOR i = 0 TO 59
  39.         IF i MOD 5 = 0 THEN r = 1 ELSE r = 0
  40.         CIRCLE (350 + 330 * COS(i * _PI(2 / 60)), 350 + 330 * SIN(i * _PI(2 / 60))), r
  41.     NEXT
  42.     'some triangles
  43.     ry~& = _RGBA32(255, 255, 100, RND * 255)
  44.     ftri 290, 335, 305, 365, 335, 350, ry~&
  45.     ftri 410, 335, 395, 365, 365, 350, ry~&
  46.  
  47.     ftri 330, 380, 350, 360, 370, 380, ry~&
  48.  
  49.     ftri 290, 420, 350, 400, 350, 410, ry~&
  50.     ftri 410, 420, 350, 400, 350, 410, ry~&
  51.  
  52.     fcirc m, m, 150, ry~& 'orange glow
  53.  
  54.     'arms and legs
  55.     x = 75 * COS(showHr# * _PI(2 / 12) - _PI / 2)
  56.     y = 75 * SIN(showHr# * _PI(2 / 12) - _PI / 2)
  57.     LINE (m, m)-STEP(x, y), _RGB32(255, 255, 255, 50)
  58.     drawSpinner m + x, m + y, .5, _ATAN2(y, x), &HFF442200
  59.  
  60.     x = 120 * COS(min# * _PI(2 / 60) - _PI / 2)
  61.     y = 120 * SIN(min# * _PI(2 / 60) - _PI / 2)
  62.     LINE (m, m)-STEP(x, y), _RGB32(255, 255, 255, 50)
  63.     drawSpinner m + x, m + y, .3, _ATAN2(y, x), &HFF442211
  64.  
  65.     'seconds fly by...
  66.     bx = 350 + 290 * COS(sec# * _PI(2 / 60) - _PI / 2)
  67.     by = 350 + 290 * SIN(sec# * _PI(2 / 60) - _PI / 2)
  68.     drawb
  69.  
  70.  
  71.     _DISPLAY
  72.     _LIMIT 5 '<<<< works pretty good!
  73.     t# = TIMER
  75.  
  76. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  77. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  78. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  79. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. DATA 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
  84. DATA 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
  85. DATA 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  86. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
  87. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  88. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  90. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  91. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  92.  
  93. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  94. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  95. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  96. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  97. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  98. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  99. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  100. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  101. DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  102. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
  103. DATA 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
  104. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
  105. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
  106. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  107. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  108. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  109.  
  110. SUB drawb
  111.     bf = (bf + 1) MOD 5
  112.     sz = 3
  113.     IF bf = 0 THEN
  114.         FOR y = 0 TO 15
  115.             FOR x = 0 TO 15
  116.                 IF sprt2(x, y) THEN LINE (x * sz + bx - 7.5 * sz, .5 * y * sz + by - 7.5 * sz)-STEP(sz, sz), _RGB32(0, 0, 0), BF
  117.             NEXT
  118.         NEXT
  119.     ELSE
  120.         FOR y = 0 TO 15
  121.             FOR x = 0 TO 15
  122.                 IF sprt(x, y) THEN LINE (x * sz + bx - 7.5 * sz, y * sz + by - 7.5 * sz)-STEP(sz, sz), _RGB32(0, 0, 0), BF
  123.             NEXT
  124.         NEXT
  125.     END IF
  127.  
  128. SUB drawSpinner (x AS INTEGER, y AS INTEGER, scale AS SINGLE, heading AS SINGLE, c AS _UNSIGNED LONG)
  129.     DIM x1, x2, x3, x4, y1, y2, y3, y4, r, a, a1, a2, lg, d, rd, red, blue, green
  130.     STATIC switch AS INTEGER
  131.     switch = switch + 2
  132.     switch = switch MOD 16 + 1
  133.     red = _RED32(c): green = _GREEN32(c): blue = _BLUE32(c)
  134.     r = 10 * scale
  135.     x1 = x + r * COS(heading): y1 = y + r * SIN(heading)
  136.     r = 2 * r 'lg lengths
  137.     FOR lg = 1 TO 8
  138.         IF lg < 5 THEN
  139.             a = heading + .9 * lg * _PI(1 / 5) + (lg = switch) * _PI(1 / 10)
  140.         ELSE
  141.             a = heading - .9 * (lg - 4) * _PI(1 / 5) - (lg = switch) * _PI(1 / 10)
  142.         END IF
  143.         x2 = x1 + r * COS(a): y2 = y1 + r * SIN(a)
  144.         drawLink x1, y1, 3 * scale, x2, y2, 2 * scale, _RGB32(red + 20, green + 10, blue + 5)
  145.         IF lg = 1 OR lg = 2 OR lg = 7 OR lg = 8 THEN d = -1 ELSE d = 1
  146.         a1 = a + d * _PI(1 / 12)
  147.         x3 = x2 + r * 1.5 * COS(a1): y3 = y2 + r * 1.5 * SIN(a1)
  148.         drawLink x2, y2, 2 * scale, x3, y3, scale, _RGB32(red + 35, green + 17, blue + 8)
  149.         rd = INT(RND * 8) + 1
  150.         a2 = a1 + d * _PI(1 / 8) * rd / 8
  151.         x4 = x3 + r * 1.5 * COS(a2): y4 = y3 + r * 1.5 * SIN(a2)
  152.         drawLink x3, y3, scale, x4, y4, scale, _RGB32(red + 50, green + 25, blue + 12)
  153.     NEXT
  154.     r = r * .5
  155.     fcirc x1, y1, r, _RGB32(red - 20, green - 10, blue - 5)
  156.     x2 = x1 + (r + 1) * COS(heading - _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading - _PI(1 / 12))
  157.     fcirc x2, y2, r * .2, &HFF000000
  158.     x2 = x1 + (r + 1) * COS(heading + _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading + _PI(1 / 12))
  159.     fcirc x2, y2, r * .2, &HFF000000
  160.     r = r * 2
  161.     x1 = x + r * .9 * COS(heading + _PI): y1 = y + r * .9 * SIN(heading + _PI)
  162.     TiltedEllipseFill 0, x1, y1, r, .7 * r, heading + _PI, _RGB32(red, green, blue)
  164.  
  165. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
  166.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
  167.     a = _ATAN2(y2 - y1, x2 - x1)
  168.     a1 = a + _PI(1 / 2)
  169.     a2 = a - _PI(1 / 2)
  170.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
  171.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
  172.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
  173.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
  174.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
  175.     fcirc x1, y1, r1, c
  176.     fcirc x2, y2, r2, c
  178.  
  179. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
  180. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
  181.     ftri x1, y1, x2, y2, x4, y4, c
  182.     ftri x3, y3, x4, y4, x1, y1, c
  184.  
  185. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  186.     DIM a&
  187.     a& = _NEWIMAGE(1, 1, 32)
  188.     _DEST a&
  189.     PSET (0, 0), K
  190.     _DEST 0
  191.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  192.     _FREEIMAGE a& '<<< this is important!
  194.  
  195. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  196.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  197.     DIM X AS INTEGER, Y AS INTEGER
  198.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  199.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  200.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  201.     WHILE X > Y
  202.         RadiusError = RadiusError + Y * 2 + 1
  203.         IF RadiusError >= 0 THEN
  204.             IF X <> Y + 1 THEN
  205.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  206.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  207.             END IF
  208.             X = X - 1
  209.             RadiusError = RadiusError - X * 2
  210.         END IF
  211.         Y = Y + 1
  212.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  213.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  214.     WEND
  216.  
  217. SUB TiltedEllipseFill (destHandle&, x0, y0, a, b, ang, c AS _UNSIGNED LONG)
  218.     DIM max AS INTEGER, mx2 AS INTEGER, i AS INTEGER, j AS INTEGER, k AS SINGLE, lasti AS SINGLE, lastj AS SINGLE
  219.     DIM prc AS _UNSIGNED LONG, tef AS LONG
  220.     prc = _RGB32(255, 255, 255, 255)
  221.     IF a > b THEN max = a + 1 ELSE max = b + 1
  222.     mx2 = max + max
  223.     tef = _NEWIMAGE(mx2, mx2)
  224.     _DEST tef
  225.     _SOURCE tef 'point wont read without this!
  226.     FOR k = 0 TO 6.2832 + .05 STEP .1
  227.         i = max + a * COS(k) * COS(ang) + b * SIN(k) * SIN(ang)
  228.         j = max + a * COS(k) * SIN(ang) - b * SIN(k) * COS(ang)
  229.         IF k <> 0 THEN
  230.             LINE (lasti, lastj)-(i, j), prc
  231.         ELSE
  232.             PSET (i, j), prc
  233.         END IF
  234.         lasti = i: lastj = j
  235.     NEXT
  236.     DIM xleft(mx2) AS INTEGER, xright(mx2) AS INTEGER, x AS INTEGER, y AS INTEGER
  237.     FOR y = 0 TO mx2
  238.         x = 0
  239.         WHILE POINT(x, y) <> prc AND x < mx2
  240.             x = x + 1
  241.         WEND
  242.         xleft(y) = x
  243.         WHILE POINT(x, y) = prc AND x < mx2
  244.             x = x + 1
  245.         WEND
  246.         WHILE POINT(x, y) <> prc AND x < mx2
  247.             x = x + 1
  248.         WEND
  249.         IF x = mx2 THEN xright(y) = xleft(y) ELSE xright(y) = x
  250.     NEXT
  251.     _DEST destHandle&
  252.     FOR y = 0 TO mx2
  253.         IF xleft(y) <> mx2 THEN LINE (xleft(y) + x0 - max, y + y0 - max)-(xright(y) + x0 - max, y + y0 - max), c, BF
  254.     NEXT
  255.     _FREEIMAGE tef
  257.  
  258.  
Title: Re: Halloween Time
Post by: TempodiBasic on October 22, 2019, 03:51:04 pm
Yep Great,
I can run it as screensaver!
Title: Re: Halloween Time
Post by: johnno56 on October 22, 2019, 05:31:45 pm
Halloween is trying to take off here in Australia. I think the kids like it as a new source of sugar... I'm sure the merchandise trade likes it too... I not a fan... But I did like the clock!! Very cool... Oh... Can we pre-book clocks for Easter and Christmas? Hmm... Can we?

If you like Halloween then you may want to get hold of a 1963 recording, "Wes Harrison - You won't believe your ears."
He does vocal sound effects and has a brilliant track all about Halloween... Very funny! (... and no obscenities ...)

Don't forget. Looking forward to Xmas and Easter! Nudge, nudge, wink, wink. Say no more. (Don't you just love Monty Python?!)
Title: Re: Halloween Time
Post by: SierraKen on October 22, 2019, 09:56:30 pm
Woah that's very original looking! Great job! Works well too and good artistry.

I will be handing out candy for a few hours at the Museum this year like I try to do every year. I ordered me a Jedi Knight robe and a light saber. :) I think I will be Obi-wan-KEN-obi. :)

Title: Re: Halloween Time
Post by: Ashish on October 23, 2019, 10:25:18 am
Wow B+! It took me a minute to notice it is a clock. Creative!
Title: Re: Halloween Time
Post by: bplus on October 23, 2019, 01:01:53 pm
Thanks all! Johnno, I checked out Wes Harrison last night, very talented sound maker and comedian.

I removed the Blink'n Blinking for a calmer clock, and redid lines so outer one doesn't draw on top of inner Spider when they are close:
Code: QB64: [Select]
  1. _TITLE "Halloween Time" 'B+ 2019-10-22
  2. ' 2019-10-23 attempt to change transparency gradually to loose blinking
  3.  
  4. CONST m = 350
  5. SCREEN _NEWIMAGE(700, 700, 32)
  6. _SCREENMOVE 500, 10
  7.  
  8. DIM SHARED sprt(15, 15)
  9. FOR y = 0 TO 15
  10.     FOR x = 0 TO 15
  11.         READ sprt(x, y)
  12.     NEXT
  14.  
  15. DIM SHARED sprt2(15, 15)
  16. FOR y = 0 TO 15
  17.     FOR x = 0 TO 15
  18.         READ sprt2(x, y)
  19.     NEXT
  21. DIM SHARED bx, by, bf
  22. dt = 1
  24.     CLS
  25.  
  26.     'angles
  27.     hour% = INT(t# / 3600)
  28.     IF hour% > 12 THEN showHr# = t# / 3600 - 12 ELSE showHr# = t# / 3600
  29.     min# = t# / 60 - hour% * 60
  30.     sec# = t# - hour% * 3600 - INT(min#) * 60
  31.  
  32.     'face
  33.     FOR r = 340 TO 0 STEP -1
  34.         IF r < 150 THEN
  35.             c~& = _RGB32(200 - 50 * r / 100, 150 - 100 * r / 100, 0)
  36.         ELSE
  37.             c~& = _RGB32(200 - 50 * r / 100, 150 - 100 * r / 100, 40 - r / 340)
  38.         END IF
  39.         fcirc m, m, r, c~&
  40.     NEXT
  41.     FOR i = 0 TO 59
  42.         IF i MOD 5 = 0 THEN r = 1 ELSE r = 0
  43.         CIRCLE (350 + 330 * COS(i * _PI(2 / 60)), 350 + 330 * SIN(i * _PI(2 / 60))), r
  44.     NEXT
  45.     'some triangles
  46.     t = t + dt
  47.     IF t > 180 THEN dt = -dt: t = 180
  48.     IF t < 1 THEN dt = -dt: t = 1
  49.     ry~& = _RGBA32(255, 255, 100, t)
  50.     ftri 290, 335, 305, 365, 335, 350, ry~&
  51.     ftri 410, 335, 395, 365, 365, 350, ry~&
  52.     ftri 330, 380, 350, 360, 370, 380, ry~&
  53.     ftri 290, 420, 350, 400, 350, 410, ry~&
  54.     ftri 410, 420, 350, 400, 350, 410, ry~&
  55.     fcirc m, m, 150, ry~& 'more orange glow
  56.  
  57.     'arms and legs
  58.     x1 = 75 * COS(showHr# * _PI(2 / 12) - _PI / 2)
  59.     y1 = 75 * SIN(showHr# * _PI(2 / 12) - _PI / 2)
  60.     x2 = 120 * COS(min# * _PI(2 / 60) - _PI / 2)
  61.     y2 = 120 * SIN(min# * _PI(2 / 60) - _PI / 2)
  62.     LINE (m, m)-STEP(x1, y1), _RGB32(255, 255, 255, 50)
  63.     LINE (m, m)-STEP(x2, y2), _RGB32(255, 255, 255, 50)
  64.     drawSpinner m + x1, m + y1, .5, _ATAN2(y1, x1), &HFF442200
  65.     drawSpinner m + x2, m + y2, .3, _ATAN2(y2, x2), &HFF442211
  66.  
  67.     'seconds fly by...
  68.     bx = 350 + 290 * COS(sec# * _PI(2 / 60) - _PI / 2)
  69.     by = 350 + 290 * SIN(sec# * _PI(2 / 60) - _PI / 2)
  70.     drawb
  71.  
  72.     _DISPLAY
  73.     _LIMIT 5
  74.     t# = TIMER
  76.  
  77. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  78. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  79. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  80. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  81. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  82. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  83. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  84. DATA 0,0,1,1,0,0,0,0,0,0,0,1,1,0,0,0
  85. DATA 1,1,0,0,1,0,0,1,0,0,1,0,0,1,1,0
  86. DATA 0,0,0,0,0,1,1,1,1,1,0,0,0,0,0,0
  87. DATA 0,0,0,0,0,0,1,1,1,0,0,0,0,0,0,0
  88. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  89. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  90. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  91. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  92. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  93.  
  94. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  95. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  96. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  97. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  98. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  99. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  100. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  101. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  102. DATA 0,0,0,0,0,0,0,1,0,0,0,0,0,0,0,0
  103. DATA 0,0,0,0,0,1,1,1,1,1,1,0,0,0,0,0
  104. DATA 0,0,0,0,1,0,1,1,1,0,0,1,0,0,0,0
  105. DATA 0,0,0,1,0,0,0,0,0,0,0,0,1,0,0,0
  106. DATA 0,0,1,0,0,0,0,0,0,0,0,0,0,1,0,0
  107. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  108. DATA 0,1,0,0,0,0,0,0,0,0,0,0,0,0,1,0
  109. DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  110.  
  111. SUB drawb
  112.     bf = (bf + 1) MOD 5
  113.     sz = 3
  114.     IF bf = 0 THEN
  115.         FOR y = 0 TO 15
  116.             FOR x = 0 TO 15
  117.                 IF sprt2(x, y) THEN LINE (x * sz + bx - 7.5 * sz, .5 * y * sz + by - 7.5 * sz)-STEP(sz, sz), _RGB32(0, 0, 0), BF
  118.             NEXT
  119.         NEXT
  120.     ELSE
  121.         FOR y = 0 TO 15
  122.             FOR x = 0 TO 15
  123.                 IF sprt(x, y) THEN LINE (x * sz + bx - 7.5 * sz, y * sz + by - 7.5 * sz)-STEP(sz, sz), _RGB32(0, 0, 0), BF
  124.             NEXT
  125.         NEXT
  126.     END IF
  128.  
  129. SUB drawSpinner (x AS INTEGER, y AS INTEGER, scale AS SINGLE, heading AS SINGLE, c AS _UNSIGNED LONG)
  130.     DIM x1, x2, x3, x4, y1, y2, y3, y4, r, a, a1, a2, lg, d, rd, red, blue, green
  131.     STATIC switch AS INTEGER
  132.     switch = switch + 2
  133.     switch = switch MOD 16 + 1
  134.     red = _RED32(c): green = _GREEN32(c): blue = _BLUE32(c)
  135.     r = 10 * scale
  136.     x1 = x + r * COS(heading): y1 = y + r * SIN(heading)
  137.     r = 2 * r 'lg lengths
  138.     FOR lg = 1 TO 8
  139.         IF lg < 5 THEN
  140.             a = heading + .9 * lg * _PI(1 / 5) + (lg = switch) * _PI(1 / 10)
  141.         ELSE
  142.             a = heading - .9 * (lg - 4) * _PI(1 / 5) - (lg = switch) * _PI(1 / 10)
  143.         END IF
  144.         x2 = x1 + r * COS(a): y2 = y1 + r * SIN(a)
  145.         drawLink x1, y1, 3 * scale, x2, y2, 2 * scale, _RGB32(red + 20, green + 10, blue + 5)
  146.         IF lg = 1 OR lg = 2 OR lg = 7 OR lg = 8 THEN d = -1 ELSE d = 1
  147.         a1 = a + d * _PI(1 / 12)
  148.         x3 = x2 + r * 1.5 * COS(a1): y3 = y2 + r * 1.5 * SIN(a1)
  149.         drawLink x2, y2, 2 * scale, x3, y3, scale, _RGB32(red + 35, green + 17, blue + 8)
  150.         rd = INT(RND * 8) + 1
  151.         a2 = a1 + d * _PI(1 / 8) * rd / 8
  152.         x4 = x3 + r * 1.5 * COS(a2): y4 = y3 + r * 1.5 * SIN(a2)
  153.         drawLink x3, y3, scale, x4, y4, scale, _RGB32(red + 50, green + 25, blue + 12)
  154.     NEXT
  155.     r = r * .5
  156.     fcirc x1, y1, r, _RGB32(red - 20, green - 10, blue - 5)
  157.     x2 = x1 + (r + 1) * COS(heading - _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading - _PI(1 / 12))
  158.     fcirc x2, y2, r * .2, &HFF000000
  159.     x2 = x1 + (r + 1) * COS(heading + _PI(1 / 12)): y2 = y1 + (r + 1) * SIN(heading + _PI(1 / 12))
  160.     fcirc x2, y2, r * .2, &HFF000000
  161.     r = r * 2
  162.     x1 = x + r * .9 * COS(heading + _PI): y1 = y + r * .9 * SIN(heading + _PI)
  163.     TiltedEllipseFill 0, x1, y1, r, .7 * r, heading + _PI, _RGB32(red, green, blue)
  165.  
  166. SUB drawLink (x1, y1, r1, x2, y2, r2, c AS _UNSIGNED LONG)
  167.     DIM a, a1, a2, x3, x4, x5, x6, y3, y4, y5, y6
  168.     a = _ATAN2(y2 - y1, x2 - x1)
  169.     a1 = a + _PI(1 / 2)
  170.     a2 = a - _PI(1 / 2)
  171.     x3 = x1 + r1 * COS(a1): y3 = y1 + r1 * SIN(a1)
  172.     x4 = x1 + r1 * COS(a2): y4 = y1 + r1 * SIN(a2)
  173.     x5 = x2 + r2 * COS(a1): y5 = y2 + r2 * SIN(a1)
  174.     x6 = x2 + r2 * COS(a2): y6 = y2 + r2 * SIN(a2)
  175.     fquad x3, y3, x4, y4, x5, y5, x6, y6, c
  176.     fcirc x1, y1, r1, c
  177.     fcirc x2, y2, r2, c
  179.  
  180. 'need 4 non linear points (not all on 1 line) list them clockwise so x2, y2 is opposite of x4, y4
  181. SUB fquad (x1 AS INTEGER, y1 AS INTEGER, x2 AS INTEGER, y2 AS INTEGER, x3 AS INTEGER, y3 AS INTEGER, x4 AS INTEGER, y4 AS INTEGER, c AS _UNSIGNED LONG)
  182.     ftri x1, y1, x2, y2, x4, y4, c
  183.     ftri x3, y3, x4, y4, x1, y1, c
  185.  
  186. SUB ftri (x1, y1, x2, y2, x3, y3, K AS _UNSIGNED LONG)
  187.     DIM a&
  188.     a& = _NEWIMAGE(1, 1, 32)
  189.     _DEST a&
  190.     PSET (0, 0), K
  191.     _DEST 0
  192.     _MAPTRIANGLE _SEAMLESS(0, 0)-(0, 0)-(0, 0), a& TO(x1, y1)-(x2, y2)-(x3, y3)
  193.     _FREEIMAGE a& '<<< this is important!
  195.  
  196. SUB fcirc (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  197.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  198.     DIM X AS INTEGER, Y AS INTEGER
  199.     Radius = ABS(R): RadiusError = -Radius: X = Radius: Y = 0
  200.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  201.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  202.     WHILE X > Y
  203.         RadiusError = RadiusError + Y * 2 + 1
  204.         IF RadiusError >= 0 THEN
  205.             IF X <> Y + 1 THEN
  206.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  207.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  208.             END IF
  209.             X = X - 1
  210.             RadiusError = RadiusError - X * 2
  211.         END IF
  212.         Y = Y + 1
  213.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  214.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  215.     WEND
  217.  
  218. SUB TiltedEllipseFill (destHandle&, x0, y0, a, b, ang, c AS _UNSIGNED LONG)
  219.     DIM max AS INTEGER, mx2 AS INTEGER, i AS INTEGER, j AS INTEGER, k AS SINGLE, lasti AS SINGLE, lastj AS SINGLE
  220.     DIM prc AS _UNSIGNED LONG, tef AS LONG
  221.     prc = _RGB32(255, 255, 255, 255)
  222.     IF a > b THEN max = a + 1 ELSE max = b + 1
  223.     mx2 = max + max
  224.     tef = _NEWIMAGE(mx2, mx2)
  225.     _DEST tef
  226.     _SOURCE tef 'point wont read without this!
  227.     FOR k = 0 TO 6.2832 + .05 STEP .1
  228.         i = max + a * COS(k) * COS(ang) + b * SIN(k) * SIN(ang)
  229.         j = max + a * COS(k) * SIN(ang) - b * SIN(k) * COS(ang)
  230.         IF k <> 0 THEN
  231.             LINE (lasti, lastj)-(i, j), prc
  232.         ELSE
  233.             PSET (i, j), prc
  234.         END IF
  235.         lasti = i: lastj = j
  236.     NEXT
  237.     DIM xleft(mx2) AS INTEGER, xright(mx2) AS INTEGER, x AS INTEGER, y AS INTEGER
  238.     FOR y = 0 TO mx2
  239.         x = 0
  240.         WHILE POINT(x, y) <> prc AND x < mx2
  241.             x = x + 1
  242.         WEND
  243.         xleft(y) = x
  244.         WHILE POINT(x, y) = prc AND x < mx2
  245.             x = x + 1
  246.         WEND
  247.         WHILE POINT(x, y) <> prc AND x < mx2
  248.             x = x + 1
  249.         WEND
  250.         IF x = mx2 THEN xright(y) = xleft(y) ELSE xright(y) = x
  251.     NEXT
  252.     _DEST destHandle&
  253.     FOR y = 0 TO mx2
  254.         IF xleft(y) <> mx2 THEN LINE (xleft(y) + x0 - max, y + y0 - max)-(xright(y) + x0 - max, y + y0 - max), c, BF
  255.     NEXT
  256.     _FREEIMAGE tef
  258.  
  259.  

Update of Candy Corn Color Scheme too:
 
Title: Re: Halloween Time
Post by: johnno56 on October 23, 2019, 04:03:52 pm
I did not think it was possible. You have improved the program. Well done!!  Hmm... That did not sound right... "not" the "Well done", the other stuff...

Clarification: I did not think the "program" could be improved. I was "not" implying that it was not possible for "you" to improve the program...

(I hope I am making sense... I tend to 'ramble' when my levels of caffeine are extremely low....)
Title: Re: Halloween Time
Post by: TempodiBasic on October 26, 2019, 03:21:41 am
YES!
it is more wonderful than the first... the lighting was a little flashing, here who has bad eyes like me can appreciate more the clock!
It is so cute that I think it must have a soundtrack....
like one of these
https://www.youtube.com/watch?v=GHfI3GiChVk (https://www.youtube.com/watch?v=GHfI3GiChVk)
https://www.youtube.com/watch?v=YxOZuHemLXI (https://www.youtube.com/watch?v=YxOZuHemLXI)
https://www.youtube.com/watch?v=jzDoO52Rw6c (https://www.youtube.com/watch?v=jzDoO52Rw6c)

or if you prefer tiktock sound
https://www.youtube.com/watch?v=QvRl1SZzOwQ (https://www.youtube.com/watch?v=QvRl1SZzOwQ)
https://www.youtube.com/watch?v=uKwvTrKk9vE (https://www.youtube.com/watch?v=uKwvTrKk9vE)
https://www.youtube.com/watch?v=R3qu5nE-gGo (https://www.youtube.com/watch?v=R3qu5nE-gGo)
https://www.youtube.com/watch?v=WDCFdXFI_MU (https://www.youtube.com/watch?v=WDCFdXFI_MU)
Title: Re: Halloween Time
Post by: bplus on October 26, 2019, 10:20:58 am
Hey TempodiBasic,

:-)) yeah maybe chime the hour with that first one, "Hi I'm Chucky!" that's creepy...

Tic-toc is too boring maybe this?
Title: Re: Halloween Time
Post by: bplus on October 27, 2019, 08:28:13 pm
Quote
LOL Bplus that's really cool looking! Could be used in a haunted house or carnival. :)

How about for trick or treat?

Will need to download, Scary Demon Haunting, here: http://soundbible.com/1883-Scary-Demon-Haunting.html
Title: Re: Halloween Time
Post by: SierraKen on October 27, 2019, 11:05:01 pm
LOL I downloaded it and after 5 seconds I had to turn it off... too hardcore for me. :)
Title: Re: Halloween Time
Post by: bplus on October 28, 2019, 11:51:27 am
Quote from: SierraKen on October 27, 2019, 11:05:01 pm
LOL I downloaded it and after 5 seconds I had to turn it off... too hardcore for me. :)


Ha! well if that totally creeps you out then right!, don't download Hypno Eye. ;-))
Text Only | Text with Attachments