Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on May 12, 2020, 11:22:16 pm

Title: Happy Face
Post by: SierraKen on May 12, 2020, 11:22:16 pm
I made another goofy app that might cheer some people up. It shows the, "Have A Nice Day" happy face and you can use the left mouse button to relocate it and also the mouse wheel to change its size. The changing of the size isn't perfect but it's as good as I can get it. Enjoy!

Code: QB64: [Select]
  1. _TITLE "Have A Nice Day! - Use mouse left button to relocate and wheel to change size."
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. x = 400
  4. y = 300
  5. s = 100
  6. e = 20
  7. m = 65
  8. _LIMIT 1000
  9. GOSUB face:
  11.     mouseWheel = 0
  13.         mouseX = _MOUSEX
  14.         mouseY = _MOUSEY
  15.         mouseLeftButton = _MOUSEBUTTON(1)
  16.         mouseRightButton = _MOUSEBUTTON(2)
  17.         mouseMiddleButton = _MOUSEBUTTON(3)
  18.         mouseWheel = mouseWheel + _MOUSEWHEEL
  19.         IF mouseWheel > 0 THEN
  20.             s = s + 5
  21.             e = e + 1
  22.             m = m + 3
  23.             IF s > 300 THEN s = 300
  24.             IF e > 60 THEN e = 60
  25.             IF m > 185 THEN m = 185
  26.             GOSUB face:
  27.         END IF
  28.         IF mouseWheel < 0 THEN
  29.             s = s - 5
  30.             e = e - 1
  31.             m = m - 3
  32.             IF s < 20 THEN s = 20
  33.             IF e < .5 THEN e = .5
  34.             IF m < 6 THEN m = 6
  35.             GOSUB face:
  36.         END IF
  37.  
  38.         IF mouseLeftButton = -1 THEN
  39.             x = mouseX
  40.             y = mouseY
  41.             GOSUB face:
  42.         END IF
  43.     LOOP
  44.     a$ = INKEY$
  45. LOOP WHILE a$ <> CHR$(27)
  47. face:
  49. PAINT (2, 2), _RGB32(0, 172, 255)
  50. 'head
  51. FOR sz = .25 TO s STEP .25
  52.     CIRCLE (x, y), sz, _RGB32(255, 255, 127)
  53. NEXT sz
  54. 'eyes
  55. FOR sz = .25 TO e STEP .25
  56.     CIRCLE (x - (s / 2), y - (s / 2)), sz, _RGB32(0, 0, 0), , , 1.5
  57. NEXT sz
  58. FOR sz = .25 TO e STEP .25
  59.     CIRCLE (x + (s / 2), y - (s / 2)), sz, _RGB32(0, 0, 0), , , 1.5
  60. NEXT sz
  61. 'mouth
  62. FOR sz = .25 TO 5 STEP .25
  63.     CIRCLE (x, y + sz), m, _RGB32(0, 0, 0), _PI, 2 * _PI
  64. NEXT sz
  65. mouseWheel = 0
  68.  
