CoolBasic Forums

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

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...

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

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

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) *...

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 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...

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...

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...

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...

Hi,

MERRY CHRISTMAS!

LOL :lol:

Hi Konstaduck,

WindowsXP ? Never heard.

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

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...

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...

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...

Hi,

If you do not have this font then take another font. For example "ARIAL" or "COURIER" or whatever. cour font exists in Windows7.

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