Rotating Spiral Words

[SierraKen]

This shows words written in a spiral and then it all rotates. I got the spiral code about a year ago somewhere online. It's the same code I used in my Fun With Math program last year. Tonight I finally decided to see if I could write words with it, so I came up with this little thing. Others have probably made it in the past, in fact it looks vaguely familiar from maybe last year, but I'm glad I figured it all out myself using the RotoZoom Sub. It will be hard to read, but maybe if you look at it long enough you can read it. If not, just look at the code on the words$ on the top line. This string can be changed to anything else as long as it's not too long. Feel free to mess around with it. :)

Code: QB64: [Select]

1. words$ = "ABCDEFGHIJKLMNOPQRSTUVQXYZ.....1234567890....HELLO..EVERYONE!...I HOPE YOU CAN READ THIS...I MADE THIS LITTLE PROGRAM IN ABOUT 1 HOUR USING QB64 PROGRAMMING LANGUAGE. TELL ME WHAT YOU THINK, THANKS!"
2. letters = LEN(words$)
3. DIM lett$(500)
4. DIM spiralwords AS LONG
5. spiral& = _NEWIMAGE(800, 600, 32)
6. SCREEN spiral&
7. FOR l = 1 TO letters
8.     lett$(l) = MID$(words$, l, 1)
9. NEXT l
10.  
11. FOR d = 300 TO 1 STEP -.125
12.     s = s + 1
13.     IF s / 4 + (s / 20) = INT(s / 4 + (s / 20)) THEN ll = ll + 1
14.     x = COS(s * -3.141592 / 180) * d
15.     y = SIN(s * -3.141592 / 180) * d
16.     IF s / 4 + (s / 20) <> INT(s / 4 + (s / 20)) THEN GOTO skip:
17.     IF lett$(ll) = "" THEN GOTO skip:
18.     _PRINTSTRING (x + 400, y + 300), lett$(ll)
19.     skip:
20.     _DELAY .001
21. NEXT d
22. spiralwords = _COPYIMAGE(0)
23.  
24. DO
25.     angle = angle + 1
26.     IF angle > 359 THEN angle = 0
27.     RotoZoom 400, 300, spiralwords, 1, angle
28.     _DELAY .05
29.     _DISPLAY
30.     CLS
31. LOOP UNTIL INKEY$ <> ""
32.  
33. SUB RotoZoom (X AS LONG, Y AS LONG, hdl AS LONG, Scale AS SINGLE, Rotation AS SINGLE)
34.     DIM px(3) AS SINGLE: DIM py(3) AS SINGLE
35.     W& = _WIDTH(hdl&): h& = _HEIGHT(hdl&)
36.     px(0) = -W& / 2: py(0) = -h& / 2: px(1) = -W& / 2: py(1) = h& / 2
37.     px(2) = W& / 2: py(2) = h& / 2: px(3) = W& / 2: py(3) = -h& / 2
38.     sinr! = SIN(-Rotation / 57.2957795131): cosr! = COS(-Rotation / 57.2957795131)
39.     FOR I& = 0 TO 3
40.         x2& = (px(I&) * cosr! + sinr! * py(I&)) * Scale + X: y2& = (py(I&) * cosr! - px(I&) * sinr!) * Scale + Y
41.         px(I&) = x2&: py(I&) = y2&
42.     NEXT
43.     _MAPTRIANGLE (0, 0)-(0, h& - 1)-(W& - 1, h& - 1), hdl& TO(px(0), py(0))-(px(1), py(1))-(px(2), py(2))
44.     _MAPTRIANGLE (0, 0)-(W& - 1, 0)-(W& - 1, h& - 1), hdl& TO(px(0), py(0))-(px(3), py(3))-(px(2), py(2))
45. END SUB
46.  

[bplus]

@SierraKen  It's cool seeing you progress and fun!

[SierraKen]

Thanks B+! I don't think I will ever break from programming in BASIC. :)

[johnno56]

This is SO cool... Trying to read and focus on the letters as they spiral inward was a challenge.. for me anyway... Can you imagine if George Lucas decided to apply this method to his Star Wars (my apologies for the crude language... I don't normally use the 'S..W..." words) movie intros? lol

Nicely done!!

[SierraKen]

LOLOL Thanks Johnno! :)))

