Vector Text in freebasic . . .

Nowhere near upto your standard Andy, but it's early days  8)

superb mate - im impressed!

Nice Vector Text there ANDYRCM  🙂

Blackpather:  It nice to see somethings on the screen and keep going  😉  I am sure you will be up there with ANDYRCM when you keep working on it  😉

up there with me . . . i hope he can show me some stuff . . . 😉

Nice Vector Text there ANDYRCM  🙂

Blackpather:  It nice to see somethings on the screen and keep going  😉  I am sure you will be up there with ANDYRCM when you keep working on it  😉

Thanks but I think you mean Panther!  ;D

superb mate - im impressed!

High praise from the master  ;D

Mate - im certainly not the master . . . not by any stretch of anybodys imagination! 🙁

I enjoy what i do and usually code for myself . . . as I did with Swarm . . . it was written for me! 😉

Seriously the guys on DBF are gods - some of them are really amazing coders, shockwave included! I have learnt so much from them it is amazing!

Some routines that Shockwave has shared such as Fire, Scrollers, Drawing Routines . . . etc . . . amazing!

Andy

Saw the 8 colour twister that he did, awesome !!  😮 😮

I'm just having fun experimenting at the moment

very good and glad u are enjoying it 😉

@Panther - I take it from what I have seen so far you are using the built in routines . . .

take a look at this code . . . and i have attached an .exe too! 😉

#include once "tinyptc_ext.bi"

const xres = 800
const yres = 600

    ptc_allowclose(0)
    ptc_setdialog(1,"Would you like to go Fullscreen?",0,1)
    If( ptc_open( "Starfield - Again!", XRES, YRES ) = 0 ) Then
    End -1
    End If

Dim Shared as Integer sb(xres*yres)
#define pp(x,y,argb) sb(y*XRES+x)=argb
Dim Shared as Integer aa,bb,r,g,b

Declare Sub Noise

WHILE(GETASYNCKEYSTATE(VK_ESCAPE)<> -32767 and PTC_GETLEFTBUTTON=FALSE)
    Noise
    ptc_update @sb(0)
Wend

ptc_close()
end

Sub Noise
    for aa=0 to xres-1
        for bb=0 to yres-1
        r=int(rnd(1)*255)b=int(rnd(1)*255)
        pp(aa,bb,rgb(r,g,b))
        next bb
    next aa
End Sub

🙂

I had a similar effect to start with  🙂

But haven't got a clue about the tinyptc commands (even though I did download then as you suggested !), still trying to get to grips with Freebasic standard commands !

🙂 - nice one! Keep it up - we will have to create a new part on the forums for coding now! 😉

Andy

Could probably do with it, before we take over other areas  ;D