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

TheFerret · **Posted:** Wed Mar 10, 2004 10:06 am

I have a cool way to clear the screen with out giving you a seisure...

code:

/* Travis Baker
March 9, 2004
Pyramid
*/
setscreen ("graphics:400;400")
var x, y, x1, y1, col, col1, num, changex, changex1, changey, changey1 : int
x := 0
y := 0
x1 := 400
y1 := 400
col := 1
col1 := 255
changex := 1
changex1 := 1
changey1 := 1
changey := 1
put "Enter number (Below 255)"
get num
cls
loop
for i : 1 .. 400
delay (25)
x += changex
y += changex1
x1 += changex1
y1 += changey1
x += 1
y += 1
x1 -= 1
y1 -= 1
col += 2
if col >= 255 then
col := 1
end if
drawbox (x, y, x1, y1, 0)
x += 1
y += 1
x1 -= 1
y1 -= 1
%col1-=num
col1 := num + 23
if col1 <= 1 or col1 >= 255 then
col1 := 255
end if
%You can change col to any colour number...
drawbox (x, y, x1, y1, col)
if x >= maxx then
changex *=-1
elsif x1>=maxx then
changex1*=-1
elsif y>=maxy then
changey*=-1
elsif y1>=maxy then
changey1*=-1
elsif x<=0 then
changex*=-1
elsif x1<=0 then
changex*=-1
elsif y<=0 then
changey*=-1
elsif y1<=0 then
changey1*=-1
end if
end for
end loop

Paul · **Posted:** Wed Mar 10, 2004 12:10 pm

Hehe, pretty good, but ah, seizure! I get seizures from anything Very Happy

. we should make this also a screen saver thread since I have a mezmerizing one, and spend the whole class staring at it...
it makes a interesting tapestry patter one you look at it for a long time Very Happy

based on cherry pie pattern; I love the look of it
change the drawoval to drawfilloval, and it would have an interesting look too. If the movement disappears, just wait for 2 seconds.

code:

setscreen ("Graphics: max, max")
var col2, x, y, xx, yy, col: int:=50
xx:=3
yy:=3
loop
randint (col, 12, 150)
randint (col2, 12, 150)
for a: 1..5200
if a<2254 then

else
col:=col2
end if
drawbox (0, 0, maxx, maxy, black)
drawoval (x, y, 10, 10, col)
x+=xx
y+=yy
if whatdotcolor (x+11, y)= black or x+10>=maxx then
xx:=-3
elsif whatdotcolor (x-11, y)=black or x-10<=0 then
xx:=3
end if
if whatdotcolor (x, y+11) = black or y+10>=maxy then
yy:=-3
elsif whatdotcolor (x, y-11)=black or y-10<=0 then
yy:=3
end if
delay (3)
end for
end loop

the_short1 · **Posted:** Wed Mar 10, 2004 5:03 pm

yea ferreet.... i made one VERY VERY similiar to that... heres my version of it.. i made it like 3 weeks ago... but it got lost.... but its found now

nice Cervants.... what we need to nag at Holtsolf is... ability to compile .t into .scr... that would KICK FRICKING AS$!!!!

also... maybe put "nobuttonbar" into first line of code... for setscreen.... cuz it makes it look better.... also i like the partern taht happens....

the_short1 · **Posted:** Thu Mar 11, 2004 7:42 pm

Check out the first post... i added 2 more...
Thick line visuals.... must see and must experiment with them

Paul · **Posted:** Thu Mar 11, 2004 8:07 pm

hm, nice, but you must shorten your avatar.

the_short1 · **Posted:** Thu Mar 11, 2004 9:37 pm

yea,,.,, i noticed it right away..... i changed my avatar pic isntead of sig pic...... tahts the second time ive done that... at least this time it didn't take me ten minutes to realize my goof

guruguru · **Posted:** Sat Mar 13, 2004 12:41 pm

What is an avator? or avator pic? And how can it be too large?

the_short1 · **Posted:** Sat Mar 13, 2004 1:06 pm