[Bolee]

There was something on the Freebasic site to do with a ULAM Spiral. Maybe this could be applied to words like your program.

[bplus]

There was something on the Freebasic site to do with a ULAM Spiral. Maybe this could be applied to words like your program.

Ulam Spirals ugly as sin, try this one from Ashish Kingdom!

Code: QB64: [Select]

1. 'Coded By Ashish in QB64
2. _Title "IFS Spiral"
3.  
4. Screen _NewImage(800, 600, 32)
5.  
6. Randomize Timer
7. Dim Shared gx, gy
8. Color _RGBA(255, 255, 255, 10)
9. drawSpiral _Width * .75, _Height * .25, 1
10.  
11. For i = 0 To 100
12.     vx = gx
13.     vy = gy
14.     drawSpiral vx, vy, 1
15. Next
16.  
17.  
18. Sub drawSpiral (x!, y!, N~&)
19.     Select Case Rnd(1)
20.         Case 0 TO 0.05
21.             xx! = -0.121212 * x! + 0.257576 * y! - 6.721654
22.             yy! = 0.151515 * x! + 0.053030 * y! + 1.377236
23.         Case 0.05 TO 0.10
24.             xx! = 0.181818 * x! - 0.136364 * y! + 6.086107
25.             yy! = 0.090909 * x! + 0.181818 * y! + 1.568035
26.         Case Else
27.             xx! = 0.787879 * x! - 0.424242 * y! + 1.758647
28.             yy! = 0.242424 * x! + 0.859848 * y! + 1.408065
29.     End Select
30.     PSet (xx! * 60 + _Width * .5, yy! * 60)
31.     If N~& < 10000 Then
32.         drawSpiral xx!, yy!, N~& + 1
33.     Else
34.         gx = xx!
35.         gy = yy!
36.     End If
37. End Sub
38.  
39.  
40.  

BTW Sin used to mean the gap between living a healthy moral life and not with the threat of going to hell implied but not damned. So Ulams spiral is gapped.

[bplus]

Or how about rotating spiral polygon fills:

Code: QB64: [Select]

1. _Title "Polygon Demo by bplus"
2. ' polygon demo.bas for QB64 (B+=MGA) 2017-09-17
3. Const xmax = 700
4. Const ymax = 700
5.  
6. Screen _NewImage(xmax, ymax, 32)
7. _Delay .25
8. _ScreenMove _Middle
9.  
10. x0 = xmax / 2: y0 = ymax / 2
11. For n = 3 To 9
12.     radius = 345
13.     Cls
14.     rr = Rnd * 75: gg = Rnd * 75: bb = Rnd * 75
15.     For a = 0 To _Pi(2) Step _Pi(1 / 20)
16.         radius = radius - 8
17.         pc& = _RGB(radius / 345 * 200 + rr, radius / 345 * 200 + gg, radius / 345 * 200 + bb)
18.         Color pc&
19.         polygon x0, y0, radius, n, a
20.         Paint (x0, y0), pc&, pc&
21.         _Limit 10
22.     Next
23.     Sleep 2
24. Next
25.  
26. Sub polygon (xOrigin, yOrigin, radius, nVertex, RadianAngleOffset)
27.     polyAngle = _Pi(2) / nVertex
28.     x1 = xOrigin + radius * Cos(polyAngle + RadianAngleOffset)
29.     y1 = yOrigin + radius * Sin(polyAngle + RadianAngleOffset)
30.     For i = 2 To nVertex + 1
31.         x2 = xOrigin + radius * Cos(i * polyAngle + RadianAngleOffset)
32.         y2 = yOrigin + radius * Sin(i * polyAngle + RadianAngleOffset)
33.         Line (x1, y1)-(x2, y2)
34.         x1 = x2: y1 = y2
35.     Next
36. End Sub
37.  
38.  

Welcome to this Forum @Bolee

[Pete]

Yes, it does remind me of Star Wars... After watching the movie, the swirling effect mimics the water in the bowl, flushing the vomit into a  facility far far away.

Okay, cool effect, but if you really want to impress me, add highlighting with cut and paste!

Pete