Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on October 31, 2020, 04:47:20 pm

Title: Happy Halloween!
Post by: SierraKen on October 31, 2020, 04:47:20 pm
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)
  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
  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
  49.  
Title: Re: Happy Halloween!
Post by: Dav on October 31, 2020, 05:06:18 pm
Well, that's pretty slick.  Happy pumpkin.  We always gave our jack-o-lanterns a good smile growing up.

- Dav
Title: Re: Happy Halloween!
Post by: SierraKen on October 31, 2020, 05:07:27 pm
LOL awesome, thanks Dav. :)
Title: Re: Happy Halloween!
Post by: SierraKen on October 31, 2020, 05:10:55 pm
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?
Title: Re: Happy Halloween!
Post by: bplus on October 31, 2020, 05:49:23 pm
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
Title: Re: Happy Halloween!
Post by: SierraKen on October 31, 2020, 06:03:43 pm
Ahh yes I forgot about the delay slowing the CPU down. Yours looks wild. lol.
Text Only | Text with Attachments