Cool Ways To Clear Your Screen: (REVAMPED!) +2 More August13
Author |
Message |
TheFerret
|
Posted: Wed Mar 10, 2004 10:06 am Post subject: (No subject) |
|
|
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
|
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
Paul
|
Posted: Wed Mar 10, 2004 12:10 pm Post subject: (No subject) |
|
|
Hehe, pretty good, but ah, seizure! I get seizures from anything . 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
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 Post subject: (No subject) |
|
|
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....
Description: |
similiar to ferrets.. but a little more code.. |
|
Download |
Filename: |
clear ne kevin.t |
Filesize: |
732 Bytes |
Downloaded: |
95 Time(s) |
|
|
|
|
|
|
the_short1
|
Posted: Thu Mar 11, 2004 7:42 pm Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
hm, nice, but you must shorten your avatar.
|
|
|
|
|
|
the_short1
|
Posted: Thu Mar 11, 2004 9:37 pm Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
What is an avator? or avator pic? And how can it be too large?
|
|
|
|
|
|
the_short1
|
Posted: Sat Mar 13, 2004 1:06 pm Post subject: (No subject) |
|
|
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
|
|
|
|
|
|
Sponsor Sponsor
|
|
|
guruguru
|
Posted: Sat Mar 13, 2004 8:17 pm Post subject: (No subject) |
|
|
Nah, it's okay. I was jsut curious... thx anyways though!
|
|
|
|
|
|
the_short1
|
Posted: Sat Mar 13, 2004 10:32 pm Post subject: (No subject) |
|
|
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
Description: |
This is the base program for the 2 thick line ones on the First page |
|
Download |
Filename: |
Nice Clear Screen Method, Square, Thick Lines.t |
Filesize: |
1.33 KB |
Downloaded: |
107 Time(s) |
|
|
|
|
|
|
Homer_simpson
|
Posted: Tue Mar 16, 2004 12:35 pm Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
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 Post subject: (No subject) |
|
|
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
|
|
|
|
|
|
|
|