; Rechtecke, Kreise und Linien zeichnen mit eigerScript...................................

SUB	Draw_Tree

; Rechteck 1 (Wiese)
	Load.Geometry_XYWH( 200, 300, 100, 50 )
	eI.FillColor := yellowgreen
	eI.LineColor := brown
	Draw.RectangleFilled() 	; ausgefülltes Rechteck

; Rechteck 2 (StammFuss)
	Load.Geometry_XYWH( 210, 290, 80, 10 )
	Draw.Rectangle() 		; nur Rechteck-Rahmen

; Kreis 1 (BaumKrone)
	Load.Pos_X1Y1( 250, 200 )	;Kreis-Zentrum
	eI.Radius := 40
	eI.FillColor := darkgreen
	Draw.CircleFilled()

; Kreis 2 (Blütenkreis rot)
	eI.Radius := 50
	eI.FillColor := transparent
	eI.LineColor := red
	Draw.Circle()

; Kreis 3 (Blütenkreis gelb)
	eI.Radius := 51
	eI.LineColor := yellow
	Draw.Circle()

; Linie 1 (BaumStamm)
	Load.Pos_X2Y2( 250, 290 )	; Koord. für Endpkt (Startpkt bereits gesetzt im Kronenzentrum)
	eI.LineColor := brown
	Draw.Line()

; Linie 2 (Wasser, zwei Pixel dick)
	Load.Pos_X1Y1( 150, 360 )	; Koordinaten Startpunkt
	Load.Pos_X2Y2( 350, 360 )	; Koordinaten Endpunkt
	eI.LineColor := blue
	Draw.Line()

	; für doppelte Liniendicke
	eI.Pos_Y1 := eI.Pos_Y1 + 1	; neue Y-Koord. für Startpunkt
	eI.Pos_Y2 := eI.Pos_Y2 + 1	; neue Y-Koord. für Endpunkt
	Draw.Line()

ENDSUB