copy/paste on calcs

Forum Attachments

Summary:

a little routine I wrote

copy/paste on calcs

basickevin 23 Aug 2008 02:10

welcome back guys, haven't been here in a while :) I've been working on a little routine I wrote that copies any area of the graphscreen up to like 45 by 45 pixels (because of matrix space deficiencies). It's part of a larger graphics package that I've been working on that allows for easier manipulation of the graphscreen than with the built in package, but I'll talk about that later. I use it with a 0:94:0:62 graphscreen.how do you like this:
ps: I'll add the paste part tommorow

Input
X→ A
Y→ B
Input
X→ C
Y→ D
{C-A+1,D-B+1→ dim([B]
For(G,A,C
For(H,B,D
pxl-test(62-H,G→ [B](G-A+1,H-B+1
End
End

Re: copy/paste on calcs

Weregoose 23 Aug 2008 05:04

If you were to use a string instead of a matrix, you'd have one byte per pixel, so memory then wouldn't be such an issue:

Ans+sub("01",1+pxl-test(62-H,G),1

As for the dimensions and location of the block that was copied, well… Gotta think creatively on that.

Last edited on 23 Aug 2008 05:08 by Weregoose Show more

Re: copy/paste on calcs

builderboy 27 Aug 2008 23:04

or if you wanted to be really memory efficient, you could compress every 8 bits into a byte represented by different tokens.

Re: copy/paste on calcs

DarkerLine 28 Aug 2008 03:26

You couldn't get quite that efficient, because some bytes or byte combinations are invalid for tokens. In any case, it wouldn't work all that great if you want a decent speed (which is going to be an issue anyway).

Re: copy/paste on calcs

noahbaby94 30 Aug 2008 19:15

well heres a really efficient copy and paste program using srtings
this is the copy portion of the code

L₁(1→A
L₁(2→B
L₁(3→C
L₁(4→D
"?→Str1
For(Y,A,C)
For(X,B,D)
If pxl-test(x,y
Then
Str1+"1→Str1
Else
Srt1+"0→Srt1
End:End:End
sub(Str1,2,length(Str1)-1→Str1

heres the paste part

L₁(1→A
L₁(2→B
L₁(3→C
L₁(4→D
0→E
For(Y,A,C)
For(X,B,D)
E+1→E
If sub(Str1,E,1)="1
Pxl-On(x,y
End
End

you enter
Y-start into L₁(1)
X-start into L₁(2)
Width into L₁(3)
Height into L₁(4)

---

Join Codeworld.
Also check out my blog.

Last edited on 30 Aug 2008 19:45 by noahbaby94 Show more

Re: copy/paste on calcs

Weregoose 30 Aug 2008 20:23

See what I wrote earlier, and try to work that into your code somehow. ;)

Re: copy/paste on calcs

noahbaby94 30 Aug 2008 21:27

L₁(1→A
L₁(2→B
L₁(3→C
L₁(4→D
"?→Str1
For(Y,A,C)
For(X,B,D)
Ans+sub("01",1+pxl-Test(X,Y),1
End:End
sub(Ans,2,length(Ans)-1→Str1

worked just right weregoose

---

Join Codeworld.
Also check out my blog.