MCVSMscript-2 VectorScripts ìD0²script-2gZIn diesem Bereich bestimmen Sie, unter welchen Bedingungen das Objekt neu gezeichnet wird.;?Œ;,<?Œ>+=?ŒB,<?ŒE-;?ŒF.:?ŒG/9?Œ²üë²É ùùùùùùùùùùùùùùùùùùùùùùìììùùìììùùìììùùùùùùùùùùùùùùùùùùùùùùü@@@@C„C„C„@@@@üü@@@@C„C„C„@@@@ü º ÓNumX20NumY20PROCEDURE Lampe; { eine Lampe soll entstehen, im Grundriss quadratisch, in Hšhe und Breite frei wŠhlbar } { runde Lšcher sollen Ÿber die ganze Lampe, in zufŠlligen gršssen, Ÿber ein Raster verteilt werden zufŠllig sollen einzelne Lšcher ausgelassen werden } { weil zu kleine Lšcher keinen Sinn ergeben, da kein Licht durchdringt, werden sie ausgelassen } { die lšcher sollen sich auch nicht Ÿberschneiden, daher sind sie in ihrer Gršsse beschrŠnkt } { Um die Lampe auffalten zu kšnnen, mŸssen die Lšcher in bestimmte, frei wŠhlbare, Felder verteilt werden } VAR x,y: INTEGER; sizea,x1,y1:REAL; BEGIN x1:=PNUMX; y1:=PNUMY; FOR x:=1 TO 4*x1 DO BEGIN FOR y:=1 TO 8*y1 DO BEGIN IF (NOT(x>=x1+1) OR NOT (Y>=Y1+1)) THEN BEGIN IF (NOT(y>=y1+x1+1)) THEN BEGIN sizea:=Random*4; IF (sizea>=1) THEN BEGIN Oval((x*12)-sizea,(y*12)-sizea,(x*12)+sizea,(y*12)+sizea); Rect(+7,+7,x1*12+7,y1*12+7); rect(x1*12+7,+7,24*x1+7,y1*12+7); rect(24*x1+7,+7,36*x1+7,y1*12+7); rect(36*x1+7,+7,48*x1+7,y1*12+7); rect(+7,y1*12+7,12*x1+7,12*y1+7+12*x1); END; END; END; END; END; END; RUN (Lampe);LŠngelŠnge y