Login [Register]
Don't have an account? Register now to chat, post, use our tools, and much more.

Does this sound like a good idea?
yes
 40%  [ 2 ]
no
 60%  [ 3 ]
Total Votes : 5

Weregoose wrote:
Try this.


Code:
:Input
I posted that above, didn't you see it? And _player, yeah, you need to actually try or research things before questionspamming.
KermMartian wrote:
I posted that above, didn't you see it?
Sorry. If I had seen it posted in a code box below the screenshot, I certainly would have omitted my post. Smile

As it happens, I made my own fill routine using a single list that never grows past 632 elements:

ZStandard
84→Xmin
-72→Ymin
ZInteger
RecallPic 1
Input
{E2XY→L1
1
While Ans
L1(Ans→N
int(.01N→I%
NE2I%→PV
L1
If not(pxlTest(PV+1,I%:augment({N+1},Ans
If not(pxlTest(PV1,I%:augment({N1},Ans
If not(pxlTest(PV,I%1:augment({NE2},Ans
If not(pxlTest(PV,I%+1:augment({N+E2},Ans
Ans→L1
Pt-On(I%,-PV,3
dim(Ans)1→dim(L1
End
Kllrnohj wrote:
First, Paint.NET is awesome, but in no way is it comparable to photoshop or trying to be photoshop.

Second, WHY? What possible use does this have? You are talking about advanced image creation and manipulation on a tiny b&w screen. There really isn't a point.

That said, if you want to attempt this, you'll need to do it in assembly to get anything resembling speed out of it. And somehow I don't think you have anywhere near the skills needed to do it.


Opinion seconded, unless you mean it's smaller than Photoshop.
Weregoose wrote:

ZStandard
84→Xmin
-72→Ymin
ZInteger
RecallPic 1
Input
{E2XY→L1
1
While Ans
L1(Ans→N
int(.01N→I%
NE2I%→PV
L1
If not(pxlTest(PV+1,I%:augment({N+1},Ans
If not(pxlTest(PV1,I%:augment({N1},Ans
If not(pxlTest(PV,I%1:augment({NE2},Ans
If not(pxlTest(PV,I%+1:augment({N+E2},Ans
Ans→L1
Pt-On(I%,-PV,3
dim(Ans)1→dim(L1
End

Win.
How fast can you fill something black with white?
Weregoose, you never cease to amaze, particularly in this case with your sneaky use of the Financial vars to avoid creating or using the alpha variables.
Will_W wrote:
How fast can you fill something black with white?

...
Input
pxl-Test(-Y,X→PMT
...
If PMT=pxlTest(PV+1,I%:augment({N+1},Ans
If PMT=pxlTest(PV1,I%:augment({N1},Ans
If PMT=pxlTest(PV,I%1:augment({NE2},Ans
If PMT=pxlTest(PV,I%+1:augment({N+E2},Ans
...
If PMT
Then
Pt-Off(I%,-PV,3
Else
Pt-On(I%,-PV,3
End
...

?
I didn't consider that pt-off( might also take a third argument.
  
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
Page 3 of 3
» All times are GMT - 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