Title: Re: Happy Face
Post by: bplus on May 13, 2020, 10:35:17 am
Hi Ken, I wonder if you can change the smile with the mouse wheel?
Title: Re: Happy Face
Post by: SierraKen on May 13, 2020, 12:43:13 pm
Yes but it would require a lot of math and a lot of trial and error. You would have to change the circle aspect and also change the start and end radians for the Circle command to where you want the mouth to start and end at. Attached to this I'll add a radians circle chart so you just plug that in to the Circle command. It both has degrees and radians, the radians are the ones with Pi. You also would have to change the aspect number to make the mouth not part of a perfect circle. The aspect number is the very last number on the Circle command. Here is where you can put everything:
CIRCLE [STEP](column, row), radius%, [drawColor%][, startRadian!, stopRadian!] [, aspect!]
Title: Re: Happy Face
Post by: bplus on May 13, 2020, 03:57:15 pm
Code: QB64: [Select]
  1. _TITLE "So how do you like b's" 'B+ 2019-03-06
  2. '2020-05-13 add smile
  3.  
  4. CONST smile = 1 / 3 * _PI
  7.  
  8. COLOR , 3
  10. WHILE _KEYDOWN(27) = 0 'until esc keypress
  11.     CLS
  12.     drawFace
  14.         mw = mw + _MOUSEWHEEL
  15.         IF mw > 100 THEN mw = 100
  16.         IF mw < 5 THEN mw = 5
  17.     WEND
  18.     mx = _MOUSEX: my = _MOUSEY
  19.     angle = _ATAN2(my - 240, mx - 320)
  20.     FOR i = 1 TO 8
  21.         IF i MOD 2 THEN bc = 0 ELSE bc = 14
  22.         FillCircle mx + i * 3, my + i * 3, 5, bc
  23.     NEXT
  24.     FillCircle mx - 15 + 20, my + 10, 8, 7
  25.     FillCircle mx + 8 + 20, my + 5, 8, 7
  26.     x1 = 320 - 75 + 37 / 2 * COS(angle)
  27.     y1 = 240 + 37 / 2 * SIN(angle)
  28.     x2 = 320 + 75 + 37 / 2 * COS(angle)
  29.     FillCircle x1, y1, 37 / 2, 0
  30.     FillCircle x2, y1, 37 / 2, 0
  31.     _DISPLAY 'prevent flicker
  32.     _LIMIT 60 'save CPU fan
  34.  
  35. SUB drawFace
  36.     FillCircle 320, 240, 150, 14 '<<<<<<<<<<<<<<<<< works for qb color numbers as well as rgb
  37.     FillCircle 320 - 75, 240, 37, 9
  38.     FillCircle 320 + 75, 240, 37, 9
  39.     'FillCircle 320, 240 + 80, 20, 12
  40.     arc 320, 240, 110, _PI / 2 - smile * mw / 100, _PI / 2 + smile * mw / 100, 12
  42.  
  43. 'fill circle
  44. SUB FillCircle (CX AS INTEGER, CY AS INTEGER, R AS INTEGER, C AS _UNSIGNED LONG)
  45.     DIM Radius AS INTEGER, RadiusError AS INTEGER
  46.     DIM X AS INTEGER, Y AS INTEGER
  47.  
  48.     Radius = ABS(R)
  49.     RadiusError = -Radius
  50.     X = Radius
  51.     Y = 0
  52.  
  53.     IF Radius = 0 THEN PSET (CX, CY), C: EXIT SUB
  54.  
  55.     ' Draw the middle span here so we don't draw it twice in the main loop,
  56.     ' which would be a problem with blending turned on.
  57.     LINE (CX - X, CY)-(CX + X, CY), C, BF
  58.  
  59.     WHILE X > Y
  60.         RadiusError = RadiusError + Y * 2 + 1
  61.         IF RadiusError >= 0 THEN
  62.             IF X <> Y + 1 THEN
  63.                 LINE (CX - Y, CY - X)-(CX + Y, CY - X), C, BF
  64.                 LINE (CX - Y, CY + X)-(CX + Y, CY + X), C, BF
  65.             END IF
  66.             X = X - 1
  67.             RadiusError = RadiusError - X * 2
  68.         END IF
  69.         Y = Y + 1
  70.         LINE (CX - X, CY - Y)-(CX + X, CY - Y), C, BF
  71.         LINE (CX - X, CY + Y)-(CX + X, CY + Y), C, BF
  72.     WEND
  74.  
  75.  
  76. 'use radians
  77. SUB arc (x, y, r, raStart, raStop, c AS _UNSIGNED LONG)
  78.     DIM al, a
  79.     'x, y origin, r = radius, c = color
  80.  
  81.     'raStart is first angle clockwise from due East = 0 degrees
  82.     ' arc will start drawing there and clockwise until raStop angle reached
  83.  
  84.     IF raStop < raStart THEN
  85.         arc x, y, r, raStart, _PI(2), c
  86.         arc x, y, r, 0, raStop, c
  87.     ELSE
  88.         ' modified to easier way suggested by Steve
  89.         'Why was the line method not good? I forgot.
  90.         al = _PI * r * r * (raStop - raStart) / _PI(2)
  91.         FOR a = raStart TO raStop STEP 1 / al
  92.             CIRCLE (x + r * COS(a), y + r * SIN(a)), 3, c '<<< modify for smile
  93.         NEXT
  94.     END IF
  96.  
  97.  
  98.  

  [ This attachment cannot be displayed inline in 'Print Page' view ]  
Title: Re: Happy Face
Post by: SierraKen on May 13, 2020, 04:22:18 pm
LOL bplus, totally cool! Way beyond me in math! :)
Title: Re: Happy Face
Post by: Ashish on May 14, 2020, 01:13:25 am
Nice work SierraKen & Bplus. Why the face is not wearing mask? :D
Title: Re: Happy Face
Post by: bplus on May 14, 2020, 12:06:38 pm
Quote from: Ashish on May 14, 2020, 01:13:25 am
Nice work SierraKen & Bplus. Why the face is not wearing mask? :D

LOL that would save us all the math :)
Text Only | Text with Attachments