SIN / COS Multicoloured Text wheel

developer forums

Code Snippets / SIN / COS Multicoloured Text wheel

Author

Message

David T

Retired Moderator

Years of Service

User Offline

Joined: 27th Aug 2002

Location: England

Posted: 8th Oct 2002 22:29

Link

Here is a simple SIN snippet written in a few minutes. Written in DBP, should work in 1.x.

Basically, Sin & Cos will return a value that smoothly goes up & down when you feed it an increasing number.

Looks great.

+ Code Snippet

rem 2d text scroller using SIN by David Tattersall (David89)

rem define some variables
string$ = "DarkBASIC Professional! SIN wonders!"
chars = len(string$)

do

rem clear the screen
   cls

rem increment root variable
   inc i#,0.5

rem set our counter variable
   char = chars+1
rem the loop is set like this to allow spacing between the letters
   for d = 1 to (chars*10) step 10

rem find the next char in string
   dec char

rem grab this from the string
   char$ = mid$(string$,char)

rem set text colour
      ink rgb(char*10,i#,sin(i#)*100),0

rem write the text - heavy SIN & COS usage!
      text mousex()+(sin(i#+d)*(sin(i#)*300)),mousey()+(cos(i#+d)*(sin(i#)*300)),char$
   next d

rem sync
   sync

loop

I love Star Trek.
Especially the Episodes with Starships in.

Profile PM Email Website

Matto

Years of Service

User Offline

Joined: 27th Aug 2002

Location:

Posted: 8th Nov 2002 01:09

Link

thats really nice

1ghz Cel,512 sdram 133,Gf2 MX 400 64,SBL 5.1,Win98
Best Upcoming MMOG - http://WWW.Atriarch.com
Project: Card Game with No Name

Profile PM Email

Server time is: 2024-04-25 11:18:27
Your offset time is: 2024-04-25 11:18:27

Sorry your browser is not supported!

Code Snippets / SIN / COS Multicoloured Text wheel