QB64.org Forum

Active Forums => Programs => Topic started by: FellippeHeitor on July 16, 2018, 08:12:03 pm

Title: Steering wheel
Post by: FellippeHeitor on July 16, 2018, 08:12:03 pm

I don't know what this will be used for (or if it will) but it's fun to run for now:

Code: QB64: [Select]

1. SCREEN _NEWIMAGE(600, 600, 32)
2.  
3. DO
4.     CLS
5.     PRINT a
6.     CircleFill _WIDTH / 2, _HEIGHT / 2, 250, _RGB32(map(a, -_PI, _PI, 0, 255), 0, map(a, -_PI, _PI, 255, 0))
7.     CircleFill _WIDTH / 2 + COS(a - (_D2R(90))) * 200, _HEIGHT / 2 + SIN(a - (_D2R(90))) * 200, 5, _RGB32(255, 255, 255)
8.  
9.     IF _KEYDOWN(19200) THEN 'left
10.         a = a - .1
11.     END IF
12.  
13.     IF _KEYDOWN(19712) THEN 'right
14.         a = a + .1
15.     END IF
16.  
17.     IF a > 0 THEN a = a - map(a, 0, _PI, .01, .1)
18.     IF a < 0 THEN a = a + map(a, 0, -_PI, .01, .1)
19.  
20.     _DISPLAY
21.     _LIMIT 60
22. LOOP
23.  
24. FUNCTION map! (value!, minRange!, maxRange!, newMinRange!, newMaxRange!)
25.     map! = ((value! - minRange!) / (maxRange! - minRange!)) * (newMaxRange! - newMinRange!) + newMinRange!
26. END FUNCTION
27.  
28. SUB CircleFill (x AS LONG, y AS LONG, R AS LONG, C AS _UNSIGNED LONG)
29.     x0 = R
30.     y0 = 0
31.     e = 0
32.     DO WHILE y0 < x0
33.         IF e <= 0 THEN
34.             y0 = y0 + 1
35.             LINE (x - x0, y + y0)-(x + x0, y + y0), C, BF
36.             LINE (x - x0, y - y0)-(x + x0, y - y0), C, BF
37.             e = e + 2 * y0
38.         ELSE
39.             LINE (x - y0, y - x0)-(x + y0, y - x0), C, BF
40.             LINE (x - y0, y + x0)-(x + y0, y + x0), C, BF
41.             x0 = x0 - 1
42.             e = e - 2 * x0
43.         END IF
44.     LOOP
45.     LINE (x - R, y)-(x + R, y), C, BF
46. END SUB

Title: Re: Steering wheel
Post by: bplus on July 17, 2018, 12:00:25 am

Interesting, like it's spring loaded and self righting.

Text Only | Text with Attachments