Search found 123 matches

by peter
Tue May 29, 2012 10:13 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Re: Hot Demos

Sines Text. Include "library.cb" SCREEN 640,480,32,1 FrameLimit 90 font=LoadFont("courier",28) SetFont font Global tl,i,x,letter$,z$ z= "HELLO AND WELCOME TO OUR COOLBASIC FORUM !" tl = Len(z) Dim y(44) As Float Dim angle(44) As Float For i=1 To tl angle(i) = 360-i*(360...
by peter
Tue May 29, 2012 10:11 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Re: Hot Demos

Collision test. Include "library.cb" SCREEN 640,480,16,1 FrameLimit 200 font=LoadFont("courier",44) SetFont font Function Triangle(x1,y1,x2,y2,r,g,b) Color r,g,b Line x1,y1,x1+x2,y1+y2 Line x1,y1,x1-x2,y1+y2 Line x1-x2,y1+y2,x1+x2,y1+y2 End Function Global px1,py1,px2,py2 py1=200...
by peter
Tue May 29, 2012 4:47 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Re: Hot Demos

Something about pixel. Include "library.cb" SCREEN 320,240,16,1 font=LoadFont("courier",24) SetFont font ClearKeys Function BigPixel(x1,y1,x2,y2,w,h) Dim x,y,r,g,b,Col x = x1 y = y1 While y <= y2-h Col = GetPixel(x,y) r = GetColorR (Col) g = GetColorG (Col) b = GetColorB (Col) Co...
by peter
Tue May 29, 2012 4:46 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Re: Hot Demos

A few stars include "library.cb" Screen 800,600,16,1 font= LoadFont("times",28) SetFont font Global xRes,yRes Dim xStar(250) Dim yStar(250) Dim speed(250) xRes =800 yRes =600 Function InitStars() Dim i For i = 1 To 250 xStar(i) = Rand(1, xRes -2) yStar(i) = Rand(1, yRes -2) speed...
by peter
Tue May 29, 2012 4:44 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Re: Hot Demos

Another Demo: Water Include "library.cb" SCREEN 600,800,32,1 FrameLimit 60 font=LoadFont("cour",28) SetFont font Dim x(1000) Dim y(1000) Dim Xv#(1000) Dim Yv#(1000) Dim LifeSpan(1000) Global Xstart,Ystart,i,bild,drop 'drop = LoadBmp("bmp/drop",0) 'bild = LoadBmp("b...
by peter
Tue May 29, 2012 4:42 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28869

Hot Demos

Hi, Some demos. Include "library.cb" SCREEN 640,480,32,1 font = LoadFont("courier",24) SetFont font FrameLimit 90 Global col,anzahl,xscreen,yscreen,ymitte,xmitte,i,aSpeed# anzahl=1000 xscreen=640 yscreen=480 xmitte = xscreen/2 ymitte = yscreen/2 Dim x#(1000) Dim y#(1000) Dim angl...
by peter
Mon May 28, 2012 10:55 pm
Forum: Problems
Topic: Bit Operation
Replies: 6
Views: 11692

Re: Bit Operation

Hi Latexi95,

yes, it works fine. But something is wrong.

Red must be SHL 24.
Blue must be SHL 8.

I am really silly, I have to open eyes in the future.
I had Bit Operation in my mind, found not this solution!

Anyway, thank you.
by peter
Mon May 28, 2012 10:21 pm
Forum: Problems
Topic: Bit Operation
Replies: 6
Views: 11692

Re: Bit Operation

Hi Latexi95,

Thank you very much.
by peter
Mon May 28, 2012 6:07 pm
Forum: Problems
Topic: Bit Operation
Replies: 6
Views: 11692

Bit Operation

Hi, does anyone know something about BIT OPERATION in CoolBasic? I need an "Bit AND" and an "Bit OR". No logical operators! for example: value = 12423936 farb = (value shr 16) BIT AND 255 if you are interested, I want to write this function for my library: Function GetColorR(sys_...
by peter
Thu Jan 12, 2012 8:12 pm
Forum: Projects
Topic: Fireworks
Replies: 9
Views: 15486

Re: Fireworks

Hi CCE,

Not really.

Only if I need a song, and I can not find it,then I will make a song for me.
This is a holdover from the Amiga times. This one is not by me.
by peter
Thu Jan 05, 2012 2:16 am
Forum: Projects
Topic: Fireworks
Replies: 9
Views: 15486

Re: Fireworks

Hi,

These are a lot of flowers for me, but also some other voices.
The finnish members in their Forum are not worse and they have great capacities.

I love the Finns, especially the finnish women. Here, you can see a tree of mine, who stands in my garden.
by peter
Sat Dec 31, 2011 9:08 pm
Forum: Projects
Topic: Fireworks
Replies: 9
Views: 15486

Re: Fireworks

Hi all,

OxygenBasic is a clean shirt. Make a visit, and see yourself what there happens.

http://www.oxygenbasic.org
by peter
Sat Dec 31, 2011 8:14 pm
Forum: Projects
Topic: Fireworks
Replies: 9
Views: 15486

Re: Fireworks

Hi,
No panic,
is no Virus, it is OxygenBasic.
by peter
Sat Dec 31, 2011 5:39 pm
Forum: Projects
Topic: Fireworks
Replies: 9
Views: 15486

Fireworks

Hi,

A small demo for you.
by peter
Tue Dec 20, 2011 3:20 pm
Forum: CoolBasic
Topic: promise
Replies: 6
Views: 12198

Re: promise

Thanks and much luck in 2012 with your projects!

I wish you and your families merry Christmas and a happy new year.
by peter
Fri Dec 16, 2011 9:18 pm
Forum: CoolBasic
Topic: promise
Replies: 6
Views: 12198

promise

Hi CoolBasic programmer,

is that promise still valid?
(AND WILL BE RELEASED IN 2011)

Thank you.
by peter
Wed Nov 02, 2011 4:46 pm
Forum: General discussion
Topic: Lost in the wood
Replies: 19
Views: 46911

Re: Lost in the wood

Hi,

Nobody is perfect and that is real life.
Everybody can read anything if all have a bit fantasy.

This not being perfect, is the atmosphere of this forum and really very cool.
I have always much fun!
by peter
Wed Nov 02, 2011 1:42 am
Forum: General discussion
Topic: Lost in the wood
Replies: 19
Views: 46911

Re: Lost in the wood

Yes, this is okay!
I am not evil about that, was fun.
by peter
Wed Nov 02, 2011 1:22 am
Forum: General discussion
Topic: Lost in the wood
Replies: 19
Views: 46911

Re: Lost in the wood

Hi esa94,

some corrections:

1.) mind-boggling
2.) homophone
3.) by a Finn

But do not worry, we are all not better!
by peter
Sun Oct 30, 2011 9:58 pm
Forum: General discussion
Topic: Lost in the wood
Replies: 19
Views: 46911

Re: Lost in the wood

Hi Jare,

Buying a tree is against the nature. If you cut it in some parts, that is very painfully for this tree.
And to the end must he burn, like a witch . Greetings from the dark ages.

Do you like my story?