Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - GrahamK

Pages: [1] 2 3 4 5
1
General chat / Re: I am a very happy chap!
« on: May 16, 2007 »
Any betting on Jacob's first word being 'Gosub' :)

We should have sweepstake on it ;)

2
General chat / Re: I am a very happy chap!
« on: May 15, 2007 »
Gratz... Shocky & family.....

Just think of all those sleepless nights you can fill with coding :)

3
General chat / Re: Anyone speak Welsh ?
« on: April 01, 2007 »
Thanks peeps,

twas an odd request I know, but actually was very handy..... ;)

4
General chat / Anyone speak Welsh ?
« on: March 29, 2007 »
Shocky ?

Noticed something that looked like Welsh on the shoutbox....

Can anyone tell me how to pronounce this ?

Myrrdin

Odd request I know......


5
Yay, my favorite won..

Nice one Paul.

6
Argh, the suspense is killin me....

7
General chat / Re: PS3
« on: March 23, 2007 »
In celebration of the release of the PS3, I managed to bring my Dreamcast back to life.....
Which generally means a weekend of Soul Caliber ahead....

I'm a happy bunny  :clap:

8
Blitz / Re: About Colour Palettes
« on: March 21, 2007 »
Actually that is really handy.... Nice.  :goodpost:

9
Freebasic / Re: Twisty Copper Bar Thing..
« on: March 21, 2007 »
I think, to get something looking like that you would need a larger texture than 4x4 to make it look decent. I think, you may get away with it using something like 32x32. Not sure the 'rolling' effect would come through though. I'll have an experiment and see if I can come up with something.

Slightly off topic,
but here is a Cobra version ;)
Code: [Select]
program
uses
    cobramini,keyset         
   
const
    xres = 800
    yres = 600
    lines= 8
                               
procedure MakeColours
var
    r,g,b:real
    l:integer
begin

    FOR L=1 TO LINES
        TSTART[L] = L*120
    NEXT
   
    R=0;G=0;B=0
    FOR L=0 TO 499
       
            IF L<=250 THEN

                R=R+0.6
                G=G+0.9
                B=B+0.3
                CPAL[L] = toRGB(R,G,B)
               
            ELSE

                R=R-0.6
                G=G-0.9
                B=B-0.3
                CPAL[L] = toRGB(R,G,B)

            ENDIF
       
    NEXT

    R=0;G=0;B=0
   
    FOR L=500 TO 999
       
            IF L<=750 THEN
               
                R=R+0.9
                G=G+0.6
                B=B+0.3
                CPAL[L] = toRGB(R,G,B)
               
            ELSE

                R=R-0.9
                G=G-0.6
                B=B-0.3
                CPAL[L] = toRGB(R,G,B)

            ENDIF
       
    NEXT
   
    R=0;G=0;B=0
   
    FOR L=1000 TO 1499
       
            IF L<=1250 THEN
               
                R=R+0.3
                G=G+0.6
                B=B+ 0.9
                CPAL[L] = toRGB(R,G,B)
               
            ELSE

                R=R-0.3
                G=G-0.6
                B=B-0.9
                CPAL[L] = toRGB(R,G,B)

            ENDIF
       
    NEXT
   
    R=0;G=0;B=0
   
    FOR L=1500 TO 1999
       
            IF L<=1750 THEN
               
                R=R+0.3
                G=G+0.9
                B=B+0.6
                CPAL[L] = toRGB(R,G,B)
               
            ELSE

                R=R-0.3
                G=G-0.9
                B=B-0.6
                CPAL[L] = toRGB(R,G,B)

            ENDIF
       
    NEXT   

end

procedure do_twisty
var
    a,y1,y2,yt,yb,cntt:integer
    vv:real
begin

    cntt=100
    FOR Y1=1 TO LINES
    VV=TSTART[Y1]
   
    FOR A=0 TO XRES-1
        YT=50+Y1
        YB=50-Y1
       
        y2=CPAL[VV]                   
        Pixel(buffer,a+(xres*yt),y2)   
        Pixel(buffer,a+((yres*xres)-(xres*yb)),y2)   
        VV=VV+1
        IF VV>2000 THEN VV=VV-2000
    NEXT
NEXT

    FOR A=1 TO LINES
        TSTART[A]=TSTART[A]+15
        IF TSTART[A]>2000 THEN TSTART[A]=TSTART[A]-2000
    NEXT

end

procedure main
begin
    OpenScreen(xres,yres)
    buffer=currentmembuffer
   
    makecolours
   
    while not KeyDown(VK_ESCAPE)
        do_twisty
        flip 
    wend
   
    closescreen
end   

var
  buffer:integer
  cpal:array[2001] of integer 
  tstart:array[lines] of integer
begin
 
    main

end

10
Blitz / Re: About Colour Palettes
« on: March 20, 2007 »
On the subject of 'greyscale'
Intensity calculation, which tends to give a better 'grey'...

Code: [Select]
c =  ((R * 61) +(G * 174) + (B * 21)) / 256

11
Challenges & Competitions / Re: 20SECONDS - TV
« on: March 20, 2007 »
Nice idea... me likey  :goodpost:

12
Projects / Re: My first Cobra Intro
« on: March 20, 2007 »
Neat... Music is a real weakness for me, hmm, that 'n' graphics.... HMMM, better stick to compilers  ;) hehe

13
Yep nice one....

14
General chat / Re: Half ton hospital
« on: March 20, 2007 »
You might if you get a taste for dog :p

15
Projects / Re: My first Cobra Intro
« on: March 20, 2007 »
I did look at modarchive, but I couldn't find any info on how they could be used, and really didn't want to take any chances..

Thanks for the suggestions tho, and encouragement.. It really does push me to make more :D


16
I'll compile it to an exe for you when I get home.

17
Projects / Re: My first Cobra Intro
« on: March 19, 2007 »
Nope, it was Mike who noticed a problem with key presses.

18
Projects / Re: My first Cobra Intro
« on: March 19, 2007 »
Hmm, thanks...
Something funky still lurking in the bowls of cobra methinks :( grr, I'll get to the bottom of it...

19
Projects / Re: My first Cobra Intro
« on: March 19, 2007 »
Thanks for the nice comments.

Mike, didn't you have problems with the keypresses on my 20second intro too ?
I have (on rare occasions) had some people where cobra programs don't respond to keys/mouse. Gut feeling is that something on your machine is getting in the way (It's not something I've seen for a while, and I'm still trying to track down the final reason for it :( )

A reboot usually fixes it, which doesn't help debugging :(
If you have any info on OS version, any sort of screen grabbing or global hotkey type software you may have running it would be a great help.


20
Projects / My first Cobra Intro
« on: March 19, 2007 »
Decided I just had to do one... :D

Download from here

Hope you enjoy it....

If anyone can suggest a source of music to use (legally) in my demos, I'd love to hear.

Pages: [1] 2 3 4 5