Author Topic: Amiga Simulator! (Read 14619 times)

Shockwave · « **on:** September 10, 2006 »

I thought that the topic title would get your attention, in fact, what this is is a program that uses Jim Shaws excellent screen synch in conjuntion with a program that would port over to tinyptc with no modifications to create the archietypal amiga sine intro!! This is the sort of program that up until now was really difficult to write using gfx lib or tinyptc because the screen synch didn't work properly.

Now we have this.. Feast your eyes on a copper med res sine scroll with a paralax starfield and absolutely no glitches.
Exe attached for people without freebasic.

Code: [Select]

' SILKY SMOOTH PTC STYLE SINE SCROLLER BY SHOCKWAVE ^ DBF ^ SURPRISE ! PRODUCTIONS
' USING GL VBL SYNCH CODE BY JIM SHAW TAKEN FROM THE DBF / GRAVITY FORUMS.
' WWW.DBFINTERACTIVE.COM
'
'-------------------------------------------------------------------------------

'       INCLUDES;
'
        #include once "windows.bi"
        #include once "gl/gl.bi"
        #include once "gl/glext.bi"
        #include once "fbgfx.bi"

        option explicit
        option static
        
        CONST XRES = 640
        CONST YRES = 480
'
'       JIM SHAWS FUNCTION DEFS;
'

declare function ptc_open(byval title as zstring ptr, byval width as integer, byval height as integer ) as integer
declare function ptc_update(byval buff as integer ptr) as integer
declare function ptc_close() as integer
declare sub ptc_setflip(byval interval as integer)





       dim shared FONT (81 * 59) as integer       
       declare sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)
       DIM LP AS INTEGER
        
'-----------------------------------------------------------------
'Read In Our Font;
'-----------------------------------------------------------------

        FOR LP=1 TO (81*59)
                READ FONT(LP)
        NEXT

'
'
'
        dim shared buffer(XRES*YRES) as uinteger
        dim x as integer
        ptc_open("hello",XRES,YRES)

DIM SHARED MP AS INTEGER 
DIM SHARED SCOFF AS INTEGER
DIM SHARED SCROLLYFUN AS STRING
SCROLLYFUN="                                      USE ALT+ENTER TO TOGGLE WINDOWED MODE AND ESCAPE TO QUIT! "
SCROLLYFUN=SCROLLYFUN+" ----------- YOU COULD BE FORGIVEN FOR THINKING YOU'D SWITCHED YOUR AMIGA ON BY MISTAKE!!    "
SCROLLYFUN=SCROLLYFUN+"THIS PROGRAM IS NOT MEANT TO BE MIND BLOWING, BUT WHAT YOU SHOULD LOOK AT IS THE PERFECT "
SCROLLYFUN=SCROLLYFUN+"AND BEAUTIFUL VBL SYNCH...  THIS PROGRAM ACTUALLY WORKS EXACTLY LIKE A PROGRAM THAT USES TINYPTC, IN FACT IT WOULD "
SCROLLYFUN=SCROLLYFUN+"PORT STRAIGHT OVER TO IT, HOWEVER THE VBL SYNCH IS USING OPENGL TO GET THIS PERFECTLY SMOOTH REFRESH.. THANK YOU JIM SHAW!!   "
SCROLLYFUN=SCROLLYFUN+"THIS IS JUST ONE OF THE COOL TECHNIQUES THAT ARE BEING DEVELOPED AT WWW.DBFINTERACTIVE.COM    USE THIS SOURCE FREELY BUT CREDIT WHAT YOU TAKE..  "
SCROLLYFUN=SCROLLYFUN+"SHOCKWAVE OF DBF AND SURPRISE ! PRODUCTIONS 2006.........."
SCROLLYFUN=SCROLLYFUN+"                                 "
MP=0
SCOFF=0
DECLARE SUB SCROLLER()
DECLARE SUB GRADIENT_LINES()
DECLARE SUB GENERATE_COPPERS()
DIM SHARED SINEADD AS INTEGER
DIM SHARED SINEADD2 AS INTEGER
DIM SHARED COPPERLIST (YRES) AS UINTEGER

DIM SHARED STARNUM AS INTEGER :'NUMBER OF STARS ON EACH LAYER THERE ARE 4 LAYERS.

STARNUM=60

DIM SHARED STARX(STARNUM*4)
DIM SHARED STARY(STARNUM*4)

DECLARE SUB GENERATE_STARS()
DECLARE SUB DRAW_STARS()

GENERATE_COPPERS()
GENERATE_STARS()
do
    
    GRADIENT_LINES()
    DRAW_STARS()
    SCROLLER()
    
    ptc_update(@buffer(0))
    
    
ERASE BUFFER
loop until inkey$ = CHR$(27)
ptc_close()

end

SUB DRAW_STARS()
    DIM A
    FOR A=1 TO STARNUM
        IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H2222CC
        STARX(A)=STARX(A)+1
        IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRES                

    NEXT
    FOR A=STARNUM+1 TO STARNUM*2
        IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H4444DD
        STARX(A)=STARX(A)+2
        IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRES                

    NEXT
    FOR A=(STARNUM*2)+1 TO STARNUM*3
        IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H7777EE
        STARX(A)=STARX(A)+3
        IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRES                

    NEXT
    FOR A=(STARNUM*3)+1 TO STARNUM*4
        IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&HAAAAFF
        STARX(A)=STARX(A)+4
        IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRES                
    NEXT


END SUB

SUB GENERATE_STARS()
DIM A
FOR A=1 TO STARNUM*4
    STARX(A)= RND*(XRES)
    STARY(A)= (50+(RND*(YRES-101)))*XRES

NEXT

END SUB

SUB GENERATE_COPPERS()
    DIM A
    FOR A=0 TO YRES-1
        COPPERLIST(A) = RGB( 120+119*SIN(A/123),120+119*SIN(A/73),120+119*SIN(A/53))
    NEXT
END SUB

