This is an archived, read-only copy of the United-TI subforum , including posts and topic from May 2003 to April 2012. If you would like to discuss any of the topics in this forum, you can visit Cemetech's
TI-BASIC subforum. Some of these topics may also be directly-linked to active Cemetech topics. If you are a Cemetech member with a linked United-TI account, you can link United-TI topics here with your current Cemetech topics.
TI-Basic =>
TI-BASIC
Author |
Message |
|
Reapex
Newbie
Joined: 13 Jun 2009 Posts: 7
|
Posted: 07 Aug 2009 08:48:01 pm Post subject: |
|
|
[quote name='"BASIC Code"']:Input ("SPRITE SIZE-",Z
:DelVar LDelVar XDelVar Y
:While Y<Z
:DelVar CIf pxl-Test(Y,X
:C+8→C
:If pxl-Test(Y,X+1
:C+4→C
:If pxl-Test(Y,X+2
:C+2→C
:If pxl-Test(Y,X+3
:C+1→C
:"0123456789
:If C≤9
:sub(Ans,C+1,1→Str1
:If C>9
:Then
:1→I
:{10,11,12,13,14,15→∟LOL
:While C≠∟LOL(I
:I+1→I
:End
:"ABCDEF
:sub(Ans,I,1
:End
:If L
:Then
:Str4+Ans→Str4
:Else
:Ans→Str4
:1→L
:End
:X+4→X
:Y+(X≥Z→Y
:If X≥Z
:DelVar XEnd
:Str4[/quote]
Basically....
It takes a sprite of whatever size from the top left corner of the graph screen, then it stores the hex in Str4 and displays Str4.
Doesn't take too long.. |
|
Back to top |
|
|
|
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