Happy Halloween!

[SierraKen]

Warning: It has some flashes so if you are sensitive to light flashing, don't use this.

Happy Halloween everyone!

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(800, 600, 32)
2. RANDOMIZE TIMER
3. _TITLE "Jack-O-Lantern From SierraKen"
4. 'Stand
5. FOR my = 350 TO 425 STEP .2
6.     CIRCLE (400, my), 200, _RGB32(109, 39, 2), _PI, 2 * _PI, .75
7. NEXT my
8. DO
9.     'Pumpkin
10.     CIRCLE (400, 300), 200, _RGB32(226, 90, 1), , , .85
11.     PAINT (400, 300), _RGB32(226, 90, 1)
12.     'Left Eye
13.     LINE (320, 200)-(270, 250), _RGB32(109, 39, 0)
14.     LINE (270, 250)-(370, 250), _RGB32(109, 39, 0)
15.     LINE (370, 250)-(320, 200), _RGB32(109, 39, 0)
16.     PAINT (340, 230), _RGB32(109, 39, 0)
17.     'Right Eye
18.     LINE (480, 200)-(430, 250), _RGB32(109, 39, 0)
19.     LINE (430, 250)-(530, 250), _RGB32(109, 39, 0)
20.     LINE (530, 250)-(480, 200), _RGB32(109, 39, 0)
21.     PAINT (500, 230), _RGB32(109, 39, 0)
22.     'Nose
23.     LINE (400, 275)-(350, 325), _RGB32(109, 39, 0)
24.     LINE (350, 325)-(450, 325), _RGB32(109, 39, 0)
25.     LINE (450, 325)-(400, 275), _RGB32(109, 39, 0)
26.     PAINT (420, 310), _RGB32(109, 39, 0)
27.     'Mouth
28.     FOR my = 325 TO 375 STEP .2
29.         CIRCLE (400, my), 100, _RGB32(109, 39, 0), _PI, 2 * _PI, .75
30.     NEXT my
31.     'Green Stem
32.     FOR sx = 355 TO 345 STEP -.2
33.         CIRCLE (sx, 130), 50, _RGB32(127, 194, 127), 2 * _PI, _PI / 2
34.     NEXT sx
35.     'Candle
36.     tim = INT(RND * 2000) + 1
37.     IF tim > 500 THEN
38.         FOR x = 1 TO 800
39.             FOR y = 1 TO 600
40.                 IF POINT(x, y) = _RGB32(109, 39, 0) THEN
41.                     PSET (x, y), _RGB32(233, 139, 127)
42.                 END IF
43.             NEXT y
44.         NEXT x
45.         _DELAY .1
46.     END IF
47.     _DISPLAY
48. LOOP
49.  

[Dav]

Well, that's pretty slick.  Happy pumpkin.  We always gave our jack-o-lanterns a good smile growing up.

- Dav

[SierraKen]

LOL awesome, thanks Dav. :)

[SierraKen]

I just remembered that I never put a _LIMIT command on this so I checked my CPU usage on it and it's only around 2% or so! Did the last QB64 update reduce CPU usage on programs without _LIMIT ? Because stuff like this used to use about 10x as much it seems. Or maybe it's because this program is so small, I don't know?

[bplus]

You have a _delay in there that should help save the fan.

Here's mine: https://www.qb64.org/forum/index.php?topic=3196.msg124669#msg124669

[SierraKen]

Ahh yes I forgot about the delay slowing the CPU down. Yours looks wild. lol.