« previous next »
Pages: [1]   Go Down

Author Topic: Simple Freebasic Sine Scroll.  (Read 3467 times)

0 Members and 1 Guest are viewing this topic.

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17427
  • Karma: 499
  • evil/good
    • View Profile
    • My Homepage
Simple Freebasic Sine Scroll.
« on: May 29, 2006 »
I got the inclination to code this after I watched Optimus's quick 4 hour demo.
This routine is very basic and is just a 1 pixels sine scroll.
Please feel free to use it if you want... It would probably look a lot nicer with a better font to be honest but Courier is the only binary font I've converted so far with all the characters :)

Code: [Select]

        #define dbfcls redim as integer buffer (800*600)         
        #Include Once "tinyptc.bi"
       
        If( ptc_open( "Sine Scroll By Shockwave.", 800, 600 ) = 0 ) Then
        End -1
        End If
   
        option dynamic
       
        Dim Shared As Integer Buffer( 800 * 600 )
        dim shared kk as string
        dim shared gadd,gadd2 as integer
 
        declare sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)
        dim shared FONT (63 * 95) as integer
        FOR LP=1 TO (63*95)
                READ FONT(LP)
        NEXT               
        DECLARE SUB MESSAGE()
        DIM SHARED SCPTR AS INTEGER:' Letter Pointer In Scroll String.
        DIM SHARED SCROFF AS DOUBLE:' Offset Used To Scroll Text       
        Dim Shared scrolltext as string:' Holds Text.
        '=======================================================================
        'Our Text;
        '=======================================================================
        scrolltext="                                                                 "
        scrolltext=scrolltext+"                                                           "
        scrolltext=scrolltext+"                                     "
        scrolltext=scrolltext+"**** A SINESCROLL IN FREEBASIC ****    COOL!    THIS IS USING TINYPTC       "
        scrolltext=scrolltext+" ---------------------- JUST HACKED TOGETHER SO THAT NEWBIES CAN USE AND ABUSE IT IN THEIR OWN STUFF! "
        scrolltext=scrolltext+" ----------------------- "
        scrolltext=scrolltext+" Feel free to use it...           Coded by Shockwave ^ DBF "
        scrolltext=scrolltext+"   Tata...  "
        scrolltext=scrolltext+"                                     "
        scrolltext=scrolltext+"                                                           "
        SCROFF=0
        SCPTR=0

    DO       
        gadd=gadd+1
        gadd2=gadd2+3
        '**************************************
        ' Remove comment to wait for vblank ***
        '**************************************
       
        wait &H3DA,8
        kk=inkey$
        message()
        Ptc_update @buffer(0)
        dbfcls
    LOOP until kk=chr$(27)
   
    Ptc_Close()
   
SUB MESSAGE()
    dim hop,ecl as integer
   
    HOP=0:' Used to jumpto next letter pos
   
   
    FOR LP=1 TO 101
       
       
        CH=(ASC(MID(SCROLlTEXT,LP+SCPTR,1)))-31:' Get Ascii for char
        '-----------------------------------------------------------------------
        ' Call DBF Custom Text Routine;
        '-----------------------------------------------------------------------
        DBFTEXT (HOP-scroff,296,CH,RGB(100,100,255))
        HOP=HOP+8
    NEXT
    '--------------------------------
    'Scroll And Update If Needed; ---
    '--------------------------------
    scroff=scroff+1
    if scroff> 8 then
        scptr=scptr+1
        if scptr>(len(scrolltext)-75) then scptr=0
        scroff=scroff-8
    end if
   
END SUB

       
sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)
dim blx,bly as integer
IF CH<0 OR CH>95 THEN CH=1
    '---------------------------------
    'Calculate Offset In Font Data;---
    '---------------------------------
    bm=(ch*63)-63
    FOR BLY=0 TO 8
    FOR BLX=1 TO 7
        snval=60*COS((BLX+BX+GADD)/100)
        snval2=60*COS((BLX+BX+GADD2)/73)
        '--------
        'Clip;---
        '--------
        IF (BX+BLX>0) AND (BX+BLX<=799) AND (BY+BLY+snval+snval2>0) AND (BY+BLY+snval+snval2<599) THEN
           
            '----------------------------------------------------
            'Draw Pixel In Buffer If Onscreen And If Binary 1 ---
            '----------------------------------------------------
           
            MM= FONT(((BLY*7)+BLX)+BM)
            IF MM >0 THEN BUFFER (((BY+BLY+snval+snval2)*800)+BX+BLX)=CLR
        END IF
    NEXT
    NEXT
END SUB
'==============================================================================
' Binary Font By Shockwave / DBF; (95 Chars)
'==============================================================================

'space
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'!
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
'"
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'#
data 0,0,0,1,0,1,0
data 0,0,0,1,0,1,0
data 0,1,1,1,1,1,1
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 1,1,1,1,1,1,0
data 0,1,0,1,0,0,0
data 0,1,0,1,0,0,0
'£
data 0,0,0,0,0,0,0
data 0,0,1,1,0,0,0
data 0,1,0,0,1,0,0
data 0,1,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,1,1,1,1

