Oxygen Basic
Programming => Example Code => Topic started by: Peter on September 03, 2015, 06:42:47 AM
-
Hello,
New Sdl-Library o3.o9.2o15
Do a test!
Demo Example 1
include "sdl.inc"
window 800,600,1
sub drawLightning(sys x1, y1, x2, y2, displace)
dim as integer curdetail=5
if displace < curDetail
color 200,200,255,255
drawline x1,y1,x2,y2
else
single mid_x = (x2+x1)/2
single mid_y = (y2+y1)/2
mid_x += (-rndF()*displace)
mid_y += (-rndF()*displace)
drawLightning(x1,y1,mid_x,mid_y,displace/2)
drawLightning(x2,y2,mid_x,mid_y,displace/2)
end if
end sub
while key(27)=0
clsA 0,0,0,40
color 0,0,0,255
drawline 0,0,799,599
color 200,200,200,255
color 255,255,255,255
fillcircle 25,300,25
fillcircle 775,300,25
drawlightning(50,300,750,300,400)
redraw
wait 100
wend
winExit
Demo Example 2
include "sdl.inc"
window 640,480,1
single m1,m2,m4,m3,m5
while key(27)=0
for y=0 to 480
m3 = m3+1
m1 = m1+9
m2 = m1
m6 = m3
for x=0 to 640
m4 = m4+19
m2 = m2+15
m6=m6+1
r = abs(sin(m1/100)+sin(m2/100)+sin((m1+m4)/600))*(255/3)
g = abs(sin((m6)/50) + sin(m3/100))*250
b = abs(sin(x*y/100000)*200)
Color r,g,b,255
SetPixel x, y
next
next
redraw
'SetFps 10
wend
winExit
Demo Example 3
include "sdl.inc"
window 512,512,1
TgaLoad 1,"tga/baum.tga"
TgaLoad 2,"tga/wmas.tga"
single a
SetMousePos 200,200
while key(27)=0
cls 0,0,0
mx = xMouse()
my = yMouse()
SprPos 2,0,0,1,1
SprBright 1,mx,my,0,100
SprInvers 1,mx+128,my,0
SprDarken 1,mx+256,my,0,50
SprBRA 1,mx,my+128,0, 50, a,80
SprDRA 1,mx+128,my+128,0,150,-a,55
SprBRA 1,mx+256,my+128,0, 0, a,255
a +=6
redraw
setfps 60
wend
winExit
[attachment deleted by admin]
-
I am wondering what might be a SDL library?
;D ;D ;D ;D
-
I am wondering what might be a SDL library?
Pozdrav iz grobnica
Is bananium rubens5-sdl for all groups. ;D
-
Sdl Demo 4
include "sdl.inc"
window 320,240,1
int frames[2], float fv
frames[1] = 15
TgaLoad 1,"tga/oma.tga"
LoadFont 1,"sdlfonts/tahoma.ttf",12
while Key(27)=0
cls 255,255,255
SprSize 1,260,140,frames[0],2.5
SprSize 1, 64,140,frames[1],2.5
fv = fv+.13
if fv >=1.0
fv =0.0
frames[1] = frames[1]-1
frames[0] = frames[0]+1
if frames[0]=16 then frames[0]=0
if frames[1] <0 then frames[1]=15
endif
textcolor 2,0,255
text "GRANDMOTHER DANCE",80,20,1
redraw
wait 10
wend
winExit
[attachment deleted by admin]
-
Sdl Demo 5
sunset flower
include "sdl.inc"
window 640,480,1
float i, a, c
r=rand(128,255):g=rand(128,255):b=rand(128,255)
Sub DrawCenter(sys x,y)
color r,g,b,100
fillcircle x,y,80
color b,g,r,128
drawcircle x,y,120
End Sub
while key(27)=0
clsA 28,28,28,128
for i=0 to 360 step 15
x=sin(i+a) * 100 + 330
y=cos(i+a) * 100 + 250
DrawCenter x, y
next
redraw
setfps 24
a +=.05
if a >=360 then
a=-a
end if
c +=.1
if c>=2 then
c=0
r=rand(96,255):g=rand(128,255):b=rand(64,255)
end if
wend
winExit
-
Sdl Demo 6
Sirpinski 3D
include "sdl.inc"
Window 640,480,1
cls 0,0,0
single x[3], y[3], c, px, py
x[1] =320
x[2] =0
x[3] =640
y[1] =0
y[2] =480
y[3] =480
c = Rand(1,3)
px= x[c]
py= y[c]
For i=0 To 15000
c= Rand(1,3)
px = px + (x[c] - px) / 2
py = py + (y[c] - py) / 2
color 245,202,180,255
DrawPoint px,py,14
color 240,102,80,255
DrawPoint px,py,12
Next
WaitKey
Quit
-
Sdl Demo 7
Caveman Synapse
include "sdl.inc"
Window 800,600,1
single ce,cm,newRe,newIm,oldRe,oldIm,zoom=2,mx,my
sys max=256,x,y,i
w = scrW
h = scrH
ce = -.99
cm = 0.27015
For x=0 to w
For y=0 to h
newRe = 2.5 * (x-w*.5) / (.7*zoom*w) + mx
newIm = (y-h*.5) / (.5*zoom*h) + my
For i=0 To max
oldRe = newRe
oldIm = newIm
newRe = oldRe * oldRe - oldIm * oldIm +ce
newIm = 2 * oldRe * oldIm + cm
if((newRe * newRe + newIm * newIm) >7) Then exit for
Next
color i*6,45,i*9,255
Setpixel x,y
Next
Next
WaitKey()
WinExit
-
8)
-
Hi Jack!
-
Sdl Demo 8
Sdl_Mandelbrot and an Accessoire.
include "sdl.inc"
window 512,512,1
single bx,by
single bw=256*2
single bh=256*2
single sx=-2.2
single sy=-1.7
single sw=3.4
single sh=3.4
cls 255,255,255
for x=bx to bx+bw
for y=by to by+bh
gx=(x-bx)/bw*sw+sx
gy=(y-by)/bh*sh+sy
zx=gx
zy=gy
for c=1 to 256
col=c
nzx=zx*zx - zy*zy + gx
zy=2*zx*zy+gy
zx=nzx
if zx*zx + zy*zy >5 then
col=c
exit for
end if
next
r = GetR(col)*256+col*32*.5
g = GetG(col)*256+col*64*.5
b = GetB(col)*256+col*32*.8
color r,g,b,255
setpixel x,y
next
next
waitkey
winExit
[attachment deleted by admin]
-
Sdl Demo 9
Alien Visit.
include "sdl.inc"
window 800,600,1
loadsprite 1,"bmp/stupid.bmp",1
float a,t,xp,yp,zp,xs,ys,w=0
int xstars[400]
int ystars[400]
for x=0 to 400
xstars[x] = rand(0,800)
ystars[x] = rand(0,600)
next
while Key(27)=0
cls 0,0,0
for x=0 to 400
color rand(64,255),rand(64,255),rand(64,255),255
setpixel xstars[x],ystars[x]
next
for t=0 to 360
xp = 120 * cos(t*3)
yp = 120 * sin(t*w)
zp = (a*sin(t))/2
xs = (200 + xp * 320 / 460)
ys = (200 - yp * 320 / 460)
sprite 1,200+xs+(-zp),100+ys+( zp),0
next
a +=1
if a >=440 then
a= -a
w +=1
if w=14 then w=1
end if
redraw
wait 10
wend
winExit
[attachment deleted by admin]