SUB GRADIENT_LINES()
DIM AS INTEGER FX1,FX2,TY,BY,CLR
TY=50*XRES
BY=(YRES-50)*XRES
FX2=XRES-1
FOR FX1=0 TO XRES-1
    CLR=RGB(100+99*SIN((SINEADD2+FX1) / 132),100+99*SIN((SINEADD2+FX1) / 143),100+99*SIN((SINEADD2+FX1) / 144))
    BUFFER(FX1+TY)=CLR
    BUFFER(FX2+BY)=CLR
    FX2=FX2-1
NEXT
END SUB

SUB SCROLLER()
    SINEADD=SINEADD+1
    SINEADD2=SINEADD2+10
    DIM LL,CC
    FOR LL=1 TO 33
        CC=ASC(MID(SCROLLYFUN,LL+MP,1))-31
        DBFTEXT ((LL*20)-SCOFF,180,CC,&H00000000)
    NEXT
    SCOFF=SCOFF+3
    IF SCOFF>=40 THEN
        SCOFF=SCOFF-20
        MP=MP+1
        IF MP>LEN(SCROLLYFUN)-33 THEN MP=0
    END IF
END SUB

'-------------------------------------------------------------------------
'Sub To Draw A Letter AnyWhere On The Screen (With Clipping);
'-------------------------------------------------------------------------
sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)
dim AS INTEGER blx,bly,bm,mm,TXP,TYP,CLR2 
DIM SV AS INTEGER
    '---------------------------------
    'Calculate Offset In Font Data;---
    '--------------------------------- 
    bm=(ch*81)-81    
    TYP = 0
    FOR BLY=0 TO 8  
        
    TXP=0
    
    FOR BLX=1 TO 9
        SV=70+69*SIN((SINEADD+BX+TXP)/73)+59*COS((SINEADD-(BX+TXP))/43)

        '--------
        'Clip;---
        '--------
        IF (BX+TXP>1) AND (BX+TXP<XRES-1) AND (BY+TYP>1) AND (BY+TYP<YRES-1) THEN
            
            '----------------------------------------------------
            'Draw Pixel In Buffer If Onscreen And If Binary 1 ---
            '----------------------------------------------------
            
            MM= FONT(((BLY*9)+BLX)+BM)
            IF MM >0 THEN 
                

                BUFFER (((BY+TYP+SV)*XRES)+BX+TXP)=COPPERLIST(BY+TYP+SV)
                BUFFER (((BY+TYP+SV)*XRES)+BX+TXP+1)=COPPERLIST(BY+TYP+SV)
                BUFFER (((BY+TYP+1+SV)*XRES)+BX+TXP+1)=COPPERLIST(BY+TYP+SV+1)
                BUFFER (((BY+TYP+1+SV)*XRES)+BX+TXP)=COPPERLIST(BY+TYP+SV+1)


            END IF
         END IF
        TXP=TXP+2
    NEXT
        TYP=TYP+2
    NEXT
END SUB


'===============================================================================
'
'                          JIM SHAW'S SCREEN STUFF BELOW;
'
'===============================================================================

dim shared g_w as integer
dim shared g_h as integer

type PFNWGLSWAPINTERVALFARPROC as sub(byval interval as integer)
dim shared wglSwapIntervalEXT as PFNWGLSWAPINTERVALFARPROC

function ptc_open(byval title as zstring ptr, byval w as integer, byval h as integer) as integer
screenres w,h,32,0,3
    wglSwapIntervalEXT = cast(PFNWGLSWAPINTERVALFARPROC,wglGetProcAddress("wglSwapIntervalEXT"))
    ptc_setflip(1)
    glViewport(0, 0, w,h)
    glMatrixMode(GL_PROJECTION)
    glLoadIdentity()
    glOrtho(0,w,h,0,0,1)
    glPixelZoom(1,-1)
    glRasterPos2i(0,0)
    g_w=w
    g_h=h
return 0
end function

function ptc_update(byval buff as integer ptr) as integer
    glDrawPixels(g_w,g_h,GL_BGRA_EXT,GL_UNSIGNED_BYTE,buff)
    
    flip
return 0
end function

function ptc_close() as integer
return 0
end function

sub ptc_setflip(byval interval as integer)
    if wglSwapIntervalExt <> 0 then
        wglSwapIntervalEXT(interval)
    endif
end sub

'==============================================================================
' Binary Font By Shockwave / DBF; (59 Chars)
'==============================================================================

'space
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'!
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'"
data 0,1,1,0,1,1,0,0,0
data 0,1,1,0,1,1,0,0,0
data 0,1,1,0,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'#
data 0,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,1,1,0
data 0,0,0,0,0,0,0,0,0
'Â£
data 0,0,1,1,1,1,0,0,0
data 0,1,1,1,1,1,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
'%
data 0,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,1,0,0
data 0,0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,1,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,0,0,0,0,0,0
'&
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,1,1,0,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,0,1,1,0,0
data 0,1,1,0,0,1,1,1,1
data 0,1,1,1,0,0,1,1,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,1,1,0,0,0
''
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'(
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,0,1,1,1,0
')
data 0,1,1,1,0,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
'*
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,1,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'+
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
''
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
'-
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'.
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
'/
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'0
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,1,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,1,1,0,0,1,1
data 1,1,1,1,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'1
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,0,0
'2
data 0,0,1,1,1,1,1,1,0
data 0,0,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
'3
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
'4
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,1,1,0,0,0
data 1,1,0,0,1,1,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
'5
data 0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'6
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,0
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'7
data 0,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
'8
data 0,0,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,0,1,1,1,1,1,0,0
data 1,1,1,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'9
data 0,0,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,0,1,1
data 0,1,1,0,0,0,0,1,1
data 0,0,1,1,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
':
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
';
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
'<
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,0,0,0,0,0
'=
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'>
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'?
data 0,0,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,1,1,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'@
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0,0
data 0,1,0,0,1,1,1,0,0
data 0,1,0,1,0,0,0,1,0
data 0,1,0,1,1,1,0,1,0
data 0,1,0,0,0,0,0,1,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
'a
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'b
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'c
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'd
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'e
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'f
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
'g
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,1,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'h
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'i
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
'j
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'k
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'l
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'm
data 0,1,1,1,0,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'n
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1

