Gradients? - Socoder

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|545\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Cobra -> Gradients?
Wed, 16 Apr 2008, 18:05
Hotshot	program uses pure2d,keyset Procedure Intro() var relative:integer value:integer lastheight:integer R:integer g:integer b:integer BEGIN OpenScreen(640,480) For value = 0 To 255 r = 255 - value G = 225 b = value pencolor (ToRGBA((r), (b), (g)), ScreenBuffer) // Convert color position to vertical position relative = value * 480 / 255 Rect(0, lastheight, 640, relative, ToRGBA((0), (0), (0), (0)), True) // Remember previous vertical position lastheight = relative Next Flip End BEGIN Repeat CLS Intro() until Not KeyDown(VK_ESCAPE) END --v
Wed, 16 Apr 2008, 19:09
codingmonkey	very nice. and in Cobra. Excellent.
Thu, 17 Apr 2008, 05:22
Hotshot	thanks to vanleth 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 --v Screenshot
Thu, 17 Apr 2008, 07:39
HoboBen	Oh good, you got it working Neat stuff!
Thu, 17 Apr 2008, 11:46
codingmonkey	indeed, again very nice.
Thu, 17 Apr 2008, 11:49
Hotshot	That Gradients is just like the good old amiga screenshots.
Thu, 17 Apr 2008, 11:53
codingmonkey	interesting. the screenshot is nice as well as the program and the syntax you used. That is what is nice.
Thu, 17 Apr 2008, 11:58
Hotshot	Hey Codingmonkey what programming language you using? what do you like coding in (eg. game/demo scene/GUI)?
Thu, 17 Apr 2008, 12:03
codingmonkey	right now, I'm using the Aurora compiler. the content I code varies. But usually I like to code applications and a few demos now and then.
Thu, 17 Apr 2008, 12:07
Hotshot	Aurora compiler? Honestly, I have never heard of them. I got Blitz 3D and BlitzMax(it abit poor document but could be improve) and COBRA(it does have Shaders ) is good language as it depend what you like to do.
Thu, 17 Apr 2008, 12:11
codingmonkey	I must check out this Cobra. It seems powerful and looks like or similar to Pascal.
Thu, 17 Apr 2008, 12:14
Hotshot	HERE the link for cobra www.cobrabytes.co.uk/