Code Snippets->Orbiting Text Thingy
E
Easily Confused Joined: 22nd Oct 2002
Location: U.K. Earth. (turn right at Venus)
Posted: 8th Dec 2002 7:42
Just a silly snippet I was playing with.

+ Code Snippet
sync on : sync rate 60

txt$ = "A silly little orbiting text thingumajig  "
ang# = 0.0

repeat
  cls
  OrbitText(txt$,mousex(),mousey(),60,ang#)
  ang# = wrapvalue(ang# + 0.5)

  sync
until spacekey()

end

function OrbitText(txt$,cx#,cy#,radius#,ang#)
  spacing# = 360.0/len(txt$)

  for i = 1 to len(txt$)
    x# = newxvalue(cx#,ang#,radius#)
    y# = newzvalue(cy#,ang#,radius#)
    text x#,y#,mid$(txt$,i)
    ang# = ang# - spacing#
  next i
endfunction
E
Epidemicz Joined: 23rd Nov 2002
Location:
Posted: 8th Dec 2002 20:41
ow that messes with my dyslexia, but cool
S
Steverino Joined: 27th Aug 2002
Location: United States
Posted: 8th Dec 2002 21:45
Great effect with very little code!
J
jotomicron Joined: 17th Nov 2002
Location: Portugal
Posted: 9th Dec 2002 0:24
I try it! But I saw nothing! Just black and a cursor!

Why is that??
E
Easily Confused Joined: 22nd Oct 2002
Location: U.K. Earth. (turn right at Venus)
Posted: 9th Dec 2002 0:44
This snippet was written in DBPro with patch 3.1, that could be the reason, if your version is different.

Otherwise it should work fine in DBPro.
D
David T Joined: 27th Aug 2002
Location: England
Posted: 14th Dec 2002 15:37
That looks surprisingly familiar to a snippet I wrote a while ago with obiting text. Well done.
E
Easily Confused Joined: 22nd Oct 2002
Location: U.K. Earth. (turn right at Venus)
Posted: 14th Dec 2002 18:05
So it's true! Great minds DO think alike