Scratch

sparks · 2011-01-16 10:24:44

Is there a command that lets you create a costume from a specified square of the screen? e.g. "add costume from screen region x:( ) y:( ) to x:( ) y:( )"

Thanks!

johnnydean1 · 2011-01-16 10:26:33

I wanted this to, sorry I found no solution.

TheSuccessor · 2011-01-16 11:16:35

Form fromDisplay: returns a form from the section of the display that the rectangle passed as an argument specifies.

sparks · 2011-01-16 11:24:41

so

self fromDisplay: (t1@t2)

?
EDIT: Does not work sad

Last edited by sparks (2011-01-16 11:27:28)

bbbeb · 2011-01-16 15:46:26

I recommend asking your Panther Teammates. XD

I think you could do it with modification of the "grab screen region for new costume".

LS97 · 2011-01-16 15:53:22

bbbeb wrote:
I recommend asking your Panther Teammates. XD

I think you could do it with modification of the "grab screen region for new costume".

Definitely. That's what I've been thinking all along while reading this thread!

bbbeb · 2011-01-16 15:59:17

LS97 wrote:
bbbeb wrote:
I recommend asking your Panther Teammates. XD

I think you could do it with modification of the "grab screen region for new costume".
Definitely. That's what I've been thinking all along while reading this thread!

Yay!
I'll go look at it, and see what I can do...

bbbeb · 2011-01-16 16:08:31

This is the menu

Code:

grabSpriteFromScreen
    | t1 t2 t3 |
    (t1 _ self ownerThatIsA: ScratchFrameMorph) ifNil: [^ self].
    t2 _ ScratchSpriteMorph new.
    (t3 _ t2 grabFormFromScreen) ifNil: [^ self].
    t2 onlyCostume: t3.
    t1 addAndView: t2.

I don't think that will help.

The grabFormFromScreen is what needs to be modified, not the actual code..

EDIT:

Code:

form: t1 
    costume _ ImageMedia new form: t1.
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory

That updates the costumes.
The 1st line needs to be modified, but how could we set a form to a certain part of the screen?

Last edited by bbbeb (2011-01-16 16:11:25)

TheSuccessor · 2011-01-17 11:42:37

sparks wrote:
so

self fromDisplay: (t1@t2)

?
EDIT: Does not work

t1 @ t2 is a point. A rectangle is made like this: Rectangle origin:corner: The code would be:

| screenshot |
screenshot _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).

bbbeb · 2011-01-17 15:48:34

bbbeb wrote:
This is the menu
Code:
grabSpriteFromScreen
    | t1 t2 t3 |
    (t1 _ self ownerThatIsA: ScratchFrameMorph) ifNil: [^ self].
    t2 _ ScratchSpriteMorph new.
    (t3 _ t2 grabFormFromScreen) ifNil: [^ self].
    t2 onlyCostume: t3.
    t1 addAndView: t2.
I don't think that will help.

The grabFormFromScreen is what needs to be modified, not the actual code..

EDIT:
Code:
form: t1 
    costume _ ImageMedia new form: t1.
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory
That updates the costumes.
The 1st line needs to be modified, but how could we set a form to a certain part of the screen?

TheSuccessor wrote:
sparks wrote:
so

self fromDisplay: (t1@t2)

?
EDIT: Does not work
t1 @ t2 is a point. A rectangle is made like this: Rectangle origin:corner: The code would be:

| screenshot |
screenshot _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).

So it would be this:

Code:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
    costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory

?

sparks · 2011-01-17 15:53:56

It's looking good, but your above block returns the following syntax error:

| t1 t2 t3 t4 |
t1 _ 10.
t2 _ 10.
t3 _ -10.
t4 _ -10.
newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume Nothing more expected ->_ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

bbbeb · 2011-01-17 15:56:56

sparks wrote:
It's looking good, but your above block returns the following syntax error:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4

t1 _ 10.
t2 _ 10.
t3 _ -10.
t4 _ -10.
costume_ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory.

Kill the space, and see what happens. big_smile
Try that code.
EDIT: And i don't think you need the top parts.
Those should be below the definition(the newCostume from:, right?)

Last edited by bbbeb (2011-01-17 15:58:28)

ScratchReallyROCKS · 2011-01-17 15:58:16

sparks wrote:
It's looking good, but your above block returns the following syntax error:

| t1 t2 t3 t4 |
t1 _ 10.
t2 _ 10.
t3 _ -10.
t4 _ -10.
newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume Nothing more expected ->_ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

is costume a variable? Because it doesn't look like it's created anywhere...

Last edited by ScratchReallyROCKS (2011-01-17 15:58:30)

bbbeb · 2011-01-17 15:59:06

Costume is a accessing variable from ScriptableScratchMorph. I think.

Last edited by bbbeb (2011-01-17 15:59:21)

sparks · 2011-01-17 16:02:23

removing the space from the code like so:

Code:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
    costume_ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory

returns the same syntax error

bbbeb · 2011-01-17 16:03:55

sparks wrote:

removing the space from the code like so:

Code:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
    costume_ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory

returns the same syntax error

let me think.....

let me test it and see...

ScratchReallyROCKS · 2011-01-17 16:06:03

