Animation / Discussion

We're glad you came by, but you might find what you're looking for elsewhere. TI-Basic Developer is not the site it once was. While its information on commands and other calculator features remains almost second-to-none, its forum, archives, and even hosting service, Wikidot, have been decaying for years. The calculator community would love to see what you're working on, or help you in your next coding adventure, but TI-Basic Developer is no longer the place to do it. Instead, you should head over to Cemetech (primarily American) or TI-Planet (primarily international). Both are active, well-established forums with their own archives, chatrooms, reference material, and abundant coding tools and resources. We'll see you there, we hope.

Forum Attachments

This is the discussion related to the wiki page Animation.

jnesselr 06 Oct 2008 01:17

I like my program. Of course, then again, I'm biased.

Re:

builderboy 06 Oct 2008 02:35

I like it too, the symetric shaping and the quick animation are cool,
i just feel it could be optimized a lot, and become even better.

Last edited on 06 Oct 2008 02:37 by builderboy Show more

I like it too!

GoVegan 06 Oct 2008 05:30

It must have taken you hours to create, and the result is certainly a reflection of the effort.

But 13000+ bytes!!!

Maybe you should still optimise it. Sure, the challenge is over, but it will make you proud to have the same output for less memory. Actually, why don't you post the code up, and we can all work as a community to optimise it?

Re: I like it too!

jnesselr 06 Oct 2008 21:12

O.k., Here it is.

+ show block

