Data(1,9,25,9,25,1,25,9,3,4,4,4,...→A
Now you can run a For( loop to draw all your lines. I am not sure if this will work, but I think you will get the idea:Data(1,9,25,9,25,1,25,9,3,4,4,4,...)-1→A
For(53 ;number of lines you have, I think
Line({A++},{A++},{A++},{A++})
End
EDIT: If Jacobly doesn't get around to it, this is the even more optimised version he gave on IRC:Data(1,9,25,9,25,1,25,9,3,4,4,4,...)-2→A
For(53 ;number of lines you have, I think
Line({A+2→A}r,/256,{A+2}r,/256
End
[0000000000000000000000007FFFFFFFFFFFFFFFFFFFFFFE4000004000000000000000024E00004000000000000000025B00004000000000000000025100004000000000000000025B00004000000000000000024E00004000000000000000024000004000000000000000027FFFFFC000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000024000000000000000000000027FFFFFC01FFFFF00000000024000000000000100000000024000000000000100000000024000000000000100000000024000000000000100000000025FC0000000000100000000025040000000000100000000025040000000000100000000025040000000000000000000025040000000000000000000025040000000000000000000025040000000000000000000025040000000000000000000025FC0000000000000000000024000000000000100000000024000000000000100000000024000000000000100000000024000000000000100000000024000000000000100000000027FFFFFFFFFFFFFFFFFFFFFFE40008001000200040000000240008FF903020024000000024FF88AF93FCA3C44000000024FF09C013FFAFFF4000000024E0098013282EE44000000024C00980104420C24000000024C00900100020C04000000024000900100020004000000024000800100020004000000024000800100020004000000024000800100020004000000024000800100020004000000024000800100020004000000027FFFFFFFFFFFFFFFFFFFFFFE000000000000000000000000]->GDB1
Copy(GDB1,L6)
Now, I won't let you with that solution without explaining how it works, that won't help you in the long term ;)But it looks like that's a lot more bytes to type in in the long run.Of course you won't type them by hand :P
There are some image to hex converters lying around, including SourceCoder on CemetechHow do I use it to convert it to hex? Will it read Axe sources well?
Have it parse a png file. Note that this png should only have shades of grey (no pink, etc) if you don't want random results.There are some image to hex converters lying around, including SourceCoder on CemetechHow do I use it to convert it to hex? Will it read Axe sources well?
Warning: I'm not an Axe programmer :P
Basically what you can do is store all of the coordinates in order as data. Brackets are one way to do it, but then you have to convert all your coordinates to hex. Instead, use Data(. For example:Code: [Select]Data(1,9,25,9,25,1,25,9,3,4,4,4,...→A
Now you can run a For( loop to draw all your lines. I am not sure if this will work, but I think you will get the idea:Code: [Select]Data(1,9,25,9,25,1,25,9,3,4,4,4,...)-1→A
EDIT: If Jacobly doesn't get around to it, this is the even more optimised version he gave on IRC:
For(53 ;number of lines you have, I think
Line({A++},{A++},{A++},{A++})
EndCode: [Select]Data(1,9,25,9,25,1,25,9,3,4,4,4,...)-2→A
For(53 ;number of lines you have, I think
Line({A+2→A}r,/256,{A+2}r,/256
End
Data(1,9,25,9,25,1,25,9,3,4,4,4,...)-2→A
For(53 .number of lines you have
Line({A+2→A}ʳ,/256,{A+2→A}ʳ,/256
End
Extra lines suggest that you are looping too many times.Worked like a charm! Thank you! It reduced the size of the compiled program by over 1000 bytes, with the cost of about 80 more bytes uncompiled (which definitely helps!). Thanks a lot guys!