Show Posts

This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.


Messages - starfighter

Pages: [1]
1
TI-BASIC / Re: Optimisation help request
« on: August 02, 2018, 08:38:29 pm »
Xeda you are awesome! The Axe version is blazingly fast  :o! Thanks for the reply, and for such a thorough optimisation. I'll be studying these to learn your tricks =D.

So really then, time to decide between Grammer and Axe. Your Axe example was incredible in speed (though not to say that Grammer one wasn't fast either!), however like you said I'll have to recompile each time, which isn't too much of an issue -- I'd prefer to do all the legwork to spare my end user any hassle --  but does complicate development process a tad. I am attracted to the prospect of more and useful routines too, though, so again I find myself on the fence.

Regardless, thank you for the reply and the code. I'll get to studying these immediately =D.

2
TI-BASIC / Optimisation help request
« on: July 26, 2018, 01:26:24 pm »
This is a thing I did yesterday in an hour or so, and I was wondering if anyone had the time and knowledge to help me get some speed out of this thing, if possible. Sorry if the code is bad. The .8xp is also attached.
The "game" uses CelticIII.

Copied from TokenIDE's .txt file for x.8xp:
Code: [Select]
"C082031818400101→Str1
"0140481200200400→Str2
"0000000000000000→Str3
identity(8,Str2,0,0,0,0
While 1
real(8→|N
X→W:Y→Z
X-(|N=2)+(|N=3)→X
Y-(|N=4)+(|N=1)→Y
If |N=7
Then
X-1→X
Y-1→Y
End
If |N=8
Then
X+1→X
Y-1→Y
End
If |N=6
Then
X+1→X
Y+1→Y
End
If |N=5
Then
X-1→X
Y+1→Y
End
If X≤0:0→X
If Y≤0:0→Y
If X≥88:88→X
If Y≥48:48→Y
If W≠X or Y≠Z
identity(8,Str2,0,0,0,0
If |N=54
Then
identity(5,"0040FC40",X+8,Y+8,1,4,2,0,1
1→θ
End
If |N≠54 and θ
identity(5,"0040FC40",X+8,Y+8,1,4,3,0,1
identity(5,"FFFFF1EBE1E3FFE1E1D3D3D3818181FF",X,Y,1,16,1,0,0
identity(5,"3F7F71EBE1E2FEE1E1D25252818181FF",X,Y,1,16,2,0,0
det(19
End

Pages: [1]