Post small ICE programs which run fancy graphical effects!

Here are two which I made today in school:
They generate random pictures of quadratic sprites.
The picture changes like 3-5 times per second!

Just using copy & paste, sending to your calc and compiling it schould work.

Version in BLACK-WHITE:


Code:
A1
det(0)
minY10,10,"FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF→A
minY10,10,"00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000→B
0→C→D
Repeat getKey(15)
For(K,0,768)
det(9,1)
randInt(0,1)→E
If E
det(59,A,C,D)
Else
det(59,B,C,D)
End
C+10*(D=230)-C*(C=320)→C
D+10*(D≠230)-D*(D=230)→D
End
det(10)
End
det(1)


Version RAINBOW-FLAG:


Code:
A1
det(0)
minY10,10,"E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0E0→A
minY10,10,"E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3E3→B
minY10,10,"E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7E7→F
minY10,10,"07070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707070707→G
minY10,10,"3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B3B→H
minY10,10,"D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8D8→I
0→C→D
Repeat getKey(15)
For(K,0,768
det(9,1)
randInt(0,5)→E
If not(E
det(59,A,C,D)
End
If E=1
det(59,B,C,D)
End
If E=2
det(59,F,C,D)
End
If E=3
det(59,G,C,D)
End
If E=4
det(59,H,C,D)
End
If E=5
det(59,I,C,D)
End
C+10*(D=230)-C*(C=320)→C
D+10*(D≠230)-D*(D=230)→D
End
det(10)
End
det(1)
Nice Idea! Very Happy

Code:
[i]A
det(0)
0→A
220→X

Repeat getkey(15)
det(5,255)
det(40,220,120,3)
det(40,100,120,3)
(255+cos(A))*60/255-60→B
(255+sin(A))*60/255-60→C
det(40,X+B,120+C,5)
det(37,X,120,X+B,120+C)
det(10)

If X=220
A+2→A
If A=128:100→X:256→A:End
Else
A-2→A
If A=0:220→X:-128→A:End
End
End
det(1)


EDIT:
Oh, now it should work.
Uh, I`d really like to see what your program does,
but it seems like there is something wrong with this command line:
Code:
det(37,X,120,X+B,120,C)
Thanks for correcting your code. It`s a very cool program.
It looks also very nice without the connecting line.
Try also this:
Falling trough a hole or what ever you think it is:

Code:
A1
det(0)
Repeat getKey(15)
randInt(0,255)→B
For(A,1,200)
det(40,160,120,A)
End
det(2,B)
End
det(1)


Hold [clear] to exit.
  
Register to Join the Conversation
Have your own thoughts to add to this or any other topic? Want to ask a question, offer a suggestion, share your own programs and projects, upload a file to the file archives, get help with calculator and computer programming, or simply chat with like-minded coders and tech and calculator enthusiasts via the site-wide AJAX SAX widget? Registration for a free Cemetech account only takes a minute.

» Go to Registration page
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement