Scratch

Now be prepared for submission requests.    HM123

Thanks, successor 

Yes Sci, that's exactly what I'm preparing myself for *dons the helmet of cool-headedness and leaps behind the sandbags of eternal patience.

OK, I'm not going to just wait for you guys to do an update.  Here's some more blocks.  Pictures are now made!

('%n closer value: %n or %n' #r #Closer:One:Two:)

Closer: t1 One: t2 Two: t3
| L g |
t1 isInf ifTrue:[^ 0].
t1 isNaN ifTrue:[^ 0].
t2 isInf ifTrue:[^ 0].
t2 isNaN ifTrue:[^ 0].
t3 isInf ifTrue:[^ 0].
t3 isNaN ifTrue:[^ 0].
L _ t2.
g _ t3.
L > g ifTrue:[
g _ t2.
L _ t3].
t1 < ((L+g)/2) ifTrue:[
^ L].
^ g

('%n is closer to %n than %n?' #b #Closer:To:Than:)

Closer: t1 To: t2 Than: t3
t1 isInf ifTrue:[^ 0].
t1 isNaN ifTrue:[^ 0].
t2 isInf ifTrue:[^ 0].
t2 isNaN ifTrue:[^ 0].
t3 isInf ifTrue:[^ 0].
t3 isNaN ifTrue:[^ 0].
^ ((t2 - t1) abs) < ((t2 - t3) abs)

Note: Since it has to be closer, numbers with equal distance, such as <12 is closer to 11 than 10>, will return false.

('viewing mode' #r #ViewingMode)

ViewingMode
(self ownerThatIsA: ScratchFrameMorph) ifNil: [^ 'presentation'].
^ (self ownerThatIsA: ScratchFrameMorph) viewMode asString

EDIT:  Never mind.
EDIT2:  I'm using the Panther block maker to make block pictures; SO much easier!  They're still Scratch blocks though.
EDIT3:  Blocks made.  Panther makes blockmaking so much easier!   
EDIT4:  (viewing mode) fixed!

Last edited by Greenatic (2011-09-17 14:13:40)

@joefarebrother: Sorry, I don't think you'll be chosen. I was kinda thinking Hardmath123 would do a good job.
@Greenatic: The second should be a boolean.

Greenatic, the first and second are like opposites, right?
The first reports which it's closer to, and the second reports if it's closer to A.

Scimonster, please don't reject people because you want me to become the next BL, because I don't really have time to manage that much at all. 

Hardmath123 wrote:

Scimonster, please don't reject people because you want me to become the next BL, because I don't really have time to manage that much at all. 

That's not why; it's because I don't think he would have done a good job. 

@jslomba: nXIII quit, but he would have done a good job too. :3

Ashurathehedgehog wrote:

Sorry, but do you have a SIMPLE url block code without "box 1" and stuff? and if so, please can you post a link to the page. (ps, not allowed to download)

lol, we're talking about the blocks in scratch, not url blocks.

As brilliant as nXIII is, I'm not sure he'd have the time or patience for it    I agree hardmath123 would be an excellent choice but he seems to think he's too busy which is fine.

I'm working both Saturday and Sunday This week so won't be on much, could someone perhaps mildly nag theSuccessor about the block image renderer project for me since I can't?

scimonster wrote:

@Greenatic: The second should be a boolean.

Oh yeah...I better go fix that. 

EDIT:  Fixed.

Last edited by Greenatic (2011-09-16 16:23:21)

('GCF of %n and %n' #r #GCF:And:)

GCF: t1 And: t2
| L c gcf |
t1 isInf ifTrue:[^ 0].
t1 isNaN ifTrue:[^ 0].
t2 isInf ifTrue:[^ 0].
t2 isNaN ifTrue:[^ 0].
L _ t1 abs.
L > (t2 abs) ifTrue:[
L _ t2 abs].
c _ 1.
gcf _ 1.
[L < c] whileFalse:[
(t1/c) = ((t1/c) rounded) ifTrue:[
(t2/c) = ((t2/c) rounded) ifTrue:[
gcf _ c]].
c_c+1].
^ gcf

('LCM of %n and %n' #r #LCM:And:) 

LCM: t1 And: t2
|L c gcf |
t1 isInf ifTrue:[^ 0].
t1 isNaN ifTrue:[^ 0].
t2 isInf ifTrue:[^ 0].
t2 isNaN ifTrue:[^ 0].
L _ t1 abs.
L > (t2 abs) ifTrue:[
L _ t2 abs].
c _ 1.
gcf _ 1.
[L < c] whileFalse:[
(t1/c) = ((t1/c) rounded) ifTrue:[
(t2/c) = ((t2/c) rounded) ifTrue:[
gcf _ c]].
c_c+1].
^ (t1*t2)/gcf

Last edited by Greenatic (2011-09-16 19:16:04)

will someone do a byob update soon?

Greenatic wrote:

IMPORTANT NOTE:  In the library post, Scimonster incorrectly stated the location of some code for my |make {  v} draggable| and |make {  v} undraggable| blocks.  Scratch-Blocks > SpriteArgMorph > event handling > presentMenu is the correct location; he used "other" instead of "event handling".

Tomorrow.

Greenatic wrote:

joefarebrother wrote:

will someone do a byob update soon?

Or how about a full Scratch blocks update?

^^;
I'm not so good at BYOB updates, but I'll try if I can find them.