HERE VALUE seed : RANDOM seed $107465 * $234567 + DUP TO seed ; : CHOOSE RANDOM UM* NIP ;
80 VALUE delay ( in ms ) 40 VALUE xcenter1 50 VALUE xcenter2 30 VALUE xcenter3 6 VALUE ycenter1 13 VALUE ycenter2 10 VALUE ycenter3
: STICKMAN ( | 6_strings ) 0 0 LOCALS| 'start sz | CREATE HERE TO 'start 0 , 6 0 DO REFILL 0= ABORT" refill error" 0 WORD COUNT EVALUATE TO sz HERE sz CMOVE sz ALLOT LOOP sz 'start ! DOES> ( X Y ix -- ) @+ DUP 6 / LOCALS| dx dy 'start frame Y X | 6 0 DO X Y I + AT-XY dy I * 'start + frame dx * CHARS + dx TYPE LOOP ;
\ One string would have been enough, but hey... STICKMAN zero S" " S" " S" " S" " S" " S" "
STICKMAN one S" o o o o o o" S" O / O / o / o / o / O / " S" o---|- o---|- o---|- o---|- o---|- o---|- " S" /\ /\ /\ /\ /\ /\ " S" \ \ _' \ \ \ \ \ _' \ \ \ " S" - - - - - - - - - - "
STICKMAN two S" o o o o o o" S" O / O / O / O / O / O / " S" o---|- .--|- .-|- .-|- .-|- .--|- " S" /\ o /\ o /\ |/\ o /\ o /\ " S" \ \ \ \ \ \ o\ \ \ \ \ \ " S" - - - - - - - - - - - - "
STICKMAN three S" o o o o o o" S" O / O / O / O / O / O / " S" o---|- o---|- o---|- o---|- o---|- o---|- " S" /\ /\ /\ /\ /\ /\ " S" \ \ _| \ _' \ / \ / |_ / / " S" - - - - - - - - - "
STICKMAN four S" o " S" O / O o O O O O " S" o---|- o---|- o---|-o o---|-. o---|- o---|- " S" /\ /\ /\ /\ o /\\o /\\ " S" \ \ | \ / \ / \ / | / / o" S" - - - - - - - - - - - - "
STICKMAN five S" o o o o o o" S" O / O / O / O / O / O / " S" o---|- .--|- .--|- .-|- .-|- .-|- " S" /\ o /\ o /\ o /\ | /\ / /\ " S" \ \ | \ / \ / \ o/ | o / / " S" - - - - - - - - - - - - "
STICKMAN six S" o " S" O / O o O O O O " S" o---|- .--|- .--|-o .-|-. .-|- .-|- " S" /\ o /\ o /\ o /\ o | /\\o / /\\ " S" \ \ _| \ / \ / \ o/ | o / / o" S" - - - - - - - - - - - "
STICKMAN seven S" o o o o o o" S" O / O / o / o / o / O / " S" o---|- o---|- o---|- o---|- o---|- o---|- " S" /\ /\ /\ /\ /\ /\ " S" / / / /_ / /_ / / / / / / " S" - - - - - - - - - - "
STICKMAN eight S" o o o o o o" S" O / O / O / O / O / O / " S" o---|- .--|- .-|- .-|- .-|- .--|- " S" /\ o /\ o /\ |/\ o /\ o /\ " S" / / / / / / o / / /_ / / " S" - - - - - - - - - - - "
CREATE men ' one , ' two , ' three , ' four , ' five , ' six , ' seven , ' eight ,
\ TASKs would be nicer, but this is ANS :-) : HIP-HOP ( -- ) 3 CHOOSE xcenter1 + 3 CHOOSE ycenter1 + 8 CHOOSE CELLS men + @ 3 CHOOSE xcenter2 + 3 CHOOSE ycenter2 + 8 CHOOSE CELLS men + @ 3 CHOOSE xcenter3 + 3 CHOOSE ycenter3 + 8 CHOOSE CELLS men + @ LOCALS| xt3 y3 x3 xt2 y2 x2 xt1 y1 x1 | 6 0 DO x1 y1 I xt1 EXECUTE x2 y2 I xt2 EXECUTE x3 y3 I xt3 EXECUTE delay MS LOOP x1 y1 0 zero x2 y2 0 zero x3 y3 0 zero ;
: DANCERS ( -- ) PAGE BEGIN HIP-HOP EKEY? UNTIL EKEY DROP ;
Name:
Anonymous2015-03-09 17:52
>>4 True white aryans like >>3 goose-step in marching lines singing Horst-Wessel-Lied.