[Mark SiblyKeymaster]

Yep, wordpress is pretty impressive these days!

 

 

[Mark SiblyKeymaster]

Welcome!

[Mark SiblyKeymaster]

Gone now.

[Mark SiblyKeymaster]

Don’t think I like that ‘popup’ toolbar though.

[Mark SiblyKeymaster]

Thanks Skid!

I’ve managed to avoid ANY web coding so far – wordpress is pretty damned cool.

(Like the monkey labs name too…might pinch it).

[Mark SiblyKeymaster]

Monkey

#Import "<mojo.monkey2>" Using std Using mojo Using mojo2 Using std.fiber Class RainbowCycler Extends Generator<Color> Method New( speed:Float,loops:Int=1 ) Start( Lambda() For Local i:=0 Until loops For Local h:=0.0 Until 1.0 Step speed Yield( Color.FromHSV( h,1,1 ) ) Next Next End ) End End Class MyWindow Extends Window Method New() Super.New( "My Window",0,0,640,480,WindowFlags.Center ) Destroyed=App.Terminate StartFiber( CycleClearColor ) Local button:=New Button( "Click me!" ) button.Layout="float" AddView( button ) 'Ok, make button 'drop in'! StartFiber( Lambda() Local y:=0.0 Repeat Local dy:=.75-y If Abs( dy )<.001 Return 'near enough... y+=dy*.05 button.Gravity=New Vec2f( 0.5,y ) App.WaitIdle() Forever End ) End Method CycleClearColor() Repeat Local cycler:=New RainbowCycler( .01 ) While cycler.HasNext ClearColor=cycler.GetNext() App.WaitIdle() Wend Forever End Method OnRender( canvas:Canvas ) Override App.RequestRender() End End Function Main() New AppInstance New MyWindow App.Run() End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89

#Import "<mojo.monkey2>"   Using std Using mojo Using mojo2 Using std.fiber   Class RainbowCycler Extends Generator<Color>   Method New( speed:Float,loops:Int=1 ) Start( Lambda() For Local i:=0 Until loops For Local h:=0.0 Until 1.0 Step speed Yield( Color.FromHSV( h,1,1 ) ) Next Next End ) End End   Class MyWindow Extends Window   Method New() Super.New( "My Window",0,0,640,480,WindowFlags.Center ) Destroyed=App.Terminate StartFiber( CycleClearColor ) Local button:=New Button( "Click me!" ) button.Layout="float" AddView( button ) 'Ok, make button 'drop in'! StartFiber( Lambda() Local y:=0.0 Repeat Local dy:=.75-y If Abs( dy )<.001 Return 'near enough... y+=dy*.05 button.Gravity=New Vec2f( 0.5,y ) App.WaitIdle() Forever End ) End Method CycleClearColor() Repeat Local cycler:=New RainbowCycler( .01 ) While cycler.HasNext ClearColor=cycler.GetNext() App.WaitIdle() Wend Forever End Method OnRender( canvas:Canvas ) Override App.RequestRender() End End   Function Main()   New AppInstance New MyWindow App.Run() End

Okay, that turned out to be easy!

A HUGE shout out to ‘Devolonter’ for at some point adding monkey syntax highlighting to Crayon…not quite monkey2, but close!

Wordpress + bbPress + bbpStylePack + Crayon + CleanTalk + FirmaSite FTW!!!!!

[Author]

Posts