## Search found 123 matches

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

### 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 = ...
Sat Aug 02, 2014 9:11 pm
Forum: Examples and tutorials
Topic: Particles
Replies: 2
Views: 4764

### 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...
Sat Aug 02, 2014 8:40 pm
Forum: Examples and tutorials
Topic: Copper Star
Replies: 1
Views: 4470

### 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
Wed Jul 30, 2014 2:24 pm
Forum: Examples and tutorials
Topic: Cool Fern
Replies: 1
Views: 4398

### 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 = -....
Tue Jul 29, 2014 11:55 pm
Forum: Examples and tutorials
Topic: Round About
Replies: 1
Views: 4437

### 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) *...
Tue Jul 29, 2014 8:46 pm
Forum: Examples and tutorials
Topic: Mirage
Replies: 1
Views: 6393

### 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...
Tue Jul 29, 2014 8:43 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 4990

### 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...
Mon Jul 28, 2014 5:28 pm
Forum: Examples and tutorials
Topic: Lorenz
Replies: 0
Views: 20165

### 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...
Mon Jul 28, 2014 3:27 pm
Forum: Examples and tutorials
Topic: Mandelbrot
Replies: 2
Views: 4990

### 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...
Sun Jul 27, 2014 11:46 pm
Forum: Examples and tutorials
Topic: Fading
Replies: 0
Views: 20265

### 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...
Sun Jul 27, 2014 6:35 pm
Forum: Projects
Topic: CrazyPong
Replies: 8
Views: 11901

### 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.
Mon Dec 24, 2012 5:20 pm
Forum: Projects
Topic: xmas
Replies: 1
Views: 4426

### xmas

Hi,

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

### Re: Hot Demos

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

### Re: Hot Demos

Hi Konstaduck,

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

### 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
Fri Jun 01, 2012 10:19 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 7003

### 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...
Fri Jun 01, 2012 10:17 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 7003

### 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...
Fri Jun 01, 2012 10:16 pm
Forum: Examples and tutorials
Topic: Fun Demos
Replies: 3
Views: 7003

### 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...
Fri Jun 01, 2012 7:37 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 20865

### 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.
Tue May 29, 2012 10:15 pm
Forum: Examples and tutorials
Topic: Hot Demos
Replies: 18
Views: 20865

### 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)= ...