Dark Bit Factory & Gravity

ARCHIVE => Archive => Cobra => Topic started by: Hotshot on April 17, 2008

Title: My own Gradients
Post by: Hotshot on April 17, 2008

Code: [Select]

program uses pure2d,keyset

Procedure Intro()

   var
       relative:integer
       value:integer
       lastheight:integer
       R: integer   // RED 
       g: integer   // GREEN
       b: integer   // BLUE
       
   BEGIN
           
   
         For value = 0 To 255
             r   = 255 - value   
             G   = 225
             b   = value                                                 
             
             // Convert color position to vertical position
             relative = value * 480 / 255
                         
             Rect(0, lastheight, 640, relative, ToRGBA((r), (b), (g)), True)

             // Remember previous vertical position
             lastheight = relative
         Next

End

BEGIN
      OpenScreen(640,480)
      Repeat
           CLS
           Intro()
           flip
      until KeyDown(VK_ESCAPE)     
END

(http://img151.imageshack.us/img151/8916/gradientsyu9.th.png) (http://img151.imageshack.us/my.php?image=gradientsyu9.png)

Title: Re: Gradients
Post by: Shockwave on April 17, 2008

Hehe, it's been ages since we had anything in Cobra posted :) K+

Title: Re: My own Gradients
Post by: Hotshot on April 17, 2008

thanks shocky, you can change the red, blue, green value to see the effect.
I do love making Gradients for some reason.  8)

Title: Re: My own Gradients
Post by: Jim on April 17, 2008

You are the only person I know using Cobra.
Cobra is cool, just not popular, can you say why you like it?

Jim

Title: Re: My own Gradients
Post by: Hotshot on April 20, 2008

3 Things are

1) To support Graham k
2) I like some things in COBRA such as Shadow(U dont have do it in manual like in blitz) and
    it got shaders.
3) it like Blitz 3D Version 2 because Cobra is the future. Blitz 3D just past it I am afraid but
    everyone is different view

Finally, I am Ex-pascal myself and good things about cobra is nearly the same as pascal.

freebasic ?

but what I dont like about freebasic is that I have used dim this and dim that....it get abit tiresome (which why I have discontinue freebasic even thought it is popular programming language and had lots of support language to it!). You could say the same for Var this and var that in cobra.

Shockwave say to me that it is better for me to stick one programming language then I might get somewhere on what I want. I am not talent as shocky(he is got big brain and he can push whatever demo throw at him because he is very DETERMINATION Person who is hard to please with his demo that He make)  when come to coding but I can only go far as my brain go whatever coding is demo or game.

IF any of person who know me too well then You will know that I do have lack of motivation for some reason that been happening in my life. It isnt easy life I would expect but that life for you isnt it.

It is hard to keep up with people of talent here as I start feel like I am bottom of the league for some reason because I just lacking in myself somewhat as it seem like I dont have the Belief(or dont believe in myself) to drive myself on. I just dont know weather I need help or not.  :(

Title: Re: My own Gradients
Post by: Jim on April 20, 2008

I think you should stick with it.  Everone here is more than happy to help you with your programming problems, so there's no need to feel like you're at the bottom of the heap.

Jim