Author Topic: JPG to hex conversion  (Read 12634 times)

0 Members and 1 Guest are viewing this topic.

Offline Deep Toaster

  • So much to do, so much time, so little motivation
  • Administrator
  • LV13 Extreme Addict (Next: 9001)
  • *************
  • Posts: 8217
  • Rating: +758/-15
    • View Profile
    • ClrHome
Re: JPG to hex conversion
« Reply #15 on: April 26, 2011, 08:21:32 pm »
And if you need the hex, a quick unsquisher (modded from this):

Code: (Axe) [Select]
.UNSQUISH
"0123456789ABCDEF"->GDB0
GetCalc("Pic2")->P
GetCalc("prgmPIC2",1536)->Q
For(I,0,767)
{P+I}->J^16sub(GC)->{J/16sub(GC)->{I*2+Q}+1}
End
Disp "Picture has beensuccessfully    unsquished."
Return
Lbl GC
{+GDB0}
« Last Edit: April 26, 2011, 08:21:51 pm by Deep Thought »