ClrDraw
For(A,Xmin,Xmax,ΔX
Vertical A
End
{31,31,30,30,30,31,32,32,32,32,31,30,29,29,29,30,31,32,33,33,33,29,28,27,29,29,29,33,34,35,33,33,33,32,31,30,30,30,31,32,32,26,25,24,29,29,29,36,37,38,33,33,33,24,24,24,30,31,32,38,38,38,32,31,30,24,24,24,33,34,35,38,38,38,29,28,27,24,24,24,36,37,38,38,38,38,26,25,24,25,26,27,38,38,38,37,36,35,24,24,24,27,27,27,37,36,35,35,35,35,25,26,27,27,27,27,34,33,32,35,35,35,28,29,30,27,26,25,31,31,31,35,36,37,31,31,31}→L₁
{47,48,48,47,46,46,46,47,48,49,49,49,48,47,46,45,45,45,46,47,48,49,49,49,45,44,43,45,45,45,49,50,51,48,48,48,47,46,46,46,47,49,49,49,42,41,40,45,45,45,52,53,54,48,47,46,40,40,40,46,47,48,54,54,54,45,44,43,40,40,40,49,50,51,54,54,54,42,41,40,40,40,40,52,53,54,54,54,54,40,40,40,41,42,43,54,54,54,53,52,51,41,42,43,43,43,43,53,52,51,51,51,51,44,45,46,43,43,43,50,49,48,51,51,51,47,47,47,43,42,41,47,47,47,51,52,53}→L₂
For(A,1,dim(L₁)
Pxl-Change(L₁(A),L₂(A)
End
{37,36,35,31,31,31,25,26,27,31,31,31,35,35,35,32,33,34,27,27,27,30,29,28,35,35,35,35,36,37,27,27,27,27,26,25,35,36,37,38,38,38,27,26,25,24,24,24,38,38,38,38,37,36,24,24,24,24,25,26,38,38,38,35,34,33,24,24,24,27,28,29,38,38,38,32,31,30,24,24,24,30,31,32,38,37,36,29,29,29,24,25,26,33,33,33,35,34,33,29,29,29,27,28,29,33,33,33,31,30,31,32,30,30,32,32}→L₁
{47,47,47,41,42,43,47,47,47,53,52,51,48,49,50,43,43,43,46,45,44,51,51,51,51,52,53,43,43,43,43,42,41,51,51,51,54,54,54,43,42,41,40,40,40,51,52,53,54,53,52,40,40,40,40,41,42,54,54,54,51,50,49,40,40,40,43,44,45,54,54,54,48,47,46,40,40,40,46,47,48,54,54,54,45,45,45,40,41,42,49,49,49,54,53,52,45,45,45,43,44,45,49,49,49,51,50,49,48,47,46,47,48,46,46,48}→L₂
For(A,1,dim(L₁)
Pxl-Change(L₁(A),L₂(A)
End
{30,31,32,33,33,33,32,31,30,29,29,29,30,31,32,32,32,31,30,30,31,31,30,29,29,29,30,31,32,33,33,33,32,32,32,32,31,30,30,30,31,31,31,32,33,33,33,32,31,30,29,29,29,30,30,31,32,32,32,31,30,30,31,31,30,29,29,29,30,31,32,33,33,33,32,32,31,30,30,30,31,32,32,31,31,32,33,33,33,32,31,30,29,29,29,30,30,31,32,32,32,31,30,30,31,31,30,29,29,29,30,31,32,33,33,33,32,32,32,32,31,30,30,30,31,31,31,30,29,29,29,30,31,32,33,33,33,32,32,32,32,31,30,30,30,31,31,31,32,33,33,33,32,31,30,29,29,29,30,30,30,30,31,32,32,32,31,31,31,32,33,33,33,32,31,30,29,29,29,30,30,30,30,31,32,32,32,31,31,31,30,29,29,29,30,31,32,33,33,33,32,32,32,32,31,30,30,30,31,31,31,30,29,30,31,32,33,32,32,31,30,29,30,31,32,33}→L₁
{53,53,53,54,55,56,57,57,57,56,55,54,54,54,54,55,56,56,56,55,55,41,41,40,39,38,37,37,37,38,39,40,41,40,39,38,38,38,39,40,40,39,61,61,62,63,64,65,65,65,64,63,62,61,62,62,62,63,64,64,64,63,63,33,33,32,31,30,29,29,29,30,31,32,33,32,32,32,31,30,30,30,31,31,69,69,70,71,72,73,73,73,72,71,70,69,70,70,70,71,72,72,72,71,71,25,25,24,23,22,21,21,21,22,23,24,25,24,23,22,22,22,23,24,24,23,17,17,16,15,14,13,13,13,14,15,16,17,16,15,14,14,14,15,16,16,15,77,77,78,79,80,81,81,81,80,79,78,77,78,79,80,80,80,79,78,78,79,85,85,86,87,88,89,89,89,88,87,86,85,86,87,88,88,88,87,86,86,87,9,9,8,7,6,5,5,5,6,7,8,9,8,7,6,6,6,7,8,8,7,1,1,0,0,0,0,0,1,93,93,93,94,94,94,94,94}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
DelVar L₁DelVar L₂
{29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,30,32,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,33,32,30,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,29,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30,30}→L₁
{47,46,40,39,38,32,31,30,24,23,22,16,15,14,8,7,6,0,0,0,0,6,7,8,14,15,16,22,23,24,30,31,32,38,39,40,46,47,48,54,55,56,62,63,64,70,71,72,78,79,80,86,87,88,94,94,94,94,88,87,86,80,79,78,72,71,70,64,63,62,56,55,54,48,47,46,45,41,40,39,38,37,33,32,31,30,29,25,24,23,22,21,17,16,15,14,13,9,8,7,6,5,1,1,5,6,7,8,9,13,14,15,16,17,21,22,23,24,25,29,30,31,32,33,37,38,39,40,41,45,46,47,48,49,53,54,55,56,57,61,62,63,64,65,69,70,71,72,73,77,78,79,80,81,85,86,87,88,89,93,93,89,88,87,86,85,81,80,79,78,77,73,72,71,70,69,65,64,63,62,61,57,56,55,54,53,49,48}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A))
End
{31,30,32,31,30,32,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32,32,31,30,30,31,32}→L₁
{1,1,1,5,5,5,6,6,6,7,7,7,8,8,8,9,9,9,13,13,13,14,14,14,15,15,15,16,16,16,17,17,17,21,21,21,22,22,22,23,23,23,24,24,24,25,25,25,29,29,29,30,30,30,31,31,31,32,32,32,33,33,33,37,37,37,38,38,38,39,39,39,40,40,40,41,41,41,45,45,45,46,46,46,47,47,47,48,48,48,49,49,49,53,53,53,54,54,54,55,55,55,56,56,56,57,57,57,61,61,61,62,62,62,63,63,63,64,64,64,65,65,65,69,69,69,70,70,70,71,71,71,72,72,72,73,73,73,77,77,77,78,78,78,79,79,79,80,80,80,81,81,81,85,85,85,86,86,86,87,87,87,88,88,88,89,89,89,93,93,93}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A))
End
DelVar L₁DelVar L₂
{30,30,32,32,33,29,30,29,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,30,29,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,32,33,33,32,30,29,29,30,30,32,32,33}→L₁
{93,94,93,94,93,93,89,89,89,89,88,88,88,88,87,87,87,87,86,86,86,86,85,85,85,85,81,81,81,81,80,80,80,80,79,79,79,79,78,78,78,78,77,77,77,77,73,73,73,73,72,72,72,72,71,71,71,71,70,70,70,70,69,69,69,69,65,65,65,65,64,64,64,64,63,63,63,63,62,62,62,62,61,61,61,61,57,57,57,57,56,56,56,56,55,55,55,55,54,54,54,54,53,53,53,53,49,49,49,49,48,48,48,48,47,47,47,47,46,46,46,46,45,45,45,45,41,41,41,41,40,40,40,40,39,39,39,39,38,38,38,38,37,37,37,37,33,33,33,33,32,32,32,32,31,31,31,31,30,30,30,30,29,29,29,29,25,25,25,25,24,24,24,24,23,23,23,23,22,22,22,22,21,21,21,21,17,17,17,17,16,16,16,16,15,15,15,15,14,14,14,14,13,13,13,13,9,9,9,9,8,8,8,8,7,7,7,7,6,6,6,6,5,5,5,5,1,1,0,1,0,1}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
DelVar L₁DelVar L₂
{28,29,29,34,33,33,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,33,34,34,33,29,28,28,29,29,34,33,33}→L₁
{1,1,0,1,1,0,5,5,5,5,6,6,6,6,7,7,7,7,8,8,8,8,9,9,9,9,13,13,13,13,14,14,14,14,15,15,15,15,16,16,16,16,17,17,17,17,21,21,21,21,22,22,22,22,23,23,23,23,24,24,24,24,25,25,25,25,29,29,29,29,30,30,30,30,31,31,31,31,32,32,32,32,33,33,33,33,37,37,37,37,38,38,38,38,39,39,39,39,40,40,40,40,41,41,41,41,45,45,45,45,46,46,46,46,47,47,47,47,48,48,48,48,49,49,49,49,53,53,53,53,54,54,54,54,55,55,55,55,56,56,56,56,57,57,57,57,61,61,61,61,62,62,62,62,63,63,63,63,64,64,64,64,65,65,65,65,69,69,69,69,70,70,70,70,71,71,71,71,72,72,72,72,73,73,73,73,77,77,77,77,78,78,78,78,79,79,79,79,80,80,80,80,81,81,81,81,85,85,85,85,86,86,86,86,87,87,87,87,88,88,88,88,89,89,89,89,93,93,94,93,93,94}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
DelVar L₁DelVar L₂
{27,28,28,35,34,34,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,27,28,34,35,35,34,28,27,27,28,34,35,35,34,28,27,27,28,34,35,35,34,34,27,28,28}→L₁
{93,93,94,93,93,94,89,89,89,89,88,88,88,88,87,87,87,87,86,86,86,86,85,85,85,85,81,81,81,81,80,80,80,80,79,79,79,79,78,78,78,78,77,77,77,77,73,73,73,73,72,72,72,72,71,71,71,71,70,70,70,70,69,69,69,69,65,65,65,65,64,64,64,64,63,63,63,63,62,62,62,62,61,61,61,61,57,57,57,57,56,56,56,56,55,55,55,55,54,54,54,54,53,53,53,53,49,49,49,49,48,48,48,48,47,47,47,47,46,46,46,46,45,45,45,45,41,41,41,41,40,40,40,40,39,39,39,39,38,38,38,38,37,37,37,37,33,33,33,33,32,32,32,32,31,31,31,31,30,30,30,30,29,29,29,29,25,25,25,25,24,24,24,24,23,23,23,23,22,22,22,22,21,21,21,21,17,17,17,17,16,16,16,16,15,15,15,15,14,14,14,14,13,13,13,13,9,9,9,9,8,8,8,8,7,7,7,7,6,6,6,6,5,5,5,5,1,1,0,1,1,0}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
{27,27,35,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,35,27,27,35,27,35,35,27}→L₁
{50,44,44,50,58,58,36,36,28,28,66,66,74,74,20,20,12,12,82,82,90,90,4,4,2,2,92,92,84,84,10,10,18,18,76,76,68,68,26,26,34,34,60,60,42,42,52,52}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
For(B,1,50
End
End
{27,35,35,27,27,35,35,27,27,35,35,27,35,27,27,35,35,27,27,35,35,27,27,35,28,29,30,31,32,33,34,35,34,33,32,31,30,29,28,27,28,29,30,31,32,33,34,35,34,33,32,31,30,29,28,27,28,28,27,35,34,34,35,34,34,28,28,27}→L₁
{43,51,59,35,27,67,75,19,11,83,91,3,43,51,59,35,27,67,75,19,11,83,91,3,0,0,0,0,0,0,0,1,1,1,1,1,1,1,1,1,94,94,94,94,94,94,94,93,93,93,93,93,93,93,93,93,93,92,92,92,92,93,2,2,1,1,2,2}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
{33,32,31,30,29,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34}→L₁
{2,2,2,2,2,3,3,3,3,3,3,3,4,4,4,4,4,4,4,5,5,5,5,5,5,5,6,6,6,6,6,6,6,7,7,7,7,7,7,7,8,8,8,8,8,8,8,9,9,9,9,9,9,9,10,10,10,10,10,10,10,11,11,11,11,11,11,11,12,12,12,12,12,12,12,13,13,13,13,13,13,13,14,14,14,14,14,14,14,15,15,15,15,15,15,15,16,16,16,16,16,16,16,17,17,17,17,17,17,17,18,18,18,18,18,18,18,19,19,19,19,19,19,19,20,20,20,20,20,20,20,21,21,21,21,21,21,21,22,22,22,22,22,22,22,23,23,23,23,23,23,23,24,24,24,24,24,24,24,25,25,25,25,25,25,25}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
{28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28}→L₁
{26,26,26,26,26,26,26,27,27,27,27,27,27,27,28,28,28,28,28,28,28,29,29,29,29,29,29,29,30,30,30,30,30,30,30,31,31,31,31,31,31,31,32,32,32,32,32,32,32,33,33,33,33,33,33,33,34,34,34,34,34,34,34,35,35,35,35,35,35,35,36,36,36,36,36,36,36,37,37,37,37,37,37,37,38,38,38,38,38,38,38,39,39,39,39,39,39,39,40,40,40,40,40,40,40,41,41,41,41,41,41,41,42,42,42,42,42,42,42,43,43,43,43,43,43,43,44,44,44,44,44,44,44,45,45,45,45,45,45,45}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
{28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34}→L₁
{46,46,46,46,46,46,46,47,47,47,47,47,47,47,48,48,48,48,48,48,48,49,49,49,49,49,49,49,50,50,50,50,50,50,50,51,51,51,51,51,51,51,52,52,52,52,52,52,52,53,53,53,53,53,53,53,54,54,54,54,54,54,54,55,55,55,55,55,55,55,56,56,56,56,56,56,56,57,57,57,57,57,57,57,58,58,58,58,58,58,58,59,59,59,59,59,59,59,60,60,60,60,60,60,60,61,61,61,61,61,61,61,62,62,62,62,62,62,62}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
{28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,34,33,32,31,30,29,28,28,29,30,31,32,33,34,33,32,31,30,29}→L₁
{63,63,63,63,63,63,63,64,64,64,64,64,64,64,65,65,65,65,65,65,65,66,66,66,66,66,66,66,67,67,67,67,67,67,67,68,68,68,68,68,68,68,69,69,69,69,69,69,69,70,70,70,70,70,70,70,71,71,71,71,71,71,71,72,72,72,72,72,72,72,73,73,73,73,73,73,73,74,74,74,74,74,74,74,75,75,75,75,75,75,75,76,76,76,76,76,76,76,77,77,77,77,77,77,77,78,78,78,78,78,78,78,79,79,79,79,79,79,79,80,80,80,80,80,80,80,81,81,81,81,81,81,81,82,82,82,82,82,82,82,83,83,83,83,83,83,83,84,84,84,84,84,84,84,85,85,85,85,85,85,85,86,86,86,86,86,86,86,87,87,87,87,87,87,87,88,88,88,88,88,88,88,89,89,89,89,89,89,89,90,90,90,90,90,90,90,91,91,91,91,91,91,91,92,92,92,92,92}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
End
DelVar L₁DelVar L₂
{31,32,30,29,28,33,34,32,31,30,29,28,32,31,30,29,28,33,32,31,30,29,28,29,30,31,32,33,34,34,34,34,34,34,34,34,33,32,31,30,29,28,28,28,28,28,28,28,31,31,31,31,31,31,31,34,33,32,31,30,29,28,28,28,29,30,31,32,34,34,33}→L₁
{47,48,46,45,44,49,49,49,49,49,49,49,48,47,46,45,44,48,47,46,45,44,43,43,43,43,43,43,43,41,40,39,38,37,36,35,35,35,35,35,35,35,36,37,38,39,40,41,41,40,39,38,37,36,41,51,51,51,51,51,51,51,52,53,54,55,55,55,52,53,54}→L₂
For(A,1,dim(L₁))
Pxl-Change(L₁(A),L₂(A)
For(B,1,25
End
End
DelVar L₁DelVar L₂DelVar ADelVar B

And yes, It took over 7 hours. It got so bad that I finally created a program that pretty much did all the lists for me. I just had to select the points.

Last edited on 07 Oct 2008 03:05 by GoVegan Show more

Re: I like it too!

builderboy 06 Oct 2008 23:26

The simplest thing I can see for you to do is to take advantage of the patterns in the animations. Like when you draw a bunch of circles, you could have the points for only one circle stored in a list. The you could translate them coordinates as a whole by adding a umber to the entire list

Example:

For(F,1,9
Turn all the points on in L1

L1 + 10 → L1

End

Implementing that would save a lot of space, and since your animation is so symmetrical and geometric, i think you would have very little trouble finding patterns or algorithms for all the other sections as well.

RANDOMGUEST (guest) 22 Feb 2015 17:09

I think that I will work on this.
First, though, instead of that For( loop, you could simply do this:
:Shade(Ymin,Ymax)
It's the fastest way to turn the screen black.
You used all Pxl-changes - why not just set the graph screen, and use a bunch of Line( commands? That would save you a ton of space.

I will post the fixed code as soon as it's finished.

RANDOMGUEST (guest) 22 Feb 2015 17:19

Okay, I just realized that using Line( is a little too fast.
You could refigure the parameters of your For( loops so that the Pxl-Change( doesn't require looking at super-long lists.

i like it too

shmuelbaum 02 Feb 2020 18:31

but when i try to download it it says that the file doesn't exist

Last edited on 16 Feb 2020 21:29 by shmuelbaum Show more

Here's why

(account deleted) 03 Feb 2020 12:53

It may have been moved to a different location or deleted.

There's many reasons, but I'm assuming the main one is because the program was depreceated (I think I didn't spell that correctly?).

---

Hewwo, my name is Achak Claw. I was formerly BioHazard.