Recent Forum Posts

Looking for something?

Don't see a match? Post to the community

From categories:
page 1123...next »

Turns out I was actually able to finally make one myself, but it could probably use a ton of optimizations:

prgmRAND3D

ClrHome:ClrDraw
Prompt L,S,E  // L: Length of each side of the large cube  S: How many small cubes in each direction  E: 0=No Edges 1=Edges
max(1,min(0.5(Ymax-Ymin),L))→L
max(1,S)→S
max(0,min(1,E))→E
L→M
{11,21,17,10,18}→⸤C
prgmISO
√(3)/2→H
M/S→L
LH→R
0→P
For(Y,0,S-1)
For(X,S-1,0,⁻1)
For(Z,S-1,0,⁻1)
If not(randInt(0,5)):Then
P▶Rx(LZ,30)+P▶Rx(LX,150)→A
P▶Ry(LZ,30)+P▶Ry(LX,150)+YL→B
For(F,0,L,0.2)
Line(A+R,B+1.5L-F,A,B+L-F,⸤C(3)
Line(A-R,B+1.5L-F,A,B+L-F,⸤C(4)
P▶Rx(F,30)→V:P▶Ry(F,150)→W
Line(A+0-V,B+2L-W,A+R-V,B+1.5L-W,⸤C(5
End
If not(E):Goto 1
Line(A,B,A,B+L,⸤C(2),1
Line(A+0,B+2L,A+R,B+1.5L,⸤C(2),1
Line(A,B+2L,A-R,B+1.5L,⸤C(2),1
Line(A+R,B+1.5L,A,B+L,⸤C(2),1
Line(A-R,B+1.5L,A,B+L,⸤C(2),1
Line(A+R,B+1.5L,A+R,B+0.5L,⸤C(2),1
Line(A-R,B+1.5L,A-R,B+0.5L,⸤C(2),1
Line(A+R,B+0.5L,A,B,⸤C(2),1
Line(A-R,B+0.5L,A,B,⸤C(2),1
Lbl 1
End
P+1→P
Text(1,1,round(100P/(S^3),3),"%              ")  //14 spaces
End:End:End
prgmISO

prgmISO

M√(3)/2→R
Line(0,0,0,M,⸤C(1)
Line(0,2M,R,1.5M,⸤C(1)
Line(0,2M,⁻R,1.5M,⸤C(1)
Line(R,1.5M,0,M,⸤C(1)
Line(⁻R,1.5M,0,M,⸤C(1)
Line(R,1.5M,R,0.5M,⸤C(1)
Line(⁻R,1.5M,⁻R,0.5M,⸤C(1)
Line(R,0.5M,0,0,⸤C(1)
Line(⁻R,0.5M,0,0,⸤C(1)
Re: Isometric Cube by OneLetterShorOneLetterShor, 27 May 2020 23:45

I'm guessing this doesn't count because each one has to be drawn individually? As a note, this program is far more accurate on the color calculators due to the increased graph resolution

//Written for Monochrome calculators
1.4→R
ᴇ5→H
ClrDraw
AxesOff
Degree
sin(30→A
sin(150→B
cos(30→C
cos(150→D
⁻RH→Xmin:RH→Xmax
⁻H→Ymin:H→Ymax
Lbl R0
Input "Size of cube:",I
If fPart(I):Goto R0
If I<1:Goto R0
Line(0,0,0,⁻H)
Line(0,0,HC,HA
Line(0,0,HD,HB
For(E,1,I
Line(0,0-E(H/I),HC,HA-EH/I
Line(0,0-E(H/I),HD,HB-EH/I
Line(EC*H/I,HEA/I,HEC/I,HEA/I-H
Line(ED*H/I,HEB/I,HED/I,HEB/I-H
Line(HEC/I,HEA/I,HEC/I+HD,HEA/I+HB
Line(HED/I,HEB/I,HED/I+HC,HEB/I+HA
End

Or
//Written for color calculators
1.5→R
ᴇ5→H
ClrDraw
AxesOff
Degree
sin(30→A
sin(150→B
cos(30→C
cos(150→D
⁻RH→Xmin:RH→Xmax
⁻H→Ymin:H→Ymax
Lbl R0
Input "Size of cube:",I
If fPart(I):Goto R0
If I<1:Goto R0
For(E,1,I
Line(0,0-E(H/I),HC,HA-EH/I
Line(0,0-E(H/I),HD,HB-EH/I
Line(EC*H/I,HEA/I,HEC/I,HEA/I-H
Line(ED*H/I,HEB/I,HED/I,HEB/I-H
Line(HEC/I,HEA/I,HEC/I+HD,HEA/I+HB
Line(HED/I,HEB/I,HED/I+HC,HEB/I+HA
End
Line(0,0,0,⁻H,BLACK
Line(0,0,HC,HA,BLACK
Line(0,0,HD,HB,BLACK
Re: Isometric Cube by TrenlyTrenly, 27 May 2020 23:27

What it should look like:
https://www.artyfactory.com/isometric-drawing/images/large-isometric-cube.gif

Requirements:
- Each tiny cube should be drawn individually, and overlay cubes behind it if necessary.
- The number of tiny cubes should be able to be changed easily.

Isometric Cube by OneLetterShorOneLetterShor, 27 May 2020 20:28

Darn it… thank you for letting me know…

Re: Wait by Elijah FajimiElijah Fajimi, 27 May 2020 13:22

What you are wishing for isn't possible as far as I know, sorry. That would be really great though because you could have multiple programs running and stuff like that.

Re: Wait by OneLetterShorOneLetterShor, 27 May 2020 03:06

Also can you do things within the program while the timer is going?

Re: Wait by Elijah FajimiElijah Fajimi, 26 May 2020 22:14

Exactly!

Re: Wait by Elijah FajimiElijah Fajimi, 26 May 2020 22:14

Just use this instead, if you don't have the Wait command. Wait is on the newer TI-84+ OS version, I forgot which.

rand(20)

The number in parenthesis can be raised or lowered. A higher number will result in a longer "pause", and a smaller number will make a shorter pause.

Re: Optimization by OneLetterShorOneLetterShor, 26 May 2020 19:59

Just curious where is the Wait command?

Re: Optimization by Player205Player205, 26 May 2020 19:47

Try this:

For(X,1,25)
Output(1,X," O")
Wait 0.05
End
For(X,26,1,-1)
Output(1,X,"O ")
Wait 0.05
End
Re: Optimization by OneLetterShorOneLetterShor, 26 May 2020 19:41

Also I apologize as, after the first display line, every line after that should have more space than the previous line before the ball is displayed until it hits the right side of the screen and then have it written out so it comes back. My apologies.

Re: Optimization by Player205Player205, 26 May 2020 19:34

So there's this game I saw where basically the goal is to have a ball move from one side of the screen to another, and I was wondering how people would optimize it. Here's the code: (Note the ball is supposed to move from one side to the other, and then go back to the original side)

Disp: "0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
Disp: " 0
prgm //Insert name of the program here

I would prefer if people provided hints (what command they would use or how they would use it) but not show any code. I'm a beginner-intermediate programmer so if anyone could help, I would greatly appreciate it.

Optimization by Player205Player205, 26 May 2020 19:33

So you would want to be able to use your calculator normally, with all the normal functions (like graphing and apps and stuff), but then have a pop-up or something whenever the reminder goes off?

Re: Wait by OneLetterShorOneLetterShor, 26 May 2020 15:26

Also this program is called setreminder()

Re: Wait by Elijah FajimiElijah Fajimi, 26 May 2020 01:30
ClrHome
{11,28}→dim([A])
For(A,2,10)
For (B,2,27)
max(0,randInt(⁻3,1))→[A](A,B)
Output(A,B-1),"O")
End:End
0→G
Output(1,1,"GENERATION")
Output(1,16,"MEMBERS=")
Repeat getKey or M=0
G+1→G
For(A,2,10)
For(B,1,26)
Output(A,B,sub(" O",[A](A,B+1)+1,1))
End:End
Output(1,12,G)
Output(1,24,"    ") //four spaces
[A]→[B]
0→M
For(A,2,10)
For(B,2,27)
Output(A,B-1,"θ")
If [A](A,B)=1:M+1→M
Output(1,24,M)
0→N
For(C,-1,1)
For(D,-1,1)
If [A](A+C,B+D) and 2≠sum(not({C,D}≠0)):N+1→N
End:End
If N=3 and [A](A,B)=0
1→[B](A,B)
If [A](A,B)=1 and N≠2 and N≠3
0→[B](A,B)
Output(A,B-1,sub(" O",[A](A,B)+1,1))
End:End
[B]→[A]
End

Good point: https://tiplanet.org/forum/viewtopic.php?f=41&t=23858&start=30#p253126

It is in French though. The news was first revealed that TI was removing support on one of there French models that has Python support, then when asked about other models, TI confirmed that they were rolling out updates to all CE models to remove Asm/C support.


Z80 Assembly>English>TI-BASIC>Python>French>C>0

Where can I find the source you used? I can't see it on TI's website.

Hey, just a heads-up folks: Apparently TI has decided that in the next OS update for the CE, you will no longer be able to use Assembly programs (and by extension, C programs and ICE programs). Furthermore, if you upgrade to the new OS or the OS is already on the calc, you will not be able to downgrade to a version that allows assembly programs.

Much of the community here is comprised of BASIC programmers, so you won't be as affected. However, many popular games and utilities are assembly programs, so you and other calculator owners won't be able to play/use them on the new OS (and presumably subsequent ones).

On the bright side, this does mean that there will be more demand for BASIC games, and we might see more people who need our help.

Stay safe everyone!


Z80 Assembly>English>TI-BASIC>Python>French>C>0

The 68k BASIC is the best TI-BASIC (92/89/Voyage). It is far more powerful than the Z80 calcs' BASIC, including fantastic graphics commands (built in sprites, tilemapping is easier, way more advanced math, powerful input and dialog options). The nspire's BASIC is similar, but way more stripped-down in terms of graphics. If it was on par with the graphics commands of the 68k series, nspire BASIC would win hands down because it's just way better in nearly every other benchmark.


Z80 Assembly>English>TI-BASIC>Python>French>C>0

Re: Caculator Debate by Xeda ElnaraXeda Elnara, 25 May 2020 00:00
page 1123...next »