'o
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'p
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
'q
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,1,0,1,1
data 1,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'r
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
's
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
't
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'u
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'v
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,0,0,1,1,1
data 0,1,1,1,1,1,1,1,0
data 0,0,1,1,1,1,1,0,0
'w
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,0,1,1,1,0
'x
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,0,0,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'y
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'z
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,1,1,1
data 0,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1

DrewPee · « **Reply #1 on:** September 10, 2006 »

Shockwave - I am not worthy - that is soo amazing - Lots and lots of respect for this one! AND thanks for the code! AGAIN!

Drew

ninogenio · « **Reply #2 on:** September 10, 2006 »

thats really cool shockwave fluid and fast with no tearing lovely

Shockwave · « **Reply #3 on:** September 10, 2006 »

Thanks both, but really this would never look authentic and Amiga like without using Jim's synch code.

ninogenio · « **Reply #4 on:** September 10, 2006 »

yeah thats true,

me and jim origonally came up with the sync code for a 3d gl game im making but i would never have thought of yousing it like this very handy indeed.

Shockwave · « **Reply #5 on:** September 10, 2006 »

I hope you post your game here when it's done Nino!

ninogenio · « **Reply #6 on:** September 10, 2006 »

of course mate

psygate · « **Reply #7 on:** September 10, 2006 »

MAHAN! That looks extremely good!

If I see such a demo, my mouth gets full of water, my eyes are getting bigger and I feel like going insane!

Very good work man!

Clyde · « **Reply #8 on:** September 10, 2006 »

Cool Shockie!

That's lookiing like it's sure gonna cure some of my taring headaches; especially the problems I had with Bitmap Scrollers.

Nice one,
Clyde.

Rbz · « **Reply #9 on:** September 10, 2006 »

Very cool and smooth ShockieÂ

Here's your example using the new tinyptc OGL framework.

Exe size: 40 kbytes

Code: [Select]

'---------------------------------------------------------------------------------
'Â  Â Tinyptc OGL by Jim
'
'Â  Â Window Framework by Rbraz
'
'Â  Â 10 Sept 2006
'---------------------------------------------------------------------------------

'---------------------------------------------------------------------------------
' SILKY SMOOTH PTC STYLE SINE SCROLLER BY SHOCKWAVE ^ DBF ^ SURPRISE ! PRODUCTIONS
' USING GL VBL SYNCH CODE BY JIM SHAW TAKEN FROM THE DBF / GRAVITY FORUMS.
' WWW.DBFINTERACTIVE.COM
'
'---------------------------------------------------------------------------------


#include once "windows.bi"
#include once "gl/gl.bi"
#include once "gl/glext.bi"
#include once "crt.bi" 

option explicit
option static

'Screen width x height
Const screenWidthÂ  = 640
Const screenHeight = 480
'Application name
Const AppicationName = "SILKY SMOOTH PTC STYLE SINE SCROLLER SHOCKWAVE^DBF^S!P"

'---------------------------------------------------------------------------------------------------------------
'Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â Shockwave code
'---------------------------------------------------------------------------------------------------------------
Â  Â  Â  Â dim shared FONT (81 * 59) as integerÂ  Â  Â  Â 
Â  Â  Â  Â declare sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)Â  Â  Â  Â 

Â  Â  Â  Â  CONST XRES = screenWidth
Â  Â  Â  Â  CONST YRES = screenHeight
Â  Â  Â  Â  
DIM SHARED MP AS INTEGER 
DIM SHARED SCOFF AS INTEGER
DIM SHARED SCROLLYFUN AS STRING
SCROLLYFUN="Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  "
SCROLLYFUN=SCROLLYFUN+" ----------- YOU COULD BE FORGIVEN FOR THINKING YOU'D SWITCHED YOUR AMIGA ON BY MISTAKE!!Â  Â  "
SCROLLYFUN=SCROLLYFUN+"THIS PROGRAM IS NOT MEANT TO BE MIND BLOWING, BUT WHAT YOU SHOULD LOOK AT IS THE PERFECT "
SCROLLYFUN=SCROLLYFUN+"AND BEAUTIFUL VBL SYNCH...Â  THIS PROGRAM ACTUALLY WORKS EXACTLY LIKE A PROGRAM THAT USES TINYPTC, IN FACT IT WOULD "
SCROLLYFUN=SCROLLYFUN+"PORT STRAIGHT OVER TO IT, HOWEVER THE VBL SYNCH IS USING OPENGL TO GET THIS PERFECTLY SMOOTH REFRESH.. THANK YOU JIM SHAW!!Â  Â "
SCROLLYFUN=SCROLLYFUN+"THIS IS JUST ONE OF THE COOL TECHNIQUES THAT ARE BEING DEVELOPED AT WWW.DBFINTERACTIVE.COMÂ  Â  USE THIS SOURCE FREELY BUT CREDIT WHAT YOU TAKE..Â  "
SCROLLYFUN=SCROLLYFUN+"SHOCKWAVE OF DBF AND SURPRISE ! PRODUCTIONS 2006.........."
SCROLLYFUN=SCROLLYFUN+"Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â "
MP=0
SCOFF=0
DECLARE SUB SCROLLER()
DECLARE SUB GRADIENT_LINES()
DECLARE SUB GENERATE_COPPERS()
DIM SHARED SINEADD AS INTEGER
DIM SHARED SINEADD2 AS INTEGER
DIM SHARED COPPERLIST (YRES) AS UINTEGER

DIM SHARED STARNUM AS INTEGER :'NUMBER OF STARS ON EACH LAYER THERE ARE 4 LAYERS.

