Search found 123 matches

by peter
Mon Aug 04, 2014 8:15 pm
Forum: Examples and tutorials
Topic: Copper Bars
Replies: 1
Views: 23301

Copper Bars

Hello, It's very slow. :evil: SCREEN 640,480 Global yr yg=40 yb=80 While keydown(27)=0 For i=0 to 240 Color i+15,0,0 Line 0,i,640,i Color 255-i,0,0 Line 0,i+240,640,i+240 Next i Color 255,255,255 Text 240,200,"AMIGA COPPER BAR ?" RedCopper(yr) GreenCopper(yg) BlueCopper(yb) yr = yr+1 yg = ...
by peter
Sat Aug 02, 2014 9:11 pm
Forum: Examples and tutorials
Topic: Particles
Replies: 2
Views: 7701

Particles

Hi, some nice particles. SCREEN 800, 404, 32, 1 Dim particle0#(1000) Dim particle1#(1000) Dim particle2#(1000) Dim particle3#(1000) Dim particle4#(1000) Dim particle5#(1000) Dim degree1#(360) Dim degree2#(360) mx = 1000 For i=0 To 359 degree1(i)=Sin(i) degree2(i)=Cos(i) Next i For i=0 To mx-1 partic...
by peter
Sat Aug 02, 2014 8:40 pm
Forum: Examples and tutorials
Topic: Copper Star
Replies: 1
Views: 7297

Copper Star

Hi, have a nice day. SCREEN 640,480 d=40 c=10000 ys#=0.15 a#=0.0 While KeyDown(27)=0 Color 0,0,0 Cls For x=-90 To 90 For y=-90 To 90 Color 255,200,200 Dot 300+Sin(a)*(x+y), 250+ys*(y-x)*c/(x*x+y*y+d) Next y Next x a =a+10.0 If a >=360 Then a= -a Text 265,16,"COPPER STAR" DrawScreen wend
by peter
Wed Jul 30, 2014 2:24 pm
Forum: Examples and tutorials
Topic: Cool Fern
Replies: 1
Views: 6996

Cool Fern

Hi, do you like fern ? SCREEN 640,500 DrawScreen Global a#, b#, c#, d#, e#, f#, newx#, newy# Dim xy#(3) Function Fern() r = Rand(1,100) If r <= 10 a = 0 b = 0 c = 0 d = 0.16 e = 0 f = 0 ElseIf r > 1 And r <=86 a = 0.85 b = 0.04 c = -.04 d = 0.85 e = 0 f = 1.60 ElseIf r > 86 And r <=93 a = 0.2 b = -....
by peter
Tue Jul 29, 2014 11:55 pm
Forum: Examples and tutorials
Topic: Round About
Replies: 1
Views: 7334

Round About

Hi, Is a little bit stupid, but funny. SCREEN 640, 480 FrameLimit 60 Dim phi#(1000), v#(1000) n=10 For i=0 to n v(i) = i + 21 phi(i) = 0 Next i s1=LoadImage("png/bild18.bmp") s2=LoadImage("png/stupid.bmp") While KeyDown(27)=0 DrawImage s1,0,0 For i=0 to n phi(i) = phi(i) + v(i) *...
by peter
Tue Jul 29, 2014 8:46 pm
Forum: Examples and tutorials
Topic: Mirage
Replies: 1
Views: 12755

Mirage

Hello, have fun for a while. SCREEN 320,240 Global wAmp#,wFreq#,x#,m#,cx,dx wAmp =22.0 wfreq=10.0 s1 = LoadImage("png/coollogo.png") s2 = LoadImage("png/stupid.bmp") While KeyDown(27)=0 DrawImage s1,0,0 x=x-10.5 m=x For cx=0 To ImageHeight(s2)-1 m =m+wfreq For dx=0 To ImageHeight...
by peter
Tue Jul 29, 2014 8:43 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 8121

Re: Mandelbrot

By they way, since you seem to be interested in graphics programming, you should check out our CoolBasic demo Linear Minds. Also includes source code! wow, this vector graphic is very cool! well done. Unfortunately, your source code has too many finnish notations, this isn't that easy to read for m...
by peter
Mon Jul 28, 2014 5:28 pm
Forum: Examples and tutorials
Topic: Lorenz
Replies: 0
Views: 34448

Lorenz

Hello, quite simply. SCREEN 800, 700 Global x#,y#,n# s$ ="LORENZ LANDSCAPE" For t=0 to 44000 x=Sin(t*0.99)-0.7*cos(t*3.01) y=Cos(t*1.01)+0.1*sin(t*15.03) x=x*200+350 y=y*200+360 Color 255,150,180 Dot y,x Next t Color 255,255,255 For i=1 To Len(s) Text 700,32+i*10,Mid(s,i,1) Next i DrawScre...
by peter
Mon Jul 28, 2014 3:27 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 8121

