Random Curly Hair

[SierraKen]

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
39. NEXT l
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
48. RANDOMIZE TIMER
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
71. NEXT a
72. DO: LOOP UNTIL INKEY$ = " "
73. CLS
74. seconds = 0
75. GOTO start:
76.