it's the method name; it has spaces in it.

I tried this:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

but it got me a mediaStep error.

bbbeb · 2011-01-17 16:08:19

I don't know, it tells me that from is a undefined variable.... any suggestions?

bbbeb · 2011-01-17 16:09:49

ScratchReallyROCKS wrote:
it's the method name; it has spaces in it.

I tried this:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory
but it got me a mediaStep error.

You're right!
Try this:

newCostume x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

ScratchReallyROCKS · 2011-01-17 16:12:58

bbbeb wrote:
ScratchReallyROCKS wrote:
it's the method name; it has spaces in it.

I tried this:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory
but it got me a mediaStep error.
You're right!
Try this:
newCostume x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

Sorry, I pasted the wrong thing up there. it should have been this:

newCostumeFromX1: t1 y1: t2 toX2: t3 y2: t4
costume _ Form fromDisplay: (Rectangle origin: t1 @ t2 corner: t3 @ t4).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

your's still had spaces in it, this doesn't. But it got me a mediaStep error.

bbbeb · 2011-01-17 16:13:04

bbbeb wrote:
ScratchReallyROCKS wrote:
it's the method name; it has spaces in it.

I tried this:

newCostume from x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory
but it got me a mediaStep error.
You're right!
Try this:
newCostume x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory

I GOT IT TO WORK WITHOUT AN ERROR (FOR NOW!!!)

Code:

getCostumeFromx1: t1 y1: t2 x2: t3 y2: t4
    costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory

Testing it now...

ScratchReallyROCKS · 2011-01-17 16:15:35

It just highlights the block like it's running, but doesn't do anything sad

I did something that gets me an error every time I press the stop button lol

bbbeb · 2011-01-17 16:16:34

bbbeb wrote:
bbbeb wrote:
ScratchReallyROCKS wrote:
it's the method name; it has spaces in it.

I tried this:

but it got me a mediaStep error.
You're right!
Try this:
newCostume x1: t1 y1: t2 to x2: t4 y2: t4
costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
media addLast: costume.
self costumeChanged.
self updateMediaCategory
I GOT IT TO WORK WITHOUT AN ERROR (FOR NOW!!!)
Code:
getCostumeFromx1: t1 y1: t2 x2: t3 y2: t4
    costume _ Form fromDisplay: (Rectangle origin: (t1@t2) corner: (t3@t4)).
    costume mediaName: (self unusedMediaNameFromBaseName: 'costume').
    media addLast: costume.
    self costumeChanged.
    self updateMediaCategory
Testing it now...

I'm gonna bash my head into a wall. I have to go for ~15 minutes, I'll see what i can do when i get back.

ScratchReallyROCKS · 2011-01-17 16:18:48

I'll work on it too.

sparks · 2011-01-17 16:28:33

It's looking good, it's a shame it's so difficult, it would be such a useful block!

Scratch

archived forums

#1 2011-01-16 10:24:44

smalltalk command?

#2 2011-01-16 10:26:33

Re: smalltalk command?

#3 2011-01-16 11:16:35

Re: smalltalk command?

#4 2011-01-16 11:24:41

Re: smalltalk command?

#5 2011-01-16 15:46:26

Re: smalltalk command?

#6 2011-01-16 15:53:22

Re: smalltalk command?

bbbeb wrote:

#7 2011-01-16 15:59:17

Re: smalltalk command?

LS97 wrote:

bbbeb wrote:

#8 2011-01-16 16:08:31

Re: smalltalk command?

Code:

Code:

#9 2011-01-17 11:42:37

Re: smalltalk command?

sparks wrote:

#10 2011-01-17 15:48:34

Re: smalltalk command?

bbbeb wrote:

Code:

Code:

TheSuccessor wrote:

sparks wrote:

Code:

#11 2011-01-17 15:53:56

Re: smalltalk command?

#12 2011-01-17 15:56:56

Re: smalltalk command?

sparks wrote:

#13 2011-01-17 15:58:16

Re: smalltalk command?

sparks wrote:

#14 2011-01-17 15:59:06

Re: smalltalk command?

#15 2011-01-17 16:02:23

Re: smalltalk command?

Code:

#16 2011-01-17 16:03:55

Re: smalltalk command?

sparks wrote:

Code:

#17 2011-01-17 16:06:03

Re: smalltalk command?

#18 2011-01-17 16:08:19

Re: smalltalk command?

#19 2011-01-17 16:09:49

Re: smalltalk command?

ScratchReallyROCKS wrote:

#20 2011-01-17 16:12:58

Re: smalltalk command?

bbbeb wrote:

ScratchReallyROCKS wrote:

#21 2011-01-17 16:13:04

Re: smalltalk command?

bbbeb wrote:

ScratchReallyROCKS wrote:

Code:

#22 2011-01-17 16:15:35

Re: smalltalk command?

#23 2011-01-17 16:16:34

Re: smalltalk command?

bbbeb wrote:

bbbeb wrote:

ScratchReallyROCKS wrote:

Code:

#24 2011-01-17 16:18:48

Re: smalltalk command?

#25 2011-01-17 16:28:33

Re: smalltalk command?

Board footer