0010 // RUDOLMU3.CML                     (C) 2000 Hartmut Josi Benn�hr
0020 USE turtle     //                            Eichenweg 2
0030 home; nowrap; window(-160,160,-120,120) //   D 25791 Linden
0040 fullscreen
0050 wng:=60-ASN(4/5)*180/PI             
0060 wnz:=60-ACS(5/6)*180/PI-wng         
0070 wnk:=60-wng-wnz                     
0080 wfg:=60-ACS(5/8)*180/PI
0090 wfz:=60-ASN(3/5)*180/PI-wfg
0100 wfk:=60-wfg-wfz
0110 a:=45; e:=a/5; dy:=a/2*SQR(3) // a bestimmt Gr��e
0120 xanf:=(160 DIV a+1)*a; yanf:=(120 DIV dy+1)*dy
0130 FOR y:=yanf TO -yanf STEP -dy DO
0140   xanf:+a*(0.5-(xanf>160+a))
0150   FOR x:=-xanf TO xanf STEP a DO f�ll(x,y)
0160 ENDFOR y
0170 xanf:=(160 DIV a+1)*a; yanf:=(120 DIV dy+1)*dy
0180 FOR y:=yanf TO -yanf STEP -dy DO
0190   xanf:+a*(0.5-(xanf>160+a))
0200   FOR x:=-xanf TO xanf STEP a DO f�rb(x,y,9)
0210 ENDFOR y
0220 PAUSE       // END""
0230 
0240 PROC stra�e
0250   pencolor(1); forward(e); right(90)
0260   pencolor(13); arcl(4*e,wfk)
0270   pencolor(1); arcl(4*e,wfz)
0280   pencolor(13); arcl(4*e,wfg)
0290   left(90)
0300   pencolor(1); forward(e); left(90)
0310   pencolor(13); arcr(3*e,wng)
0320   pencolor(1); arcr(3*e,wnz)
0330   pencolor(13); arcr(3*e,wnk)
0340   right(90)
0350 ENDPROC stra�e
0360 
0370 PROC dreieck
0380   right(30); stra�e
0390   pencolor(1); forward(3*e); right(120); stra�e
0400   pencolor(1); forward(3*e); right(120); stra�e
0410   left(90)
0420 ENDPROC dreieck
0430 
0440 PROC f�ll(x,y)			// Programm f�r dieses Muster
0450   moveto(x,y)			// entstand im Sommer 2000
0460   dreieck				// in Rudolstadt in Th�ringen
0470   move(2*e,0); dreieck
0480 ENDPROC f�ll			// Wenn man dies Listing so
0490 					// wie es ist �ber die
0500 PROC f�rb(x,y,f)			// Zwischenablage in den Editor
0510   pencolor(f)			// �bernimmt und als rudolmu3.lst
0520   fill(x,y)			// abspeichert, kann man
0530   fill(x+1.2*e,y+2.2*e)		// es von Comal aus mit 
0540   fill(x-1.2*e,y+2.2*e)		// enter"rudolmu3" laden und
0550   fill(x+2.5*e,y)			// ablaufen lassen. Die im
0560   fill(x,y+2.85*e)			// Programm enthaltenen Sonder-
0570   fill(x+2.5*e,y+1.5*e)		// zeichen sind dann wieder
0580 ENDPROC f�rb			// richtig.