to legostein x y g
	pd
	PolyStart
	repeat 2
	[	fd g*100*y rt 90
		fd g*100*x rt 90
	]
	PolyEnd
	farbe=pc
	setPC schwarz
	repeat 2
	[	fd g*100*y rt 90
		fd g*100*x rt 90
	]
	pu
	fd g*50 rt 90 fd g*50
	setLabelSize [20 20]*g
	repeat y
	[	repeat x
		[	pd circle g*30
			rt 90 label [LEGO] lt 90 pu
			fd g*100
		]
		bk g*100*x
		lt 90 fd g*100 rt 90
	]
	bk g*50
	lt 90 bk g*(y*100+50)
	setPC farbe
end

to lego
	rot=RGB 1 0 0
	grün=RGB 0 1 0
	blau=RGB 0 0 1
	schwarz=RGB 0 0 0
	weiss=RGB 1 1 1
	WindowMode
	setPC rot
	legostein 4 2 1
	lt 90 fd 100
	setPC grün
	legostein 3 2 0.5
	lt 90 fd 100
	setPC blau
	legostein 2 1 0.5
	lt 90 fd 100
	setPC weiss
	legostein 4 8 0.5
end