to weida wieviele
	forward Radius*wieviele*6
end

to drehum
	right 180
end

to fülleAußendreieck
	setpensize [2 2]
	penup
	weida 4
	right 60
	pendown
	repeat 3 [weida 4 right 120]
	penup
	right 30
	weida 1
	(fill FILL_TOLERANT)
	drehum
	weida 1
	right 150
	pendown
	repeat 3 [weida 4 right 120]
	right 120
	penup
	setpencolor cRand
	weida 4
	drehum
	setpensize [1 1]
end

to feld
	pendown
	fillCircle Radius
	circle Radius
	penup
	forward Radius*1
	pendown
	forward Radius*4
	penup
	forward Radius*1
	pendown
end

to felder wieviele
	repeat wieviele [Feld]
end

to Dreieck Seitenpunkte innen
	felder Seitenpunkte-1
	left 120
	feld
	ifelse Seitenpunkte > 2
	[	repeat Seitenpunkte-2
		[	left 120 feld right 120 feld
		]
		right 120
		Dreieck Seitenpunkte-1 innen
		right 120
		feld
	]
	[
		ifelse innen
		[	setfloodcolor cRand
			right 180
			Dreieck 5 "false
			left 180
			setfloodcolor cFeld
			left 120
			pu fd Radius*6 pd
		]
		[	left 120
			feld
		]
	]
	left 120
end

to schräg Größe
	penup
	right 45
	forward Größe*sqrt 2
	right 135
	pendown
end

to quadrat Größe
	schräg Größe
	repeat 4 [forward 2*Größe right 90]
	schräg Größe
End

to Schreib Text
	local [Stift xy xKorrektur yKorrektur]
	Stift=pen
	xy=list 0 0	;	(Labelsize Text)
	xKorrektur=(item 1 xy)/2
	yKorrektur=(item 2 xy)/2
	penup
	back xKorrektur
	left 90 forward yKorrektur
	right 90
	pendown
	; label Text
	penup
	forward xKorrektur
	right 90 forward yKorrektur
	left 90
	; setPen Stift
end

to Schriftart Name_ Höhe Breite [kursiv 0]
	make (word "Schrift_ Name_)
		(list Standardfont int Radius*Höhe int Radius*Breite
			1 800 int kursiv 0 0 0 3 2 1 18)
end

to Schriftarten Parameterliste
	Standardfont = [Times New Roman]
	foreach Parameterliste
	[	ifelse (count ?) == 3
		[	(Schriftart run item 1 ?  run item 2 ?  run item 3 ?)
		][	(Schriftart run item 1 ?  run item 2 ?  run item 3 ?  run item 4 ?)
		]
	]
end

to Copyright Größe
	penup
	right 180
	forward Größe*0.98
	left 90
	; setLabelFont Schrift_Copyright
	schreib "\(C\)\ by\ AM
	left 90
	forward Größe*0.98
	right 90

	left 45
	back 0.965*(sqrt 2)*Größe
	right 45
	; setLabelFont Schrift_Made_in
	; label [Made in Germany]
	forward Größe*0.965
end

to Spielbrett Größe
	Feldfaktor=1/7
	Radius=Größe*Feldfaktor
	Schriftarten
	[	["Copyright 4/3 2/3 2]
		["Made_in 1 1/2]
	]
	cScreenColor = hsb 59 0.5 1
	Farben = (list hsb 0 1 1  hsb 120 1 1  hsb 240 1 1)
	cInnen = hsb 0 0 0.5
	cRand=0
	cFeld = hsb 200 0.4 1

	setScreenColor cScreenColor
	setPenSize (list round Größe/100 round Größe/100)
	; quadrat Größe*0.96

	repeat 2
	[	repeat 3
		[	setFloodColor item repcount Farben
			fülleAußendreieck
			right 60
		]
	]
	setfc cInnen
	setPenColor cRand
	; fill

	setPenSize (list round Größe/150 round Größe/150)
	setPenColor cRand
	setfloodcolor cFeld
	repeat 6
	[	Dreieck 5 "true
		right 60
	]
	; Copyright Größe
end

to halma
	cs ht
	Spielbrett 55
end