0 Members and 4 Guests are viewing this topic.
The programs I am talking about (pic to line) are like these:http://www.ticalc.org/archives/files/fileinfo/379/37930.htmlhttp://www.ticalc.org/archives/files/fileinfo/231/23126.htmlThanks, meishe. Did you have to resize the bitmap? When I tried, the quality on calc was greatly dimished.
Prompt X,Y,W,H1→DFor(A,Y,Y+H-1For(B,X,X+W-1If pxl-Test(A,BThenBE6+AE4→KRepeat not(pxl-Test(A,BB+1→BEndK+E2B-E2+A→LP(DD+1→DEndEndEnd
ClrDrawFor(A,1,dim(LPLP(ALine(iPart(E2fPart(Ans/E8)),-iPart(E2fPart(Ans/E6)),iPart(E2fPart(Ans/E4)),-iPart(E2fPart(Ans/E2End
Same one as you . It's pretty standard for games that use graph commands.
Ya, but some people make zero their Ymin and sixty-two their Ymax, and odd things like that. But cool, I don't have to modify it now Tongue
QuoteYa, but some people make zero their Ymin and sixty-two their Ymax, and odd things like that. But cool, I don't have to modify it now TongueI'm pretty sure I used to do that...
Edit:Ok, got the program I said I would create ready now. It didn't take long to create, just didn't start until late. Anywho, here it is.Note:All "Ls" and "Es" in these code sets are the scientific notation E and the little list header thing L.Code: [Select]Prompt X,Y,W,H1→DFor(A,Y,Y+H-1For(B,X,X+W-1If pxl-Test(A,BThenBE6+AE4→KRepeat not(pxl-Test(A,BB+1→BEndK+E2B-E2+A→LP(DD+1→DEndEndEndX and Y are the coordinates at which the sprite starts. H and W are the width of the sprite. This program, if you hadn't looked yet, exports the coordinates of a line into one element per line in LP. If you want an actual program that will actually put each line in a Line( command, I could probably whip something up. This just seemed like you were going to do so that's why it is in a list. The program I used to check that program was this:Code: [Select]ClrDrawFor(A,1,dim(LPLP(ALine(iPart(E2fPart(Ans/E8)),-iPart(E2fPart(Ans/E6)),iPart(E2fPart(Ans/E4)),-iPart(E2fPart(Ans/E2End