Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13

Paul · **Posted:** Mon Jul 05, 2004 6:21 pm

can't believe you forgot my drawfillpolygon effect!

code:

%it is recommended that you enter sides amounting from 100-400
setscreen ("graphics: max;max;offscreenonly")
var number: int
put "How many sides?"
get number
colorback (black)
cls
var x : array 1 .. number of int
var y : array 1 .. number of int
var incx: array 1..number of int
var incy: array 1..number of int
for a: 1..number
randint (x(a), 100, maxx-100)
randint (y(a), 100, maxy-100)
incx(a):=Rand.Int(-5,5)
incy(a):=Rand.Int(-5,5)
end for
loop
for a: 1..number
x(a)+=incx(a)
y(a)+=incy(a)
end for
drawfillpolygon (x, y, number, 12)
View.Update
cls
for a: 1..number
if y(a)>=maxy or y(a) <= 0 then
incy(a):=-incy(a)
end if
if x(a)<=0 or x(a)>=maxx then
incx(a):=-incx(a)
end if
end for
end loop

the_short1 · **Posted:** Tue Jul 06, 2004 10:19 am

try using thius iwht ur program

code:

setscreen ("graphics:max;max,nobuttonbar,offscreenonly")

const NUMBALLS := 250
const SIZE := 3
const LEDGE := 0 + SIZE
const REDGE := maxx - SIZE
const BEDGE := 0 + SIZE
const TEDGE := maxy - SIZE
const COLOUR1 := 7
%background
const COLOUR2 := 14
%ball colour
const DTIME := 8
const TILT := 75

i think it looks WICKEd that way.. hey.. if its apealing to the eyes.. post it here Razz

the_short1 · **Posted:** Tue Jul 06, 2004 10:25 am

was i spoed to put it here?

try this

%it is recommended that you enter sides amounting from 100-400
setscreen ("graphics: max;max;nobuttonbar")
var number: int
put "How many sides?"
get number
View.Set ("offscreenonly")

that works a little bett.er

but me like... keep up good stuff paul

this_guy · **Posted:** Tue Jul 06, 2004 9:36 pm

that looks really slow on my comp

but heck, if it looks gud! Very Happy

does it look like a lotto 647 thing to any1?

the_short1 · **Posted:** Tue Jul 06, 2004 10:33 pm

yea.. lotto649 Wink

try it at a friends houes with a good comp

the_short1 · **Posted:** Thu Jul 08, 2004 7:18 pm

http://www.compsci.ca/v2/download.php?id=1912

^ new one! july 8th!

its calleed Tunel Vision!

let it go for a while then check it out...
to me its like drainage pipe with all the rifles...
or... ur throat with all those rings of cartilage...

either way... looks good..

i got this from the maze game i just made... and kidna revamped it a little..

ENOY!

this_guy · **Posted:** Fri Jul 09, 2004 5:26 pm

reminds me of the really annoying window screensaver (pipes?)

the_short1 · **Posted:** Fri Jul 09, 2004 7:18 pm

IN CONTEXT MAYBE... BUT DEFENATELY NOT LOOK..

EDIT :srry for caps.. forgot it was on..

u may want to look at some winamp 5 AVS visuals....
tunel vision also looks like Z-G-Maze (the circle one) <dont know exact name..

RaPsCaLLioN · **Posted:** Fri Aug 13, 2004 1:20 am

Ok... here's one.
Efficient: No
Time Consuming: Yes
Easy: No
Cool: YES

This will clear any screen to black (with some patience). Use my attached .bmp or uncomment the 'cls' for just a white to black.

code:

var iWindow : int := Window.Open ("graphics : svga, noecho, offscreenonly")
View.Set ("offscreenonly")

var picToClear : int
var iSizeX : int := maxx
var iSizeY : int := maxy
var iTempColour : int
var rR, rG, rB, iRandDec : real
var iCount : int := 1
var iBlacked : int := 0
var iBlockSize : int := 40

picToClear := Pic.FileNew ("pic.bmp")
picToClear := Pic.Scale (picToClear, iSizeX, iSizeY)
Pic.Draw (picToClear, 1, 1, picCopy)

var aiGrid : array 1 .. maxx div iBlockSize, 1 .. maxy div iBlockSize of int
var abBlack : array 0 .. maxx div iBlockSize, 0 .. maxy div iBlockSize of boolean
for i : 0 .. maxx div iBlockSize
for j : 0 .. maxy div iBlockSize
abBlack (i, j) := false
end for
end for
%cls
loop
View.Update
for i : 0 .. (maxx div iBlockSize)
for j : 0 .. (maxy div iBlockSize)
if abBlack (i, j) = true then
else
iRandDec := (Rand.Real + 4)
for a : 1 .. iBlockSize
for b : 1 .. iBlockSize
iTempColour := whatdotcolour (i * iBlockSize + a, j * iBlockSize + b)
RGB.GetColour (iTempColour, rR, rG, rB)
if rR <= 0.1 and rG <= 0.1 and rB <= 0.1 then
iBlacked += 1
else
if iCount = 1 then
iTempColour := RGB.AddColour (rR / iRandDec, rG, rB)
elsif iCount = 2 then
iTempColour := RGB.AddColour (rR, rG / iRandDec, rB)
elsif iCount = 3 then
iTempColour := RGB.AddColour (rR, rG, rB / iRandDec)
end if
drawdot (i * iBlockSize + a, j * iBlockSize + b, iTempColour)
end if
end for
end for
if iBlacked >= iBlockSize * iBlockSize then
abBlack (i, j) := true
iBlacked := 0
else
iBlacked := 0
end if
iCount := Rand.Int (1, 3)
end if
end for
end for
exit when buttonmoved ("down")
end loop

Window.Close (iWindow)

the_short1 · **Posted:** Fri Aug 13, 2004 3:09 pm

nice stuff raps... but so dam slow on my very dam slow pc...

well u inspired me to make a couple more.

whiped these up..

one clears the screen by eliminating one color at a time... dot by dot

the other... continually fills the screen with squares of random color until they are all black... < cool stuff!!! disco squares!!!

enjoy..

	Computer Science Canada Programming C, C++, Java, PHP, Ruby, Turing, VB Username: Password: Register
Wiki Blog Search Turing Chat Room Members