an 'avatar' is the small picture under you name... for instance mine is a dodge viper...

now... i acidently put my 'kevin the short' picture from my 'signature' into my 'avatar' slot... and therefore... you couln';t read anything.. the table with alll your name and stuff was pushed so far to the right/...

now... if you go find a picture that you like.. PM me (click on the little PM button on one of my posts.. ) (tell me where and what the picture is) and i will hook you up, hosting the picture on my server for 4 BITS (normaly it costs 10 bits), and i will size it down as nesecary... PS: my server is fast...and wont fail

guruguru · **Posted:** Sat Mar 13, 2004 8:17 pm

Nah, it's okay. I was jsut curious... thx anyways though! Very Happy

the_short1 · **Posted:** Sat Mar 13, 2004 10:32 pm

ok... i built those 2 Thick Line Visuals from this program: See Below

i like this one the best due to its simplicity and effectiveness... also... it lookz the sweetest

Homer_simpson · **Posted:** Tue Mar 16, 2004 12:35 pm

bored

code:

colorback (black)
cls
setscreen ("offscreenonly")

proc rotate (XX1, YY1 : real, var XX2, YY2 : real, Rotaion : real)
var xx := (((XX1 - XX2) * cosd (Rotaion)) + ((YY1 - YY2) * sind (Rotaion)))
var yy := (((YY1 - YY2) * cosd (Rotaion)) - ((XX1 - XX2) * sind (Rotaion)))
YY2 := YY1 - yy
XX2 := XX1 - xx
end rotate

color (white)
for i : 1 .. 25
put "Stuffs on the screen Stuffs on the screen Stuffs Stuffs on the screen Stuffs"
end for
View.Update
var x, y := 0.0;
for i : 1 .. 360
for j : 1 .. 14
for k : 1 .. 10
rotate (320, 200, x, y, .1)
drawline (320, 200, round (x), round (y), 16 + j)
end for
end for
rotate (320, 200, x, y, -13)
View.Update ()
drawfillarc (320, 200, 450, 450, 198 + (360 - i), 200 + (360 - i) + 14, black)
end for

Paul · **Posted:** Tue Mar 16, 2004 12:40 pm

geez, homer, first time running your program, my turing goes fatal error, and I can't get it started up again.... reinstallation time...

the_short1 · **Posted:** Tue Mar 16, 2004 12:49 pm

nice homer.... worked fine for me.... and looked GREAT>.... very effective..

i want to do a line rotation like that... but making a circle...tony gave me a formula to test if a line lies on a circle... but i need the turing commands to go at it...

like...

loop
x := ???
y := ???
drawline (maxx div 2,maxy div 2,maxx div 2 + 10+x,maxy div 2 + 10 +y,colorz)
end loop

can someone fill me in.... i know
x*x + y*y = r*r but thats just tests to see if it lies on line....but i dont know how to incorporate... or even if its needed...thx

Homer_simpson · **Posted:** Thu Mar 18, 2004 3:21 am

like this:

code:

colorback (black)
cls
%setscreen ("offscreenonly")

proc rotate (XX1, YY1 : real, var XX2, YY2 : real, Rotaion : real)
var xx := (((XX1 - XX2) * cosd (Rotaion)) + ((YY1 - YY2) * sind (Rotaion)))
var yy := (((YY1 - YY2) * cosd (Rotaion)) - ((XX1 - XX2) * sind (Rotaion)))
YY2 := YY1 - yy
XX2 := XX1 - xx
end rotate

var x, y := 0.0;
for i : 1 .. 3600
rotate (320, 200, x, y, .1)
drawline (320, 200, round (x), round (y), white)
% View.Update ()
end for

the_short1 · **Posted:** Thu Mar 18, 2004 4:44 pm

nice homer... took me a few seconds to figure out how to change line size and location... but its all good... i will be submitting a visual i made with it soon... ill add your name in title credits...

thx.... id give ya bits but ur a MOD......
i sitll dont get that cosd and Sind... but thats ok... i learn it next year in comp sci...gr.11

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