Text Only | Text with Attachments

QB64.org Forum

Active Forums => Programs => Topic started by: SierraKen on August 02, 2020, 07:30:29 pm

Title: Random Curly Hair
Post by: SierraKen on August 02, 2020, 07:30:29 pm
This little app draws a cartoon figure and randomly makes random hair on his or her head. Press Space Bar to randomly make a different hair style. lol Sometimes it's "The New Wave", sometimes it's a giant fuzzy Afro, sometimes it's just a bunch of long curly hair. :) The amount it chooses from is over 6000 but most of them practically the same. The hair color stays the same but if you want to change it, go right ahead. Or anything else of course. You can tell right off that I was playing with math graphics again. :)

Code: QB64: [Select]
  1. _LIMIT 100
  2. SCREEN _NEWIMAGE(800, 600, 32)
  3. _TITLE "Press Space Bar for random curly hair."
  4. start:
  5. 'Head
  6. CIRCLE (410, 350), 130, _RGB32(249, 155, 127)
  7. PAINT (410, 350), _RGB32(249, 155, 127)
  8.  
  9. 'Left Eye
  10. 'white
  11. CIRCLE (360, 300), 22, _RGB32(255, 255, 255), , , .75
  12. PAINT (360, 300), _RGB32(255, 255, 255)
  13. 'blue
  14. FOR sz = 7 TO 12 STEP .25
  15.     CIRCLE (360, 300), sz, _RGB32(0, 177, 255), , , .75
  16. NEXT sz
  17. 'pupil
  18. PAINT (360, 300), _RGB32(0, 0, 0), _RGB32(0, 177, 255)
  19.  
  20. 'Right Eye
  21. 'white
  22. CIRCLE (460, 300), 22, _RGB32(255, 255, 255), , , .75
  23. PAINT (460, 300), _RGB32(255, 255, 255)
  24. 'blue
  25. FOR sz = 7 TO 12 STEP .25
  26.     CIRCLE (460, 300), sz, _RGB32(0, 177, 255), , , .75
  27. NEXT sz
  28. 'pupil
  29. PAINT (460, 300), _RGB32(0, 0, 0), _RGB32(0, 177, 255)
  30.  
  31. 'Nose
  32. FOR sz = .25 TO 22 STEP .25
  33.     CIRCLE (410, 345), sz, _RGB(230, 140, 100), , , 1.5
  34. NEXT sz
  35.  
  36. 'Mouth
  37. FOR l = .25 TO 10 STEP .25
  38.     CIRCLE (410, 360 + l), 80, _RGB32(255, 94, 127), _PI, 2 * _PI, .75
  40.  
  41. 'Neck
  42. LINE (360, 460)-(460, 520), _RGB32(249, 155, 127), BF
  43. 'Body
  44. CIRCLE (410, 800), 300, _RGB32(127, 255, 128)
  45. PAINT (410, 550), _RGB32(127, 255, 128)
  46.  
  47. 'Hair
  49. hair:
  50. h = RND(30) + 1
  51. h2 = -RND(1) / 5
  52. fuzzy = (RND * 300) + 100
  53. FOR a = 1 TO 400 STEP 20
  54.     _LIMIT 50
  55.     seconds = seconds + 1
  56.     sec = (60 - seconds) * 6 + 240
  57.     xx = INT(SIN(sec / 180 * 3.141592) * 180) + 400
  58.     yy = INT(COS(sec / 180 * 3.141592) * 180) + 300
  59.     s = sec
  60.     FOR d = 100 TO 0 STEP h2
  61.         'step was originally -.125
  62.         s = s + h
  63.         'h was originally Pi
  64.         x = COS(s * 3.141592 / fuzzy) * d
  65.         y = SIN(s * 3.151492 / fuzzy) * d
  66.         x2 = x + xx: y2 = y + yy
  67.         FOR sz = .25 TO 1 STEP .25
  68.             CIRCLE (x2 + 3, y2 + 50 + h - (h2 * 10)), sz, _RGB32(127, 127, 0)
  69.         NEXT sz
  70.     NEXT d
  74. seconds = 0
  75. GOTO start:
  76.  
Text Only | Text with Attachments