STARNUM=60

DIM SHARED STARX(STARNUM*4)
DIM SHARED STARY(STARNUM*4)

DECLARE SUB GENERATE_STARS()
DECLARE SUB DRAW_STARS()
'---------------------------------------------------------------------------------------------------------------





'DEVMODE bug, found the cure here --> http://www.freebasic.net/forum/viewtopic.php?t=5659&highlight=devmode
'Will be corrected by Victor in the next freebasic update
#undef DEVMODE
Type DEVMODE
Â  Â  dmDeviceName As Zstring * CCHDEVICENAME
Â  Â  dmSpecVersion As WORD
Â  Â  dmDriverVersion As WORD
Â  Â  dmSize As WORD
Â  Â  dmDriverExtra As WORD
Â  Â  dmFields As DWORD
Â  Â  dmOrientation As Short
Â  Â  dmPaperSize As Short
Â  Â  dmPaperLength As Short
Â  Â  dmPaperWidth As Short
Â  Â  dmScale As Short
Â  Â  dmCopies As Short
Â  Â  dmDefaultSource As Short
Â  Â  dmPrintQuality As Short
Â  Â  dmColor As Short
Â  Â  dmDuplex As Short
Â  Â  dmYResolution As Short
Â  Â  dmTTOption As Short
Â  Â  dmCollate As Short
Â  Â  dmFormName As Zstring * CCHFORMNAME
Â  Â  dmLogPixels As WORD
Â  Â  dmBitsPerPel As DWORD
Â  Â  dmPelsWidth As DWORD
Â  Â  dmPelsHeight As DWORD
Â  Â  dmDisplayFlags As DWORD
Â  Â  dmDisplayFrequency As DWORD
Â  Â  dmICMMethod As DWORD
Â  Â  dmICMIntent As DWORD
Â  Â  dmMediaType As DWORD
Â  Â  dmDitherType As DWORD
Â  Â  dmReserved1 As DWORD
Â  Â  dmReserved2 As DWORD
Â  Â  dmPanningWidth As DWORD
Â  Â  dmPanningHeight As DWORD
End Type


declare function WinMain ( byval hInstance as HINSTANCE, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval hPrevInstance as HINSTANCE, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â szCmdLine as string, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval iCmdShow as integer ) as integer
Â  Â  '
Â  Â  ' Entry pointÂ  Â  
Â  Â  '
	end WinMain( GetModuleHandle( null ), null, Command$, SW_NORMAL )
declare sub ChangeScreenResolution (byval wwidth as integer, byval hheight as integer, byval bitsPerPixel as integer)
declare function ptc_open(byval width as integer, byval height as integer ) as integer
declare function ptc_update(byval buff as integer ptr) as integer
declare function ptc_close() as integer
declare sub ptc_setflip(byval interval as integer)
declare sub Main()
declare sub Init()

dim shared buffer(screenWidth*screenHeight) as uinteger
dim shared g_w as integer
dim shared g_h as integer

'Global window device context
dim shared hDC as HDC

type PFNWGLSWAPINTERVALFARPROC as sub(byval interval as integer)
dim shared wglSwapIntervalEXT as PFNWGLSWAPINTERVALFARPROC

'' ::::::::
'' name: WndProc
'' desc: Processes windows messages
''
'' ::::::::
function WndProc ( byval hWnd as HWND, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval message as UINT, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval wParam as WPARAM, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval lParam as LPARAM ) as LRESULT
Â  Â  
Â  Â  function = 0
Â  Â  
Â  Â  ''
Â  Â  '' Process messages
Â  Â  ''
Â  Â  select case( message )
Â  Â  Â  Â  ''
Â  Â  Â  Â  '' Window was created
Â  Â  Â  Â  ''Â  Â  Â  Â  
Â  Â  Â  Â  case WM_CREATE
Â  Â  Â  Â  Â  Â  exit function
Â  Â  Â  Â  
Â  Â  Â  Â  ''
Â  Â  Â  Â  '' Windows is being repainted
Â  Â  Â  Â  ''
Â  Â  Â  Â  case WM_PAINT 
Â  Â  Â  Â  Â  Â  exit functionÂ  Â  Â  Â  Â  Â  
Â  Â  Â  Â  
		''
		'' Key pressed
		''
		case WM_KEYDOWN
			if( lobyte( wParam ) = 27 ) then
				PostMessage( hWnd, WM_CLOSE, 0, 0 )
			end if

Â  Â  Â  Â  ''
Â  Â  Â  Â  '' Window was closed
Â  Â  Â  Â  ''
Â  Â  	case WM_DESTROY
Â  Â  Â  Â  Â  Â  PostQuitMessage( 0 )
Â  Â  Â  Â  Â  Â  exit function
Â  Â  end select
Â  Â  
Â  Â  ''
Â  Â  '' Message doesn't concern us, send it to the default handler
Â  Â  '' and get result
Â  Â  ''
Â  Â  function = DefWindowProc( hWnd, message, wParam, lParam )Â  Â  
Â  Â  
end function

'' ::::::::
'' name: WinMain
'' desc: A win2 gui program entry point
''
'' ::::::::
function WinMain ( byval hInstance as HINSTANCE, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval hPrevInstance as HINSTANCE, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â szCmdLine as string, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â byval iCmdShow as integer ) as integerÂ  Â  
Â  Â  Â 
Â  Â  dim wMsg as MSG
Â  Â  dim wcls as WNDCLASSÂ  Â  Â 
Â  Â  dim hWnd as HWND
Â  Â  dim windowStyle as DWORD
Â  Â  dim windowExtendedStyle as DWORD
Â  Â  dim windowRect as RECT
Â  Â  dimÂ  pfd as PIXELFORMATDESCRIPTOR
Â  Â  Â 
Â  Â  function = 0
Â  Â  
	'Window size
