graphics
randomize
set toolbar off
set orientation 4
maxx1 = screen_width()
maxy1 = screen_height()
minx = (maxx1- maxy1)/2
miny = 0
maxx = minx+maxy1
maxy = maxy1
cx = minx + (maxx-minx)/2
cy = maxy1/2
nc = 30
gosub setcolours
here:
graphics clear 1,1,1
fill color .4+ rnd(.4),.4+ rnd(.4),.4+ rnd(.4)
fill rect minx,miny to maxx,maxy
gosub changecolours
for i = 1 to 5 + rnd(4)
rn = rnd(4)
c=rnd(nc)
fill color colsr(c),colsg(c),colsb(c)
graphics mode overlay
if rnd(4) = 0 and i < 3 then graphics mode normal
if rn = 0 then csquare()
if rn = 1 then ccircle()
if rn = 2 then cdiamond()
if rn = 3 then
if rz = 1 then
ccross()
endif
endif
next i
for i = 1 to rnd(3)+2
sdisk()
next i
for i = 1 to rnd(3)+2
ssquare()
next i
gosub dotch
graphics mode normal
goto here
saveit:
GRAPHICS SAVE minx,miny, maxy,maxy TO "out.png"
ALBUM EXPORT "out.png"
return
setcolours:
cv = 1
dim colsr(30)
dim colsg(30)
dim colsb(30)
for ci = 0 to 29
colsr(ci) = rnd(cv)
colsg(ci) = rnd(cv)
colsb(ci) = rnd(cv)
next ci
return
changecolours:
cv=1
for ci = 0 to 29
colsr(ci) = rnd(cv)
colsg(ci) = rnd(cv)
colsb(ci) = rnd(cv)
next ci
return
dotch:
xx = -1
do
get touch 0 as xx,yy
until xx > -1
if xx < minx then gosub saveit
'get touch 1 as xx,yy
if xx > maxx then
graphics mode normal
graphics clear 1,1,1
end
endif
return
def ccircle()
s = 50 + rnd(.maxy/2-50)
fill circle .cx,.cy size s
end def
def csquare()
s = 100 + rnd(.maxy/2-100)
fill rect .cx,.cy size s
end def
def cdiamond()
adon = rnd(.maxy/2-100)+ 100
if i > 30 then adon = rnd(60) + 10
px(0) = .cx-adon
py(0) = .cy
px(2) = .cx+adon
py(2) = .cy
px(1) = .cx
py(1) = .cy-adon
px(3) = .cx
py(3) = .cy + adon
fill poly px,py count 4 start 0
end def
def ccross()
w = rnd(50)+ 50
fill rect .cx - w,.miny to .cx + w,.maxy
fill rect .minx, .cy - w to .maxx,.cy + w
end def
def ssquare()
s = rnd(50) + 50
d = rnd(.maxy/3.5)+ 50
x1 = .cx - d
y1 = .cy - d
fill rect x1,y1 size s
x2 = .cx + d
y2 = .cy - d
fill rect x2,y2 size s
x3 = .cx - d
y3 = .cy + d
fill rect x3,y3 size s
x4 = .cx + d
y4 = .cy + d
fill rect x4,y4 size s
end def
def sdisk()
s = rnd(50) + 50
d = rnd(.maxy/3.5)+ 50
x1 = .cx - d
y1 = .cy - d
fill circle x1,y1 size s
x2 = .cx + d
y2 = .cy - d
fill circle x2,y2 size s
x3 = .cx - d
y3 = .cy + d
fill circle x3,y3 size s
x4 = .cx + d
y4 = .cy + d
fill circle x4,y4 size s
end def
- image.jpg (52.69 KiB) Viewed 1774 times
- image.jpg (54.74 KiB) Viewed 1774 times
- image.jpg (73.24 KiB) Viewed 1774 times
- image.jpg (49.56 KiB) Viewed 1774 times