'%
data 0,1,0,0,0,0,0
data 1,0,1,0,0,0,1
data 0,1,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,1,0
data 1,0,0,0,1,0,1
data 0,0,0,0,0,1,0
'&
data 0,0,1,1,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,0,0,0,0
data 1,0,0,1,0,0,1
data 1,0,0,1,0,1,0
data 1,0,0,0,1,0,0
data 0,1,1,1,0,1,1
''
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'(
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,0,0

')
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0

'*
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,0,1,1,0
data 0,0,1,1,1,0,0
data 1,1,1,1,1,1,1
data 0,0,1,1,1,0,0
data 0,1,1,0,1,1,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'+
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 1,1,1,1,1,1,1
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
',
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,0
'-
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,1,1,1,1
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'.
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
'/
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,1
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,0
data 1,0,0,0,0,0,0
data 0,0,0,0,0,0,0

'0
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'1
data 0,0,0,1,0,0,0
data 0,1,1,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,1,1,1,0
'2
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,1,1,1,1,0
'3
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,1,1,0,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'4
data 0,0,0,0,1,0,0
data 0,0,0,1,1,0,0
data 0,0,0,1,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,1,0,0,1,0,0
data 0,1,1,1,1,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,1,1,0
'5
data 0,1,1,1,1,1,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'6
data 0,0,0,1,1,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'7
data 0,1,1,1,1,1,0
data 0,1,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
'8
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'9
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,1,1,0,0,0
':
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
';
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
'<
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,0
data 1,0,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
'=
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'>
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,0,1
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
'?
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,1,0,0,0
'@
data 0,0,1,1,1,1,0
data 0,1,0,0,0,0,1
data 1,0,0,1,1,0,1
data 1,0,1,0,1,0,1
data 1,0,1,0,1,0,1
data 1,0,1,0,1,0,1
data 1,0,0,1,1,1,0
data 0,1,0,0,0,0,0
data 0,0,1,1,1,0,0
'a
data 0,0,1,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,1,0,0,0,1,0
data 0,1,1,1,1,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1

'b
data 1,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 1,1,1,1,1,1,0
'c
data 0,0,1,1,1,1,0
data 0,1,0,0,0,0,1
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 0,1,0,0,0,0,1
data 0,0,1,1,1,1,0
'd
data 1,1,1,1,1,0,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,1,0
data 1,1,1,1,1,0,0
'e
data 1,1,1,1,1,1,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,0
data 0,1,0,0,1,0,0
data 0,1,1,1,1,0,0
data 0,1,0,0,1,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,1
data 1,1,1,1,1,1,1
'f
data 1,1,1,1,1,1,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,0
data 0,1,0,0,1,0,0
data 0,1,1,1,1,0,0
data 0,1,0,0,1,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 1,1,1,1,0,0,0
'g
data 0,0,1,1,1,1,0
data 0,1,0,0,0,0,1
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,1,1,1
data 1,0,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,0,1,1,1,1,0
'h
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,1,1,1,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'i
data 0,1,1,1,1,1,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,1,1,1,0
'j
data 0,0,0,0,1,1,1
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'k
data 1,1,1,0,0,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,1,0,0
data 0,1,0,0,1,0,0
data 0,1,0,1,0,0,0
data 0,1,1,1,0,0,0
data 0,1,0,0,1,0,0
data 0,1,0,0,0,1,0
data 1,1,1,0,0,1,1

'l
data 1,1,1,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,1
data 1,1,1,1,1,1,1
'm
data 1,1,0,0,0,1,1
data 0,1,0,0,0,1,0
data 0,1,1,0,1,1,0
data 0,1,1,0,1,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'n
data 1,1,0,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,1,0,0,1,0
data 0,1,1,0,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,0,1,1,0
data 0,1,0,0,1,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,0,1,0

'o
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0

'p
data 1,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,1,1,1,1,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 1,1,1,1,0,0,0