Â  Â  windowRect.leftÂ  Â = 0
Â  Â  windowRect.topÂ  Â  = 0 
Â  Â  windowRect.rightÂ  = screenWidth
Â  Â  windowRect.bottom = screenHeight
Â  Â  Â  
Â  Â  ''
Â  Â  '' Setup window class
Â  Â  ''
Â  Â  with wcls
Â  Â  	.styleÂ  Â  Â  Â  Â = CS_HREDRAW or CS_VREDRAW or CS_OWNDC
Â  Â  	.lpfnWndProcÂ  Â = @WndProc
Â  Â  	.cbClsExtraÂ  Â  = 0
Â  Â  	.cbWndExtraÂ  Â  = 0
Â  Â  	.hInstanceÂ  Â  Â = hInstance
Â  Â  	.hIconÂ  Â  Â  Â  Â = LoadIcon( NULL, IDI_APPLICATION )
Â  Â  	.hCursorÂ  Â  Â  Â = LoadCursor( NULL, IDC_ARROW )
Â  Â  	.hbrBackground = GetStockObject( WHITE_BRUSH )
Â  Â  	.lpszMenuNameÂ  = NULL
Â  Â  	.lpszClassName = strptr( AppicationName )
Â  Â  end with
Â  Â  Â  Â  Â  
Â  Â  ''
Â  Â  '' Register the window classÂ  Â  Â 
Â  Â  ''Â  Â  Â 
Â  Â  if( RegisterClass( @wcls ) = FALSE ) then
Â  Â  Â  Â MessageBox( NULL, "Failed to register window class!", AppicationName, MB_ICONERROR )
Â  Â  Â  Â exit function
Â  Â  end if
Â  Â  
	' Ask The User Which Screen Mode They Prefer
	if (MessageBox(NULL,"Fullscreen Mode ?", AppicationName,MB_YESNO or MB_ICONQUESTION)=IDNO) then
Â  Â 
Â  Â  Â  Â  'Windowed style
Â  Â  Â  Â  windowStyle =Â  WS_BORDER or WS_CAPTION or WS_SYSMENU or WS_POPUP or WS_MINIMIZEBOX
Â  Â  Â  Â  windowExtendedStyle = WS_EX_APPWINDOWÂ  
Â  Â  Â  Â  'Adjust Window, Account For Window Borders
Â  Â  Â  Â  AdjustWindowRectEx (@windowRect, windowStyle, 0, windowExtendedStyle)
Â  Â  Â  Â  
Â  Â  else
Â  Â  Â  Â  ShowCursor(false)
Â  Â  Â  Â  ChangeScreenResolution (screenWidth, screenHeight, 32)
Â  Â  Â  Â  windowStyle = WS_POPUP or WS_VISIBLE
Â  Â  Â  Â  windowExtendedStyle = WS_EX_TOPMOST
Â  Â  end if
Â  Â  
	''AppicationName
Â  Â  '' Create the window and show it
Â  Â  ''
	'Create our Window
	hWnd =Â  Â CreateWindowEx(windowExtendedStyle, _
							 AppicationName, _
		Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â AppicationName, _
							 windowStyle, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â 0, 0, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â windowRect.right - windowRect.left, _
					Â  Â  Â  Â  Â windowRect.bottom - windowRect.top, _
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â HWND_DESKTOP, 0, _ 
							 hInstance, 0)
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â 
Â  Â  'Get window device context
	hDC = GetDC(hWnd)
 
Â  Â 	'Set pixel format
Â  Â  pfd.cColorBits = pfd.cDepthBits = 32
Â  Â  pfd.dwFlagsÂ  Â  = PFD_SUPPORT_OPENGL or PFD_DOUBLEBUFFER
Â  Â  SetPixelFormat ( hDC, ChoosePixelFormat ( hDC, @pfd) , @pfd )
Â  Â  wglMakeCurrent ( hDC, wglCreateContext(hDC) )
Â  Â  
Â  Â  'Get actual screen resolution and center screen
Â  Â  dim as integer iSw, iSh
Â  Â  iSw = (GetSystemMetrics(SM_CXSCREEN)-screenWidth) / 2
Â  Â  iSh = (GetSystemMetrics(SM_CYSCREEN)-screenHeight) / 2
Â  Â  MoveWindow(hWnd, iSw, iSh, screenWidth, screenHeight, TRUE)
Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  
Â  Â  'Show window/update
Â  Â  ShowWindow( hWnd, iCmdShow )
Â  Â  UpdateWindow( hWnd )
Â  Â  
Â  Â  ' Initialyze tinyptc opengl
Â  Â  ptc_open(screenWidth,screenHeight)
Â  Â  
Â  Â  'Initialyze demo/intro
Â  Â  Init()
Â  Â  
Â  Â  ''
Â  Â  '' Process windows messages
Â  Â  ''
Â  Â  while( GetMessage( @wMsg, NULL, 0, 0 ) <> FALSE )Â  Â  
Â  Â  Â  Â  TranslateMessage( @wMsg )
Â  Â  Â  Â  DispatchMessage( @wMsg )
Â  Â  Â  Â  
Â  Â  Â  Â  'Run main function
Â  Â  Â  Â  Main()
Â  Â  Â  Â  
Â  Â  wend
Â  Â  
Â  Â  ' Switch Back To Desktop Resolution
Â  Â  ChangeDisplaySettings (NULL,0)
Â  Â  
Â  Â  ' Ends a process and all its threads. 
Â  Â  ExitProcess(0)
Â  Â  
Â  Â  ''
Â  Â  '' Program has ended
Â  Â  ''
Â  Â  function = wMsg.wParam

end function

'Change The Screen Resolution
sub ChangeScreenResolution (byval wwidth as integer, byval hheight as integer, byval bitsPerPixel as integer)
	dim dmScreenSettings as DEVMODE
	ZeroMemory(@dmScreenSettings, sizeof (DEVMODE))
	dmScreenSettings.dmSize				= sizeof(DEVMODE)
	dmScreenSettings.dmPelsWidth		= wwidth
	dmScreenSettings.dmPelsHeight		= hheight
	dmScreenSettings.dmBitsPerPel		= bitsPerPixel
	dmScreenSettings.dmFields			= DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT

