Topic: Vector Text in freebasic . . .  (Read 5426 times)

Author Message

0 Members and 1 Guest are viewing this topic.

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Vector Text in freebasic . . .
« 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
« Last Edit: July 08, 2009, 08:52:24 AM by AndyRCM »
"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Panther

  • Committee
  • Amiga 4000
  • *
  • Posts: 4180
  • Kudos 35
  • Gender: Male
  • Look at the size of my.......Paws
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #1 on: July 07, 2009, 07:42:09 PM »
Nowhere near upto your standard Andy, but it's early days  8)

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Re: Vector Text in freebasic . . .
« Reply #2 on: July 07, 2009, 08:00:15 PM »
superb mate - im impressed!
"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Amiga Man

  • Amiga 4000
  • ******
  • Posts: 999
  • Kudos 10
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #3 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  ;)

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Re: Vector Text in freebasic . . .
« Reply #4 on: July 07, 2009, 08:21:06 PM »
up there with me . . . i hope he can show me some stuff . . . ;)
"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Blackpanther

  • Amiga 4000
  • ******
  • Posts: 1544
  • Kudos 16
  • Gender: Male
  • Trust is a weakness
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #5 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
Nintendo 3DS Friends Code: 2793-0594-8875

Offline Panther

  • Committee
  • Amiga 4000
  • *
  • Posts: 4180
  • Kudos 35
  • Gender: Male
  • Look at the size of my.......Paws
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #6 on: July 07, 2009, 08:30:47 PM »
superb mate - im impressed!

High praise from the master  ;D

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Re: Vector Text in freebasic . . .
« Reply #7 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
"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Panther

  • Committee
  • Amiga 4000
  • *
  • Posts: 4180
  • Kudos 35
  • Gender: Male
  • Look at the size of my.......Paws
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #8 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

Offline Amiga Man

  • Amiga 4000
  • ******
  • Posts: 999
  • Kudos 10
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #9 on: July 07, 2009, 09:21:44 PM »
very good and glad u are enjoying it ;)

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Re: Vector Text in freebasic . . .
« Reply #10 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

:)

"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Panther

  • Committee
  • Amiga 4000
  • *
  • Posts: 4180
  • Kudos 35
  • Gender: Male
  • Look at the size of my.......Paws
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #11 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 !

Offline AndyRCM

  • >=))))º> GO FEED THE FISH! <º((((=<
  • Administrator
  • Amiga 4000
  • ******
  • Posts: 9675
  • Kudos 50
  • Gender: Male
  • Manic Jet Set Willy
    • View Profile
    • Retro Computer Museum
Re: Vector Text in freebasic . . .
« Reply #12 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
"I could see the faces of those who led pissing themselves laughing" - Funeral Pyre by The Jam

Offline Panther

  • Committee
  • Amiga 4000
  • *
  • Posts: 4180
  • Kudos 35
  • Gender: Male
  • Look at the size of my.......Paws
    • View Profile
Re: Vector Text in freebasic . . .
« Reply #13 on: July 08, 2009, 08:26:28 AM »
Could probably do with it, before we take over other areas  ;D