Path: csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!feeder.erje.net!eu.feeder.erje.net!fu-berlin.de!uni-berlin.de!individual.net!not-for-mail From: Paul E Bennett Newsgroups: comp.lang.forth Subject: Re: Christmas Card Date: Wed, 24 Dec 2014 15:31:11 +0000 Organization: Hidecs Consultancy Lines: 37 Message-ID: References: <84b9a45f-2172-44d2-a271-26543183acad@googlegroups.com> Mime-Version: 1.0 Content-Type: text/plain; charset="ISO-8859-1" Content-Transfer-Encoding: 7Bit X-Trace: individual.net bHFUaspZiDh/SZ16EWTF5wFz/fbxvBgQ1hW7sNdavL7kSabWuH Cancel-Lock: sha1:guhWRC2OSbtVx4c6UHXKCA6OMBI= User-Agent: KNode/4.11.4 Xref: csiph.com comp.lang.forth:35188 humptydumpty wrote: > Hi all! > > From collision of thiking to make a Christmas card and some fooling around > with permutations, resulted something not permutations nor an usual card, > tested under GForth: > > --->8 [%X] Initially had to resolve the page-width issue as some comment text and code got wrapped by my editor. Then had to figure out the differences between your Random and the one in VFX. I ended up redifining the VFX random with:- : RANDOM ( S: n -- #rand ) \ G: Return a random positive number modulo n RANDOM SWAP MOD ABS ; The end result is very pleasing. Well done HumptyDumpty. Happy Yuletide to all, and a Prosperous New Year Forthing away. -- ******************************************************************** Paul E. Bennett IEng MIET..... Forth based HIDECS Consultancy............. Mob: +44 (0)7811-639972 Tel: +44 (0)1235-510979 Going Forth Safely ..... EBA. www.electric-boat-association.org.uk.. ********************************************************************