RCM - RETRO COMPUTER MUSEUM

GENERAL => CODING AREA => Topic started by: AndyRCM on July 07, 2009, 07:17:03 PM

Title: Vector Text in freebasic . . .
Post by: AndyRCM on July 07, 2009, 07:17:03 PM
Again something I am working on - early days yet - similiar to my laser effect seen elsewhere but supposed to look like a vector based drawing routine.

Andy
Title: Re: Vector Text in freebasic . . .
Post by: Panther on July 07, 2009, 07:42:09 PM
Nowhere near upto your standard Andy, but it's early days  8)
Title: Re: Vector Text in freebasic . . .
Post by: AndyRCM on July 07, 2009, 08:00:15 PM
superb mate - im impressed!
Title: Re: Vector Text in freebasic . . .
Post by: Amiga Man on July 07, 2009, 08:19:42 PM
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  ;)
Title: Re: Vector Text in freebasic . . .
Post by: AndyRCM on July 07, 2009, 08:21:06 PM
up there with me . . . i hope he can show me some stuff . . . ;)
Title: Re: Vector Text in freebasic . . .
Post by: Blackpanther on July 07, 2009, 08:25:58 PM
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
Title: Re: Vector Text in freebasic . . .
Post by: Panther on July 07, 2009, 08:30:47 PM
superb mate - im impressed!

High praise from the master  ;D
Title: Re: Vector Text in freebasic . . .
Post by: AndyRCM on July 07, 2009, 08:34:19 PM
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
Title: Re: Vector Text in freebasic . . .
Post by: Panther on July 07, 2009, 09:04:03 PM
Saw the 8 colour twister that he did, awesome !!  :o :o

I'm just having fun experimenting at the moment
Title: Re: Vector Text in freebasic . . .
Post by: Amiga Man on July 07, 2009, 09:21:44 PM
very good and glad u are enjoying it ;)
Title: Re: Vector Text in freebasic . . .
Post by: AndyRCM on July 07, 2009, 10:08:47 PM
@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! ;)

Code: [Select]
#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):g=int(rnd(1)*255):b=int(rnd(1)*255)
        pp(aa,bb,rgb(r,g,b))
        next bb
    next aa
End Sub

:)

Title: Re: Vector Text in freebasic . . .
Post by: Panther on July 08, 2009, 07:59:33 AM
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 !
Title: Re: Vector Text in freebasic . . .
Post by: AndyRCM on July 08, 2009, 08:07:53 AM
:) - nice one! Keep it up - we will have to create a new part on the forums for coding now! ;)

Andy
Title: Re: Vector Text in freebasic . . .
Post by: Panther on July 08, 2009, 08:26:28 AM
Could probably do with it, before we take over other areas  ;D