PROCEDURE Lampe;

VAR

i1, i2: INTEGER;
hoehe, groesse, cm_hoch: REAL;

BEGIN

cm_hoch:=17.6;
{Hier maximale Lampenhöhe in cm eingeben}


groesse:=cm_hoch/17.6;
PenSize(1);


FOR i1:=1 TO 3 DO BEGIN;
PenFore(0,0,0);
hoehe:=7+8*Random;
Poly(-3.7429182182,-3.6896818096,-2.58821767986,-1.6896818096,-4.0440289181,0.5887791594,-6.1399003867,2.3042129519,-3.0207820294,5.4341533369,-1.4335171414,hoehe,.1139384141,5.3307256573,1.0664828586,0.6404452093,-0.278816603,-1.6896818096);

PenFore(0,65500,0);
Poly(.1139384141,5.3307256573,-1.4335171414,1.3103181904,-4.0440289181,0.5887791594,-3.0207820294,5.4341533369,-1.4335171414,1.3103181904,-2.58821767986,-1.6896818096,-1.4335171414,-.7334349586,-0.278816603,-1.6896818096,-1.4335171414,1.3103181904,1.0664828586,0.6404452093);

RotatePoint(-1.4335171414,-3.6896818096,-120);
END;
Scale(groesse,groesse);

PenFore(0,0,0);
ArcByCenter(-1.4335171414,-3.6896818096,1.5,0,360);
END;
Run(Lampe);