Scratch

fancypants36 wrote:

I have one at
https://skydrive.live.com/redir.aspx?cid=04769921cfda37ee&resid=4769921CFDA37EE!195&parid=4769921CFDA37EE!120&authkey=!AEWjg3KDQU0k5sU

This link appears to go to a windows live page that I can't log into with my live account?

since when are you ever going to need a program to wait a minuite?

Scratch Blocks
[block here]
Sets the pen color to the color at the desired coordinate.

Blockspec:

('set pen color to x:%n y:%n' #- #colorX:y: 0 0)

colorAtX:y: (required to run colorX:y: )

colorAtX: t1 y: t2 
    | t3 t4 t5 t6 t7 |
    t3 _ self ownerThatIsA: ScratchFrameMorph.
    t3
        ifNil: 
            [(t4 _ self ownerThatIsA: OffscreenWorldMorph) ifNil: [^ self].
            t3 _ t4 frame].
    t5 _ t1.
    t5 isNaN ifTrue: [t5 _ 0].
    t5 > 240 ifTrue: [t5 _ 240].
    t5 < -240 ifTrue: [t5 _ -240].
    t6 _ t2.
    t6 isNaN ifTrue: [t6 _ 0].
    t6 < -180 ifTrue: [t6 _ -180].
    t6 > 180 ifTrue: [t6 _ 180].
    DoubleSize
        ifTrue: 
            [t5 _ t5 * 2.
            t6 _ t6 * 2].
    t7 _ t5 @ t6 negated.
    ^ Display colorAt: ScratchOrigin + t7

colorX:y:

colorX: t1 y: t2 
    | t3 |
    penColor _ self colorAtX: t1 y: t2.
    penHue _ penColor hue * 200.0 / 360.0.
    t3 _ penColor brightness.
    t3 = 1.0
        ifTrue: [penShade _ 50.0 + (50.0 * (1.0 - penColor saturation))]
        ifFalse: [penShade _ 50.0 * t2]

I already tested it and directly copy and pasted.

Last edited by chanmanpartyman (2012-05-06 17:42:59)

Squawkers13 wrote:

will you finish the site?

Yes.

Blockspec:

('true' #b #true)

true
    ^ true

Blockspec:

('false' #b #false)

false
    ^ false

Just to ask, since about 50% (of what i've seen) of the images on the Block Libary, can't you remove the [GET ANTIDOTE MESSAGE HERE] message?

Splodgey wrote:

scimonster wrote:

Sorry GeonoTRON2000, those blocks have already been shared.

Does that mean you missed my submisions or did I miss your post "neglecting" them?

If nobody said anything about your blocks, then I would assume they're good.  Are you talking about a specific post or multiple ones in general?

Squawkers13 wrote:

sparks wrote:

Squawkers13 wrote:

[sarcasm]will you finish the site?[/sarcasm]

Yes.

Notice the tags?

So... you're not asking of I'll ever finish the site?

Splodgey wrote:

Greenatic wrote:

Splodgey wrote:

Does that mean you missed my submisions or did I miss your post "neglecting" them?

If nobody said anything about your blocks, then I would assume they're good.  Are you talking about a specific post or multiple ones in general?

I was talking about this post;

Splodgey wrote:

I have 3 panther blocks...
http://i.imgur.com/VFLZ9.gif
Name:

Code:

$number$ out of $number$ as %

Type:

Code:

 r

Code:

Code:

t1/t2*100

http://i.imgur.com/Szjrv.gif
This block is already in Panther, but you can't drag reporter blocks in a "$Keys$ slot". Although this could be achieved with <(key pressed) = []>.
Name:

Code:

key $String$ pressed?

Type:

Code:

b

Code:

Code:

self keyPressed: t1

http://i.imgur.com/UC9Ib.gif
I discovered this when dragging the (key pressed) block into the above block 
Name:

Code:

any button pressed?

Type:

Code:

b

Code:

Code:

self keyPressed: self keyPressed

That last one seems very useful--I'm not sure about the the others, though.

Woah. I just made a show and Hide cursor block. Now I think I can make a toggle Cursor visibility block.
EDIT: Ok.. That failed - but here's the show + hide cursor blocks:
show Cursor
Code:

    World activeHand showTemporaryCursor: nil

hide Cursor
Code:

    World activeHand showTemporaryCursor: ((Form extent: 1 @ 1 depth: 32)
            fillColor: Color transparent)

I found the blocks in the System Browser, in the Other Ops (Where the <$String$ as boolean> block is)

Last edited by DigiTechs (2012-05-12 04:31:03)

DigiTechs wrote:

Woah. I just made a show and Hide cursor block. Now I think I can make a toggle Cursor visibility block.
EDIT: Ok.. That failed - but here's the show + hide cursor blocks:
show Cursor
Code:

Code:

    World activeHand showTemporaryCursor: nil

hide Cursor
Code:

Code:

    World activeHand showTemporaryCursor: ((Form extent: 1 @ 1 depth: 32)
            fillColor: Color transparent)

I found the blocks in the System Browser, in the Other Ops (Where the <$String$ as boolean> block is)

These were already submitted.    But you could work on that toggle cursor block.    If you want help i could help you with it.    (or I could do it for you.  ) Btw: That is a great block idea.
(Oh, and yes the cursor blocks were submitted by me.  )

@Librarians: You may want to check out the website development thread, I've added page editing support for some pages!

Pecola1 wrote:

sparks wrote:

@Librarians: You may want to check out the website development thread, I've added page editing support for some pages!

I'll be sure to! Last time I went on (the other day) everything said it was being worked on.

There's an "admin" link at the bottom of the pages in the footer