Pictures
» > >
»
» View previous topic :: View next topic  
Well after some experimentation I think I've created what I think is the smallest way to make pics.
This creates the pics.

Code:

:DelVar Str1DelVar Str2"(randM(0 and P+►DMS)mean(1AQ{-}►Decround(solve(2BRAns►Fracpxl-Test(seq(3CSFix augment(FnInt(4DTRadianSplitBoxPlotrowSwap(nDeriv(5EUDegreeFull[row+6FVNormalFunc]*row(fMin(7GWSciParam{*row+(fMax(8HXEngPolar}max(9IYFloatSeq{^r}min(.JZ=AutoFillOnºPt-Change(-log(ElseOutput(^Pxl-On(Pxl-Off(int(10^sin(cos(tan(?π→Str0
Note this can be any 1-byte commands
:" →Str1
:" →Str2
:For(A,0,62
:For(B,0,94
:If pxl-Test(A,B
:Then
:Str1+sub(Str0,A+1,1→Str1
:Str2+sub(Str0,B+1,1→Str2
:While pxl-Test(A,B+(B≠94)) and B<94
:B+1→B
:End
:Str1+sub(Str0,A+1,1→Str1
:Str2+sub(Str0,B+1,1→Str2
:End:End:End
:DelVar Str0sub(Str1,2,length(Str1)-1→Str1
:sub(Str2,2,length(Str2)-1→Str2
Generated by SourceCoder (http://www.cemetech.net/projects/basicelite/sourcecoder.php)
© 2005 Cemetech (http://www.cemetech.net)

This extracts it. use this window:

Code:

Xmin=0
Xmax=94
Ymin=-62
Ymax=0


Code:

:ClrDraw
:"(randM(0 and P+►DMS)mean(1AQ{-}►Decround(solve(2BRAns►Fracpxl-Test(seq(3CSFix augment(FnInt(4DTRadianSplitBoxPlotrowSwap(nDeriv(5EUDegreeFull[row+6FVNormalFunc]*row(fMin(7GWSciParam{*row+(fMax(8HXEngPolar}max(9IYFloatSeq{^r}min(.JZ=AutoFillOnºPt-Change(-log(ElseOutput(^Pxl-On(Pxl-Off(int(10^sin(cos(tan(?π→Str0
Note this can be any 1-byte commands
:For(X,1,length(Str1)-1,2
:Line(inString(Str0,sub(Str2,X,1))-1,1-inString(Str0,sub(Str1,X,1)),inString(Str0,sub(Str2,X+1,1))-1,1-inString(Str0,sub(Str1,X+1,1
:End
:DelVar Str0
Generated by SourceCoder (http://www.cemetech.net/projects/basicelite/sourcecoder.php)
© 2005 Cemetech (http://www.cemetech.net)

Thoughts?Optimizations?
Edit:Had small error.
What's the deal with that long string of junk? Is that the subset of 1-byte commands used as the compression tokens to build the string?
Well if you look at the little comment it says its any 1-byte command its just used as a compression technique.
KermMartian wrote:
What's the deal with that long string of junk? Is that the subset of 1-byte commands used as the compression tokens to build the string?
Mhmm, at first I thought it was assembly rendered by SourceCoder (which tends to look like that mess) but then with the help of your comment I figured out what was going on.
  
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
Pictures
»
» View previous topic :: View next topic  
Page 1 of 1
» All times are UTC - 5 Hours
 
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum

 

Advertisement