Mandelbrot

Hello, SCREEN 800, 600 Global x#, y#, zx#, zy#, cx#, cy#, tp# Global im, z, it im=570: z=150 h = ScreenHeight() w = ScreenWidth () Text 200,200,"WAIT A MOMENT...." DrawScreen Lock For y=0 To h-1 For x=0 To w-1 zx=0 zy=0 cx= (x-400)/z cy= (y-300)/z it = im While zx * zx + zy * zy < 4 And it...
by peter
Sun Jul 27, 2014 11:46 pm
Forum: Examples and tutorials
Topic: Fading
Replies: 0
Views: 34258

Fading

hello, I wanted say, I am still alive. SCREEN 640,489,32,2 i = LoadFont("arial",34) SetFont i r=255: g=200: b=100: d=1 r1=r g1=g b1=b While KeyDown(27)=0 ClsColor r,g,b Cls If d=1 If r>0 then r=r-1 If g>0 then g=g-1 If b>0 then b=b-1 If r=0 and g=0 and b=0 then d=2 EndIf If d=2 If r<r1 the...
by peter
Sun Jul 27, 2014 6:35 pm
Forum: Projects
Topic: CrazyPong
Replies: 8
Views: 16751

Re: CrazyPong

peter wrote:Hi, Ozcar

Pixel collision was not possible.
The algorithm is a little bit crazy here.
Hence I took three parts for the paddles.

Nevertheless, thank you for your advice.
by peter
Mon Dec 24, 2012 5:20 pm
Forum: Projects
Topic: xmas
Replies: 1
Views: 7082

xmas

Hi,

MERRY CHRISTMAS!
by peter
Sun Jun 03, 2012 10:35 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28827

Re: Hot Demos

LOL :lol:
by peter
Sun Jun 03, 2012 12:31 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28827

Re: Hot Demos

Hi Konstaduck,

WindowsXP ? Never heard. :D
by peter
Fri Jun 01, 2012 10:20 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 10505

Re: Fun Demos

Something light. include "library.cb" screen 640,480, 2 Global x, y While EscapeKey()=0 For y=0 To ScreenHeight() Step 10 For x=0 To ScreenWidth() Step 10 Color 0,120,255 Box x,y,8,8,0 Color Rand(64,255),Rand(64,255),Rand(64,255) Line x,y,240,69 Next x Next y DrawScreen OFF Wend
by peter
Fri Jun 01, 2012 10:19 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 10505

Re: Fun Demos

A curve. SCREEN 800, 600, 1 FrameLimit 60 font=LoadFont("arial",24) SetFont font Global x1,y1,x2,y2,x3,y3,x4,y4,brick x1=50:y1=150:x2=100:y2=100:x3=150:y3=100:x4=200:y4=150 brick = LoadImage("bmp/brick.bmp") ResizeImage brick,800,600 Function Curve(x10,y10,x20,y20,x30,y30,x40,y40...
by peter
Fri Jun 01, 2012 10:17 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 10505

Re: Fun Demos

3D Tree Include "library.cb" SCREEN 640,480,1 font=LoadFont("times",28) SetFont font Global b1 b1 = LoadImage("bmp/baum.bmp") ResizeImage b1,640,480 While EscapeKey()=0 DrawImage b1,0,0,0 For y=0 To 480 Step 20 For x=0 To 640 step 20 Color Rand(220,255),10,15 Circle x,y...
by peter
Fri Jun 01, 2012 10:16 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 10505

Fun Demos

Hi, Some new Demos. Include "library.cb" SCREEN 256,256,32,1 FrameLimit 6 font = LoadFont("courier",24) SetFont font Global numSteps,n,ax#,ay#,bx#,by#,cx#,cy#,px#,py# numSteps=10000 ax = 10: cy = 10 ay = ScreenHeight() - 10 bx = ScreenWidth() - 10 by = ScreenHeight() - 10 cx = Sc...
by peter
Fri Jun 01, 2012 7:37 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28827

Re: Hot Demos

Hi,

If you do not have this font then take another font. For example "ARIAL" or "COURIER" or whatever. cour font exists in Windows7. :o
by peter
Tue May 29, 2012 10:15 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 28827

Re: Hot Demos

A Snake. Include "library.cb" SCREEN 640,480,16,1 FrameLimit 60 font=LoadFont ("cour",24) SetFont font Dim x(60) Dim y(60) Global i,col,r,g,b col=2047791 While EscapeKey()=0 ClearScreen(255,255,255) For i=59 To 1 Step -1 x(i) = x(i-1) y(i) = y(i-1) Next i x(0)= MouseX()-20 y(0)= ...