Â  Â  if (ChangeDisplaySettings (@dmScreenSettings, CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL) then
Â  Â  Â  Â  MessageBox(NULL,"Change Display Error", AppicationName,MB_OK or MB_ICONEXCLAMATION)
		end -1
	end if
Â  Â  
end sub

function ptc_open(byval w as integer, byval h as integer) as integer
Â  Â  wglSwapIntervalEXT = cast(PFNWGLSWAPINTERVALFARPROC,wglGetProcAddress("wglSwapIntervalEXT"))
Â  Â  ptc_setflip(1)
Â  Â  glViewport(0, 0, w,h)
Â  Â  glMatrixMode(GL_PROJECTION)
Â  Â  glLoadIdentity()
Â  Â  glOrtho(0,w,h,0,0,1)
Â  Â  glPixelZoom(1,-1)
Â  Â  glRasterPos2i(0,0)
Â  Â  g_w=w
Â  Â  g_h=h
	return 0
end function

function ptc_update(byval buff as integer ptr) as integer
Â  Â  glDrawPixels(g_w,g_h,GL_BGRA_EXT,GL_UNSIGNED_BYTE,buff)
Â  Â  SwapBuffers ( hDc )
	return 0
end function

function ptc_close() as integer
	return 0
end function

sub ptc_setflip(byval interval as integer)
Â  Â  if wglSwapIntervalExt <> 0 then
Â  Â  Â  Â  wglSwapIntervalEXT(interval)
Â  Â  endif
end sub



'-------------------------------------------------------------
'Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Initialyze
'-------------------------------------------------------------
sub Init()
'-----------------------------------------------------------------
'Read In Our Font;
'-----------------------------------------------------------------
DIM LP AS INTEGER

Â  Â  Â  Â  FOR LP=1 TO (81*59)
Â  Â  Â  Â  Â  Â  Â  Â  READ FONT(LP)
Â  Â  Â  Â  NEXT
Â  Â  Â  Â  
Â  Â  Â  Â  GENERATE_COPPERS()
Â  Â  Â  Â  GENERATE_STARS()
Â  Â  Â  Â  
end sub

'-------------------------------------------------------------
'Â  Â  Â  Â  Â  Â  Â  Â Main Code
'-------------------------------------------------------------
sub Main()

Â  Â  GRADIENT_LINES()
Â  Â  DRAW_STARS()
Â  Â  SCROLLER()
Â  Â  
Â  Â  ptc_update(@buffer(0))
Â  Â  
Â  Â  
ERASE BUFFER
end sub


Â  Â  Â  Â 
'---------------------------------------------------------------------------------------------------------------
'Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â  Â Shockwave code
'---------------------------------------------------------------------------------------------------------------
SUB DRAW_STARS()
Â  Â  DIM A
Â  Â  FOR A=1 TO STARNUM
Â  Â  Â  Â  IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H2222CC
Â  Â  Â  Â  STARX(A)=STARX(A)+1
Â  Â  Â  Â  IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRESÂ  Â  Â  Â  Â  Â  Â  Â  

Â  Â  NEXT
Â  Â  FOR A=STARNUM+1 TO STARNUM*2
Â  Â  Â  Â  IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H4444DD
Â  Â  Â  Â  STARX(A)=STARX(A)+2
Â  Â  Â  Â  IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRESÂ  Â  Â  Â  Â  Â  Â  Â  

Â  Â  NEXT
Â  Â  FOR A=(STARNUM*2)+1 TO STARNUM*3
Â  Â  Â  Â  IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&H7777EE
Â  Â  Â  Â  STARX(A)=STARX(A)+3
Â  Â  Â  Â  IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRESÂ  Â  Â  Â  Â  Â  Â  Â  

Â  Â  NEXT
Â  Â  FOR A=(STARNUM*3)+1 TO STARNUM*4
Â  Â  Â  Â  IF STARX(A)<XRES AND STARX(A)>0 THEN BUFFER(STARX(A)+(STARY(A)))=&HAAAAFF
Â  Â  Â  Â  STARX(A)=STARX(A)+4
Â  Â  Â  Â  IF STARX(A)>XRES THEN STARX(A)=STARX(A)-XRESÂ  Â  Â  Â  Â  Â  Â  Â  
Â  Â  NEXT


END SUB

SUB GENERATE_STARS()
DIM A
FOR A=1 TO STARNUM*4
Â  Â  STARX(A)= RND*(XRES)
Â  Â  STARY(A)= (50+(RND*(YRES-101)))*XRES

NEXT

END SUB

SUB GENERATE_COPPERS()
Â  Â  DIM A
Â  Â  FOR A=0 TO YRES-1
Â  Â  Â  Â  COPPERLIST(A) = RGB( 120+119*SIN(A/123),120+119*SIN(A/73),120+119*SIN(A/53))
Â  Â  NEXT
END SUB

SUB GRADIENT_LINES()
DIM AS INTEGER FX1,FX2,TY,BY,CLR
TY=50*XRES
BY=(YRES-50)*XRES
FX2=XRES-1
FOR FX1=0 TO XRES-1
Â  Â  CLR=RGB(100+99*SIN((SINEADD2+FX1) / 132),100+99*SIN((SINEADD2+FX1) / 143),100+99*SIN((SINEADD2+FX1) / 144))
Â  Â  BUFFER(FX1+TY)=CLR
Â  Â  BUFFER(FX2+BY)=CLR
Â  Â  FX2=FX2-1
NEXT
END SUB

SUB SCROLLER()
Â  Â  SINEADD=SINEADD+1
Â  Â  SINEADD2=SINEADD2+10
Â  Â  DIM LL,CC
Â  Â  FOR LL=1 TO 33
Â  Â  Â  Â  CC=ASC(MID(SCROLLYFUN,LL+MP,1))-31
Â  Â  Â  Â  DBFTEXT ((LL*20)-SCOFF,180,CC,&H00000000)
Â  Â  NEXT
Â  Â  SCOFF=SCOFF+3
Â  Â  IF SCOFF>=40 THEN
Â  Â  Â  Â  SCOFF=SCOFF-20
Â  Â  Â  Â  MP=MP+1
Â  Â  Â  Â  IF MP>LEN(SCROLLYFUN)-33 THEN MP=0
Â  Â  END IF
END SUB

'-------------------------------------------------------------------------
'Sub To Draw A Letter AnyWhere On The Screen (With Clipping);
'-------------------------------------------------------------------------
sub DBFTEXT(BYVAL BX AS INTEGER , BYVAL BY AS INTEGER , BYVAL CH AS INTEGER , BYVAL CLR AS INTEGER)
dim AS INTEGER blx,bly,bm,mm,TXP,TYP,CLR2 
DIM SV AS INTEGER
Â  Â  '---------------------------------
Â  Â  'Calculate Offset In Font Data;---
Â  Â  '--------------------------------- 
Â  Â  bm=(ch*81)-81Â  Â  
Â  Â  TYP = 0
Â  Â  FOR BLY=0 TO 8Â  
Â  Â  Â  Â  
Â  Â  TXP=0
Â  Â  
Â  Â  FOR BLX=1 TO 9
Â  Â  Â  Â  SV=70+69*SIN((SINEADD+BX+TXP)/73)+59*COS((SINEADD-(BX+TXP))/43)

Â  Â  Â  Â  '--------
Â  Â  Â  Â  'Clip;---
Â  Â  Â  Â  '--------
Â  Â  Â  Â  IF (BX+TXP>1) AND (BX+TXP<XRES-1) AND (BY+TYP>1) AND (BY+TYP<YRES-1) THEN
Â  Â  Â  Â  Â  Â  
Â  Â  Â  Â  Â  Â  '----------------------------------------------------
Â  Â  Â  Â  Â  Â  'Draw Pixel In Buffer If Onscreen And If Binary 1 ---
Â  Â  Â  Â  Â  Â  '----------------------------------------------------
Â  Â  Â  Â  Â  Â  
Â  Â  Â  Â  Â  Â  MM= FONT(((BLY*9)+BLX)+BM)
Â  Â  Â  Â  Â  Â  IF MM >0 THEN 
Â  Â  Â  Â  Â  Â  Â  Â  

Â  Â  Â  Â  Â  Â  Â  Â  BUFFER (((BY+TYP+SV)*XRES)+BX+TXP)=COPPERLIST(BY+TYP+SV)
Â  Â  Â  Â  Â  Â  Â  Â  BUFFER (((BY+TYP+SV)*XRES)+BX+TXP+1)=COPPERLIST(BY+TYP+SV)
Â  Â  Â  Â  Â  Â  Â  Â  BUFFER (((BY+TYP+1+SV)*XRES)+BX+TXP+1)=COPPERLIST(BY+TYP+SV+1)
Â  Â  Â  Â  Â  Â  Â  Â  BUFFER (((BY+TYP+1+SV)*XRES)+BX+TXP)=COPPERLIST(BY+TYP+SV+1)


Â  Â  Â  Â  Â  Â  END IF
Â  Â  Â  Â  Â END IF
Â  Â  Â  Â  TXP=TXP+2
Â  Â  NEXT
Â  Â  Â  Â  TYP=TYP+2
Â  Â  NEXT
END SUB

'==============================================================================
' Binary Font By Shockwave / DBF; (59 Chars)
'==============================================================================

'space
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'!
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'"
data 0,1,1,0,1,1,0,0,0
data 0,1,1,0,1,1,0,0,0
data 0,1,1,0,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'#
data 0,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,1,1,0
data 0,0,0,0,0,0,0,0,0
'Â£
data 0,0,1,1,1,1,0,0,0
data 0,1,1,1,1,1,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
'%
data 0,0,0,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,1,0,0
data 0,0,0,0,0,1,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,1,0,0,0,0,0
data 0,0,1,0,0,0,1,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,0,0,0,0,0,0
'&
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,1,1,0,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,0,1,1,0,0
data 0,1,1,0,0,1,1,1,1
data 0,1,1,1,0,0,1,1,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,1,1,0,0,0
''
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'(
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,0,1,1,1,0
')
data 0,1,1,1,0,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
'*
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,1,0,1,0,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,0,1,0,1,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'+
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
''
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
'-
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'.
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
'/
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'0
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,1,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,1,1,0,0,1,1
data 1,1,1,1,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'1
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,0,0
'2
data 0,0,1,1,1,1,1,1,0
data 0,0,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
'3
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
'4
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,1,1,0,0,0
data 1,1,0,0,1,1,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
'5
data 0,1,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,0,0,0,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'6
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,0
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'7
data 0,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
data 0,0,0,0,0,1,1,1,0
'8
data 0,0,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,0,1,1,1,1,1,0,0
data 1,1,1,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'9
data 0,0,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
data 0,1,1,0,0,0,0,1,1
data 0,1,1,0,0,0,0,1,1
data 0,0,1,1,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
':
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
';
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,0,0,0,0
'<
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,0,0,1,1,0,0
data 0,0,0,0,0,0,0,0,0
'=
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'>
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,0,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,0,1,1,0,0,0
data 0,0,0,0,1,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,1,1,1,0,0,0,0
data 0,1,1,1,0,0,0,0,0
data 0,0,0,0,0,0,0,0,0
'?
data 0,0,1,1,1,1,1,0,0
data 0,1,1,1,1,1,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,0,0,0,0,0,1,1,0
data 0,0,0,1,1,1,1,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,0,0,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'@
data 0,0,0,0,0,0,0,0,0
data 0,0,1,1,1,1,1,0,0
data 0,1,0,0,0,0,0,0,0
data 0,1,0,0,1,1,1,0,0
data 0,1,0,1,0,0,0,1,0
data 0,1,0,1,1,1,0,1,0
data 0,1,0,0,0,0,0,1,0
data 0,0,1,1,1,1,1,0,0
data 0,0,0,0,0,0,0,0,0
'a
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'b
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'c
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'd
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'e
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'f
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,1,1,1,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
'g
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,1,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'h
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'i
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
'j
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'k
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,0,0,0,0,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'l
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,1
'm
data 0,1,1,1,0,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,0,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'n
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1

'o
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'p
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
'q
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,1,0,1,1
data 1,1,1,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'r
data 1,1,1,1,1,1,1,1,0
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
's
data 0,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,0,0,0,0,0,0,0
data 1,1,0,0,0,0,0,0,0
data 0,1,1,1,1,1,1,1,0
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
't
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,0,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
data 0,0,0,1,1,1,0,0,0
'u
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,1,1,1,1,0
'v
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,1,0,0,1,1,1
data 0,1,1,1,1,1,1,1,0
data 0,0,1,1,1,1,1,0,0
'w
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,0,1,0,0,1,1
data 1,1,1,1,1,1,1,1,1
data 0,1,1,1,0,1,1,1,0
'x
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,0,0,0,1,1,0
data 0,1,1,1,1,1,1,1,0
data 1,1,1,1,0,0,1,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
data 1,1,1,0,0,0,0,1,1
'y
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 1,1,0,0,0,0,0,1,1
data 0,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,1,1,1
data 0,0,0,0,0,0,1,1,1
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,0
'z
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
data 0,0,0,0,0,0,0,1,1
data 0,0,0,0,0,0,1,1,1
data 0,1,1,1,1,1,1,1,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,0,0,0,0,0,0
data 1,1,1,1,1,1,1,1,1
data 1,1,1,1,1,1,1,1,1
'---------------------------------------------------------------------------------------------------------------

Rbz · « **Reply #10 on:** September 11, 2006 »

Updated for use with "tinyptc_OGL.bi" file

Still in development...

Ghost^BHT · « **Reply #11 on:** September 11, 2006 »

Perhaps it's something to do with my machine, but this runs very, very badly, like a frame a second on my machine... same with both the exe and the source . ?? Anyone else having this problem? Or... am I in possesion of the computer from HELL ?

MrP · « **Reply #12 on:** September 11, 2006 »

Sweet little proggy there. Theres just no mistaking that old amiga feel........

Rbz · « **Reply #13 on:** September 11, 2006 »

Quote from: AlienEye on September 11, 2006

Perhaps it's something to do with my machine, but this runs very, very badly, like a frame a second on my machine...Â same withÂ both the exe and the source .Â ?? Anyone else having this problem?Â Or...Â am I in possesion of the computer from HELL ?Â Â

I'll try to implement Jim's suggestion about Peekmessage/Getmessage, the way that I do it for C++ doesn't work for FB, the damn freebasic still bugged with some gui commands

Clyde · « **Reply #14 on:** September 11, 2006 »

@Rbraz - I get a brief pause before the effect(s) update. Also happens with my own effects via the Win PTC_Ogl method.
@Wham - Both run absolutely fine here and extremely quick.

Rbz · « **Reply #15 on:** September 11, 2006 »

Quote

I get a brief pause before the effect(s) update. Also happens with my own effects via the Win PTC_Ogl method

Yep, I saw that happening here in my notebook at work, I'll try to fix it later...

And it run super fast in windowed and fine in fullscreen mode, and using gfxlib version it doesn't work in windowed mode, it's too hard to make those things working properly in all windows/gfx board config. $:-\$

Shockwave · « **Reply #16 on:** September 11, 2006 »

Wow, good to see some really cool replies. Some pertinent points, three first of all for Rbraz;

1: Thank you for further modifications of the code, hopefully this will be of use to lots of people

Have some good Karma for that.

2: Thinking of the speed differnces between windowed mode and fullscreen. In the code it waits for the vertical retrace, so I would imagine that the differences are caused because the default refresh rate for fullscreen 640 X 480 might be different to whatever your desktop is running at? A combination with delta timing would definately fix this problem, though it might mean using more floating point variables to make sure it's nice and accurate and smooth.

3: When you said 40kb, I thought mmm. Ok you must have used Upx, but I ran the file and there was no pause so it seemed to me that it was uncrunched. KKrunchy gets it down to less than 10kb!

Wham, I have absolutely no idea why this would only run at 1fps on your box. I'll try and re-create the same problem here so I can fix it. Sorry mate. I think you might have liked to see the effect if it was running properly because it could be lifted straight out of Winaue. The lesson here is that you can guarantee that no matter how bomb proof you think it is, it will fail on some systems.

Looking forward to seeing this idea develop and to seeing some productions using this technique!

Jim · « **Reply #17 on:** September 11, 2006 »

Hey Wham! Does it run properly if you whizz your mouse round-and-round while it's running? If so, that's the GetMessage/PeekMessage problem.
Shockwave you're right, in the desktop windowed mode it runs at the desktop refresh, not 60 or whatever the default for fullscreen is. Now, for LCD desktops, that's 60Hz anyway, but for CRTs anything under 75 is painful to watch so it might be 85. Not much you can do about that...delta timing will get you there though - the last frame's time needs to be part of the equation for the next frame's movement.

Jim

ninogenio · « **Reply #18 on:** September 11, 2006 »

so are you saying jim that in a window the gl code will sync properly to what ever the desktop refresh is but in full screen it will sync to a default thus if the desktop is set diffrent you might still get some tearing?

Shockwave · « **Reply #19 on:** September 11, 2006 »

No.
What it means is that each resolution can have a different refresh rate. It's very unlikely that you'll be running your desktop in 640 X 480. It will just sync to whatever refresh rate has been set as the default for that res on your card as it waits for the vertical blanking period.