Search found 123 matches

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

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 = yg-1 yb = ...
by peter
Sat Aug 02, 2014 9:11 pm
Forum: Examples and tutorials
Topic: Particles
Replies: 2
Views: 1589

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: 1509

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: 1478

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: 1510

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) * 0.05 DrawImage s2,3...
by peter
Tue Jul 29, 2014 8:46 pm
Forum: Examples and tutorials
Topic: Mirage
Replies: 1
Views: 2829

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(s2)-1 PickImageColo...
by peter
Tue Jul 29, 2014 8:43 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 1526

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: 14732

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 DrawScreen WaitKey
by peter
Mon Jul 28, 2014 3:27 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 1526

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>0 tp = zx...
by peter
Sun Jul 27, 2014 11:46 pm
Forum: Examples and tutorials
Topic: Fading
Replies: 0
Views: 15101

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 then r=(r+1) ...
by peter
Sun Jul 27, 2014 6:35 pm
Forum: Projects
Topic: CrazyPong
Replies: 8
Views: 5640

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 6:20 pm
Forum: Projects
Topic: xmas
Replies: 1
Views: 1721

xmas

Hi,

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

Re: Hot Demos

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

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: 3015

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: 3015

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) Dim u#,u2#,u3#,f1#...
by peter
Fri Jun 01, 2012 10:17 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 3015

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,20,0 Next x Next y SetText(16...
by peter
Fri Jun 01, 2012 10:16 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 3015

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 = ScreenWidth() / 2 px =...
by peter
Fri Jun 01, 2012 7:37 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 9482

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: 9482

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)= MouseY()-20 For i=1 ...