Scratch

sparks · 2011-07-08 06:58:30

I'm really in need for a way that a custom block could add a string as a costume - I'm currently using Mathwizz's text stamping block but it means that I have to reload the entire screen once the text has displayed due to stamping etc so what I really need is a way to display the text without stamping it :S Anyone have any idea how this could be done? Thanks!

owetre18 · 2011-07-08 17:24:25

Just to bump this, I don't know.

sparks · 2011-07-12 10:43:09

Bump hmm

Pecola1 · 2011-07-12 11:33:01

LOL, at first I saw text as costume and I was like. 0.o Then I saw what you meant. I may look for this after my vacation... but then again it will be school time by then...

sci_test · 2011-07-12 11:45:44

Well, maybe you should look at the code for having text in the Paint Editor. smile

At least 180 seconds have to pass between posts. Please wait a little while and try posting again.
Now is when I would be happy with the sixty second rule. neutral

sparks · 2011-09-09 17:14:24

Bump. I'm wondering if anyone has any idea?

WindowsExplorer · 2011-09-09 17:27:58

Not sure... I justed squashed an annoying fly. (Sorry I'm not much help tongue )

sparks · 2011-10-31 12:23:53

Bump

MathWizz · 2011-10-31 14:24:04

Umm... Mind doing me a favor and giving me the code to the text stamping block? tongue

sparks · 2011-10-31 14:44:52

stamp text $String$ at x:$Number$ y:$Number$ font $String$ size $Number$ color $Color$

Code:

(stage := self ownerThatIsA: ScratchStageMorph) ifNotNil: [stage createOrResizeTrailsForm. form := stage penTrailsForm] ifNil: [^ self].
canvas := FormCanvas on: form.
canvas text: t1 at: t2+240@(t3 negated + 180) font: (StrikeFont fontName: t4 size: t5) color: t6.
stage changed.

MathWizz · 2011-10-31 14:57:03

This is all I have. You'll have to play around with it yourself because I don't have much time.

Code:

| canvas |
canvas _ FormCanvas on: Form new extent: 100@100.
canvas text: 'SFDgfdsGFDSgfdSGFDsgd' at: 2@2 font: (StrikeFont fontName: 'Arial' size: 30) color: Color red.
costume _ ImageMedia new form: canvas form.
self changed.

Mind helping me with this? tongue

Last edited by MathWizz (2011-10-31 15:00:51)

sparks · 2011-10-31 15:14:56

Well looks like you have someone answering now, and I'm afraid I don't know, sorry, but Thanks for that code, I'll play around and see what I get big_smile

MESSAGE NOT UNDERSTOOD: on:extent:

replacing line 2 with
canvas := FormCanvas on: form new extent:
gives me
MESSAGE NOT UNDERSTOOD: new

Last edited by sparks (2011-10-31 15:20:12)

sparks · 2011-11-02 06:24:49

Math?

MathWizz · 2011-11-03 12:52:45

Code:

| canvas |
canvas _ FormCanvas on: (Form new extent: 100@100).
canvas text: 'SFDgfdsGFDSgfdSGFDsgd' at: 2@2 font: (StrikeFont fontName: 'Arial' size: 30) color: Color red.
costume _ ImageMedia new form: canvas form.
self changed.

?

sparks · 2011-11-03 14:34:52

Message not understood: extent. sad

Last edited by sparks (2011-11-03 14:35:18)

MathWizz · 2011-11-03 18:21:56

This should work:

Code:

| canvas |
canvas _ FormCanvas on: (Form new setExtent: 100@100 depth: 32).
canvas text: 'SFDgfdsGFDSgfdSGFDsgd' at: 2@2 font: (StrikeFont fontName: 'Arial' size: 30) color: Color red.
costume _ ImageMedia new form: canvas form.
self changed.

sparks · 2011-11-03 18:41:02

Brilliant! It works really well, though the block needs to run twice for a change to appear, is there some sort of refresh-stage line needed?

EDIT: not be run twice, the project needs to be physically stopped and started with the flags, it would seem... The block also cannot be run by double-clicking it which suggests something inherently wrong somewhere...

text $String$ color $Color$ size $Number$ font $String$

Code:

| canvas |
canvas _ FormCanvas on: (Form new setExtent: 100@100 depth: 32).
canvas text:t1 at: 2@2 font: (StrikeFont fontName: t4 size: t3) color: t2.
costume _ ImageMedia new form: canvas form.
self changed.

Very cool that it technically works, though big_smile I have plans. So many plans ^_^

Last edited by sparks (2011-11-03 19:00:48)

MathWizz · 2011-11-03 19:27:00

I don't know if this will work because I don't have Scratch on this computer:

Code:

| canvas stage |
canvas _ FormCanvas on: (Form new setExtent: 100@100 depth: 32).
canvas text:t1 at: 2@2 font: (StrikeFont fontName: t4 size: t3) color: t2.
costume _ ImageMedia new form: canvas form.
stage _ self ownerThatIsA: ScratchStageMorph.
stage ifNotNil: [stage changed].
self changed.

sparks · 2011-11-04 03:09:33

Nope, still needs two runs to make a change hmm

rookwood101 · 2011-11-04 03:37:37

sparks wrote:
Nope, still needs two runs to make a change

well at least we've got somewhere!

sparks · 2011-11-04 12:04:14

I know! This will revolutionise so much! The text-stamping is fine for most applications, but there are times when using it means refreshing the text or removing the text means re-stamping a lot of things on the screen!

nXIII · 2011-11-04 12:48:21

text $String$ color $Color$ size $Number$ font $String$
| font csize cnv cst |
font := StrikeFont fontName: t4 size: t3.
csize := (font widthOfString: t1)@(font height).
cnv := FormCanvas on: (Form extent: csize depth: 8).
cnv text: t1 at: 0@0 font: font color: t2.
cst := ImageMedia new form: cnv form; mediaName: (self unusedMediaNameFromBaseName: costume mediaName).
media add: cst.
self lookLike: cst mediaName

ProgrammingFreak · 2011-11-04 12:54:29

nXIII wrote:
text $String$ color $Color$ size $Number$ font $String$
| font csize cnv cst |
font := StrikeFont fontName: t4 size: t3.
csize := (font widthOfString: t1)@(font height).
cnv := FormCanvas on: (Form extent: csize depth: 8).
cnv text: t1 at: 0@0 font: font color: t2.
cst := ImageMedia new form: cnv form; mediaName: (self unusedMediaNameFromBaseName: costume mediaName).
media add: cst.
self lookLike: cst mediaName

lol. It's funny how we've been trying to figure this out for ages, and now you just come online and post the code. smile

rookwood101 · 2011-11-04 13:17:41

ProgrammingFreak wrote:
nXIII wrote:
text $String$ color $Color$ size $Number$ font $String$
| font csize cnv cst |
font := StrikeFont fontName: t4 size: t3.
csize := (font widthOfString: t1)@(font height).
cnv := FormCanvas on: (Form extent: csize depth: 8).
cnv text: t1 at: 0@0 font: font color: t2.
cst := ImageMedia new form: cnv form; mediaName: (self unusedMediaNameFromBaseName: costume mediaName).
media add: cst.
self lookLike: cst mediaName
lol. It's funny how we've been trying to figure this out for ages, and now you just come online and post the code.

well, from what I can see, his code is quite similar to mathwizz's and then again, nXIII is pretty good when it comes to smalltalk smile

rookwood101 · 2011-11-04 13:29:02

Edit: There is some way to delete it right? and also change it's position.

Last edited by rookwood101 (2011-11-04 13:29:44)

Scratch

archived forums

#1 2011-07-08 06:58:30

text as costume?

#2 2011-07-08 17:24:25

Re: text as costume?

#3 2011-07-12 10:43:09

Re: text as costume?

#4 2011-07-12 11:33:01

Re: text as costume?

#5 2011-07-12 11:45:44

Re: text as costume?

#6 2011-09-09 17:14:24

Re: text as costume?

#7 2011-09-09 17:27:58

Re: text as costume?

#8 2011-10-31 12:23:53

Re: text as costume?

#9 2011-10-31 14:24:04

Re: text as costume?

#10 2011-10-31 14:44:52

Re: text as costume?

Code:

#11 2011-10-31 14:57:03

Re: text as costume?

Code:

#12 2011-10-31 15:14:56

Re: text as costume?

#13 2011-11-02 06:24:49

Re: text as costume?

#14 2011-11-03 12:52:45

Re: text as costume?

Code:

#15 2011-11-03 14:34:52

Re: text as costume?

#16 2011-11-03 18:21:56

Re: text as costume?

Code:

#17 2011-11-03 18:41:02

Re: text as costume?

Code:

#18 2011-11-03 19:27:00

Re: text as costume?

Code:

#19 2011-11-04 03:09:33

Re: text as costume?

#20 2011-11-04 03:37:37

Re: text as costume?

sparks wrote:

#21 2011-11-04 12:04:14

Re: text as costume?

#22 2011-11-04 12:48:21

Re: text as costume?

#23 2011-11-04 12:54:29

Re: text as costume?

nXIII wrote:

#24 2011-11-04 13:17:41

Re: text as costume?

ProgrammingFreak wrote:

nXIII wrote:

#25 2011-11-04 13:29:02

Re: text as costume?

Board footer