(*
 * LANGUAGE    : ANS Forth with extensions
 * PROJECT     : Forth Environments
 * DESCRIPTION : 3D projection of Mount Takagi
 * CATEGORY    : Fractals
 * AUTHOR      : Marcel Hendrix 
 * LAST CHANGE : Friday, December 19, 2003 11:36 AM, Marcel Hendrix 
 *)



 	NEEDS -miscutil
	NEEDS -sketch3d

	REVISION -mttakagi "ÄÄÄ Mount Takagi        Version 1.00 ÄÄÄ"

	PRIVATES

DOC
(*
 Draw Mount Takagi.
*)
ENDDOC

:INLINE FREMAINDER ( F: r1 -- r2 ) FDUP F>D D>F F- ;

: mttakagi ( F: x y -- z )
		FLOCALS| y x |
		0e 7 0 DO  I 2^x S>F x F*  FREMAINDER  0.5e F- FABS  0.5e FSWAP F-
			   I 2^x S>F y F*  FREMAINDER  0.5e F- FABS  0.5e FSWAP F-
			   FMIN  I 2^x S>F F/ F+
		     LOOP ;

: TAKAGI	P Q FLOCALS| oQ oP |
		Legend? #H #V NE-grid NW-grid LOCALS| oNW oNE o#V o#H oLegend? |
		0.7e TO Q  0.5e TO Q
		TRUE TO NE-grid FALSE TO NW-grid
		Xmax 5 / TO #H  Xmax 5 / TO #V
		CLEAR Legend?
		EVAL" 0e 1e 0e 1e SKETCH-3D mttakagi" 
		oLegend? TO Legend?  o#H TO #H o#V TO #V  oNW TO NW-grid oNE TO NE-grid 
		oP TO P oQ TO Q ;

:ABOUT		CR ." Try: TAKAGI" ;

		.ABOUT -mttakagi CR
		DEPRIVE

				(* End of Source *)