.NET

[widgetdance]

Re: Franco

Now Now Threaded, where are the stack comments? Proper FORTH coders would never leave out the stack comments.

[threaded]

Re: Franco

Dim: To do somat like that you'd want this:

fvariable ci fvariable c fvariable zi fvariable z
: >2? z f@ fdup f* zi f@ fdup f* f+ 4.0e f> ;
: nextr z f@ fdup f* zi f@ fdup f* f- c f@ f+ ;
: nexti z f@ zi f@ f* 2.0e f* ci f@ f+ ;
: pixel c f! ci f! 0e z f! 0e zi f! 150 50 do nextr nexti zi f! z f! >2? if i unloop exit then loop 0 ;
: left->right -1.5e 400 0 do fover fover pixel emit 0.005e f+ loop fdrop ;
: top->bottom -1e 400 0 do left->right 0.005e f+ loop fdrop ;
.( P5) cr .( 400 400) cr .( 255) cr top->bottom bye


the other did ascii. Can yours do ascii?

[SupremeSpod]

Re: Franco

Threaded, you've posted that tulipe before.

Also, I suggest if you're gonna steal someone elses code you might be kind enough to credit them for it.

Spod.

[threaded]

Re: Franco

Spodly: Nah, not that one, the one I posted before these two was clearly obfuscated.

[SupremeSpod]

Re: Franco

So you didn't steal the code then Threaded?

[SupremeSpod]

Re: Franco

because

fvariable ci fvariable c fvariable zi fvariable z
: >2? z f@ fdup f* zi f@ fdup f* f+ 4.0e f> ;
: nextr z f@ fdup f* zi f@ fdup f* f- c f@ f+ ;
: nexti z f@ zi f@ f* 2.0e f* ci f@ f+ ;
: pixel c f! ci f! 0e z f! 0e zi f! 150 50 do nextr nexti zi f! z f! >2? if i unloop exit then loop 0 ;
: left->right -1.5e 400 0 do fover fover pixel emit 0.005e f+ loop fdrop ;
: top->bottom -1e 400 0 do left->right 0.005e f+ loop fdrop ;
.( P5) cr .( 400 400) cr .( 255) cr top->bottom bye

looks remarkably similar to this...

fvariable ci fvariable c fvariable zi fvariable z
: >2? z f@ fdup f* zi f@ fdup f* f+ 4.0e f> ;
: nextr z f@ fdup f* zi f@ fdup f* f- c f@ f+ ;
: nexti z f@ zi f@ f* 2.0e f* ci f@ f+ ;
: pixel c f! ci f! 0e z f! 0e zi f! 150 50 do nextr nexti zi f! z f! >2? if i unloop exit then loop 0 ;
: left->right -1.5e 400 0 do fover fover pixel emit 0.005e f+ loop fdrop ;
: top->bottom -1e 400 0 do left->right 0.005e f+ loop fdrop ;
.( P5) cr .( 400 400) cr .( 255) cr top->bottom bye

Which can be found here

[threaded]

Re: Franco

Oh my gawd, Spodly has learnt how to google. There's no stopping him now.

[DimPrawn]

Re: Franco

People ACTUALLY still write code when there's that great FREE library out there called Google? :rolleyes

I just cut'n'shut bits together rather like one of those backstreet 2nd hand car dealers do in east London.