'q
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
data 0,0,1,1,0,1,1
'r
data 1,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,1,1,1,1,0
data 0,1,0,0,1,0,0
data 0,1,0,0,1,0,0
data 0,1,0,0,0,1,0
data 1,1,1,0,0,1,1
's
data 0,1,1,1,1,1,0
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 0,0,0,0,0,0,1
data 0,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 0,1,1,1,1,1,0
't
data 1,1,1,1,1,1,1
data 1,0,0,1,0,0,1
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,1,1,0,0
'u
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
'v
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
'w
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
'x
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'y
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,1,1,1,0,0
'z
data 1,1,1,1,1,1,1
data 1,0,0,0,0,1,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,0,1
data 1,1,1,1,1,1,1
'[
data 0,0,1,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,1,1,0,0
'\
data 0,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,0,1
data 0,0,0,0,0,0,0
']
data 0,0,1,1,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,1,1,1,0,0
'^
data 0,0,0,1,0,0,0
data 0,0,1,0,1,0,0
data 0,1,0,0,0,1,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'_
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,1,1,1,1
'`
data 0,0,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
'a
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,0,0,0,1,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 0,1,1,1,1,0,1
'b
data 1,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 1,1,1,1,1,1,0
'c
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,1
data 0,1,1,1,1,1,0
'd
data 0,0,0,0,1,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,0,1,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 0,1,1,1,1,1,1
'e
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,0,1
data 1,1,1,1,1,1,1
data 1,0,0,0,0,0,0
data 1,0,0,0,0,0,1
data 0,1,1,1,1,1,0
'f
data 0,0,0,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,1,1,0,0
'g
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,1
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 0,1,1,1,1,1,0
data 0,0,0,0,0,1,0
data 0,1,1,1,1,0,0
'h
data 1,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,1,1,0,0
data 0,1,1,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'i
data 0,0,0,1,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,1,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,1,1,1,0
'j
data 0,0,0,0,1,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,0,0,0,1,0,0
data 0,1,1,1,0,0,0
'k
data 1,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,0,0,0
data 0,1,0,0,1,1,0
data 0,1,0,0,1,0,0
data 0,1,0,1,0,0,0
data 0,1,1,1,0,0,0
data 0,1,0,0,1,0,0
data 1,1,0,0,0,1,1
'l
data 0,0,1,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,1,1,1,0
'm
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,0,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 1,1,0,1,0,1,1
'n
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,0,1,1,0,0
data 0,1,1,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'o
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 1,0,0,0,0,0,1
data 0,1,1,1,1,1,0
'p
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,1,1,1,0
data 0,1,0,0,0,0,1
data 0,1,0,0,0,0,1
data 0,1,1,1,1,1,0
data 0,1,0,0,0,0,0
data 1,1,1,0,0,0,0
'q
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,1
data 1,0,0,0,0,1,0
data 1,0,0,0,0,1,0
data 0,1,1,1,1,1,0
data 0,0,0,0,0,1,0
data 0,0,0,0,1,1,1
'r
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,1,0
data 0,0,1,1,0,0,1
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 1,1,1,1,1,0,0
's
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,1,1,1,1,1,0
data 1,0,0,0,0,0,1
data 0,1,1,1,0,0,0
data 0,0,0,0,1,1,0
data 1,0,0,0,0,0,1
data 0,1,1,1,1,1,0
't
data 0,0,0,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,1,1,1,1,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,0,0
data 0,0,1,0,0,1,0
data 0,0,0,1,1,0,0
'u
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,0,0,1,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,1,0,0,1,1,0
data 0,0,1,1,0,1,1
'v
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
data 0,0,0,1,0,0,0
'w
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,1,0,1,0
data 0,1,0,1,0,1,0
data 0,0,1,0,1,0,0
data 0,0,1,0,1,0,0
'x
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,0,1,1,1,0,0
data 0,0,1,1,1,0,0
data 0,1,0,0,0,1,0
data 1,1,1,0,1,1,1
'y
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,0,1,1,1
data 0,1,0,0,0,1,0
data 0,1,0,0,0,1,0
data 0,0,1,0,1,0,0
data 0,0,0,1,0,0,0
data 0,1,1,0,0,0,0
'z
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 1,1,1,1,1,1,0
data 1,0,0,0,1,0,0
data 0,0,0,1,0,0,0
data 0,0,1,0,0,0,0
data 0,1,0,0,0,1,0
data 1,1,1,1,1,1,0
'{
data 0,0,0,0,1,1,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,1,0
'|
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
'}
data 0,1,1,0,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,0,1,1,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,0,0,1,0,0,0
data 0,1,1,0,0,0,0
'~
data 0,0,0,0,0,0,0
data 0,1,1,0,0,0,1
data 1,0,0,1,0,0,1
data 1,0,0,0,1,1,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
data 0,0,0,0,0,0,0
Logged
Shockwave ^ Codigos
Challenge Trophies Won:

Offline Clyde

  • A Little Fuzzy Wuzzy
  • DBF Aficionado
  • ******
  • Posts: 7271
  • Karma: 71
    • View Profile
Re: Simple Freebasic Sine Scroll.
« Reply #1 on: May 31, 2006 »
Cool mate, and real handy source to learn from in any demo coders tool box! :)

Cheers and nice one,
Clyde.
Logged
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.
Challenge Trophies Won:

Offline Shockwave

  • good/evil
  • Founder Member
  • DBF Aficionado
  • ********
  • Posts: 17427
  • Karma: 499
  • evil/good
    • View Profile
    • My Homepage
Re: Simple Freebasic Sine Scroll.
« Reply #2 on: June 01, 2006 »
It really needs a better fornt to be honest Mate but I'm glad you like it :)
I'll have to make a new font soon. I don't think courier looks good in demos like this.
Logged
Shockwave ^ Codigos
Challenge Trophies Won:

Offline Clyde

  • A Little Fuzzy Wuzzy
  • DBF Aficionado
  • ******
  • Posts: 7271
  • Karma: 71
    • View Profile
Re: Simple Freebasic Sine Scroll.
« Reply #3 on: June 01, 2006 »
Courier is really only good when doing ASCII art, as its a fixed width font where most others are naff for spacing out.
The routine is still neat. Nice one.
Logged
Still Putting The IT Into Gravy
If Only I Knew Then What I Know Now.
Challenge Trophies Won:
Pages: [1]   Go Up
« previous next »