Eye Candy Programs

Forum Attachments

Summary:

Graphic-based animation programs go here! Which is the best? We will all decide!

Eye Candy Programs

Josiah W 01 Jan 2013 01:29

Hello! I am Josiah W, and I am new to this forum. My first "real" TI-BASIC program was a bit of eye-candy (the code will be shown later), and I want to know if either you could optimize it, or you could submit different, but just as entertaining, eye-candy (preferably the second one). Here is the code that I did for mine (done this way because I do not have the link cable that everyone is talking about, but I got Cemetech's SourceCoder)

PROGRAM:PETER
:AxesOff:FnOff 
:0→Xmin:0→Ymin:1→ΔX:1→ΔY
:ClrDraw
:Line(23,0,27,25
:Line(27,25,33,32
:Line(33,32,43,33
:Line(43,33,53,30
:Line(53,30,53,24
:Line(53,24,58,21
:Line(58,21,61,0
:Line(53,24,36,25
:Line(36,25,33,20
:Line(33,20,29,27
:Line(27,22,30,20
:Line(27,24,30,22
:Circle(39,19,3,{i
:Circle(47,19,3,{i
:Circle(41,4,3,{i
:Circle(46,4,3,{i
:For(Y,5,7
:Line(38,Y,45,Y,0
:End
:Line(34,21,44,19
:Line(44,20,50,20
:Line(43,16,46,14
:Line(46,14,44,12
:Line(46,7,50,9
:Line(50,9,40,9
:Text(0,30,"I'M PETER GRIFFIN.
:Text(7,9,"BUTTSCRATCHER, ANYONE?
:Line(69,45,60,30
:Repeat getkey
:Line(50,10,40,10
:Line(50,9,40,8
:For(X,1,50
:End
:Line(50,10,40,10,0
:Line(45,8,40,8,0
:For(X,1,50
:End
:End
:Shade(Ymin,Ymax
:For(Y,0,62
:Line(Xmin,62-Y,Xmax,62-Y,0
:End

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Eye Candy Programs

Silver Phantom 01 Jan 2013 04:05

You can try and turn that line commands into 2 lists and print the lines using a for( and list elements

---

The Silver Phantom welcomes you

Re: Eye Candy Programs

Josiah W 01 Jan 2013 16:45

OK, I'll try.

Also, do you have an 'eyecandy' program? That is why I made this thread.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Eye Candy Programs

Silver Phantom 01 Jan 2013 17:16

No

---

The Silver Phantom welcomes you

Re: Eye Candy Programs

Josiah W 01 Jan 2013 17:21

Do you know someone who does? It can be a screensaver, an animation, or anything of the sort!

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Eye Candy Programs

simonalford42 01 Jan 2013 18:42

Here's a nice one

I like this one too

Re: Eye Candy Programs

(account deleted) 01 Jan 2013 19:43

Their is a whole section for it in ticalc.org in the program archives, as well as in ours.

---

Coffee + Radiohead = ^^

Re: Eye Candy Programs

(account deleted) 03 Jan 2013 12:06

It is labeled as "Graphics Programs."

---

Coffee + Radiohead = ^^

Re: Eye Candy Programs

Josiah W 04 Jan 2013 16:08

There's a reason why I posted it here in "Program Challenges." Who can create the best one and post the code here? I already browsed those sections of those sites.

---

:ClrHome:Disp "HOW DOES A","MATHEMATICIAN","LOSE WEIGHT?
:Pause "
:Pause "BINOMIALS!
:Pause "(BUY NO MEALS)":ClrHome

Re: Eye Candy Programs

(account deleted) 05 Jan 2013 18:31

Okay, this is a bit distracting…

While 1
ClrDraw
RandInt(0,94->A
RandInt(0,62->B
RandInt(0,94->C
RandInt(0,62->D
For(X,0,94
For(Z,0,62
pt-On(A,Z
pt-On(B,X
pt-On(C,Z
pt-On(D,X
End
End
For(X,0,94
For(Z,0,62
pt-Off(A,Z
pt-Off(B,X
pt-Off(C,Z
pt-Off(D,X
End
End
End

---

Coffee + Radiohead = ^^

Re: Eye Candy Programs

simonalford42 10 Jan 2013 01:27

Messing around with my calc during Precalc today:

:FnOff
:ZStandard
:ZInteger
:AxesOff
:For(A,1,57,.1randint(5,30
:Circle(0,0,A,{i
:End
:For(A,Xmin+1,Xmax,2
:Vertical A
:End

It's quite the eye candy

Re: Eye Candy Programs

(account deleted) 02 Feb 2013 01:12

That's cool: it is different every time.

---

Coffee + Radiohead = ^^

Re: Eye Candy Programs

L1k3awh15p3r 10 Mar 2013 02:59

AHHHH hypnotism

---

The man shuddered as the shadow drew a glistening sword from his back. Creeping closer and closer with his pale eyes burning into the man, the shadow slowly raised his blade and before he could thrust it down, the man heard the shadow hiss something.
"The Shadow Clan's presence must be like a whisper. Always felt, but never seen…"

Re: Eye Candy Programs

(account deleted) 03 Feb 2013 23:58

Here is a new one:

ZStandard
ZInteger
LabelOff
PlotsOff
FnOff
While 1
ClrDraw
For(A,0,360,5
Circle(29cos(A),29sin(A),randInt(8,10),{i
End
End

It's pretty good.

---

Coffee + Radiohead = ^^