Streching Text Thingy - GameCreators Forum

developer forums

Code Snippets / Streching Text Thingy

Author

Message

Easily Confused

Years of Service

User Offline

Joined: 22nd Oct 2002

Location: U.K. Earth. (turn right at Venus)

Posted: 10th Dec 2002 02:36

Link

Another silly text snippet I was playing with, actualy I was experimenting with a couple of those mysterious 3D math commands.

+ Code Snippet

sync on : sync rate 60

txt$ = "Scretching text thingumajig with help from 2D vectors"

v = make vector2(0)
v = make vector2(1)
v = make vector2(2)

set vector2 2, bitmap width()/2, bitmap height()/2
spacing# = 2.0 / len(txt$)

repeat
  cls
  set vector2 1, mousex(), mousey()

  for i = 1 to len(txt$)
    linear interpolate vector2 0, 1, 2, i * spacing#
    text x vector2(0), y vector2(0), mid$(txt$,i)
  next i

  sync
until spacekey()

v = delete vector2(2)
v = delete vector2(1)
v = delete vector2(0)

end

"Earth is the cradle of humanity,
but one cannot live in a cradle forever"
Konstantin E. Tsiolkovsky (1911)

Profile PM

Server time is: 2024-04-16 22:15:21
Your offset time is: 2024-04-16 22:15:21

Sorry your browser is not supported!

Code Snippets / Streching Text Thingy