1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
| ...
procedure Tageslinien;
var Zaehler1 :integer;
text :string[6];
begin
Farbe1:=red; SetColor(Farbe1);
for Zaehler1:=1 to 13 do begin
case Zaehler1 of
1: begin Tag:= 5; text:=' 5.Jan'; end;
2: begin Tag:= 35; text:=' 4.Feb'; end;
3: begin Tag:= 65; text:=' 6.M"r'; end;
4: begin Tag:= 95; text:=' 5.apr'; end;
5: begin Tag:=125; text:=' 5.Mai'; end;
6: begin Tag:=155; text:=' 4.Jun'; end;
7: begin Tag:=172; text:='21.Jun'; end;
8: begin Tag:=202; text:='21.Jul'; end;
9: begin Tag:=232; text:='20.Aug'; end;
10:begin Tag:=262; text:='19.Sep'; end;
11:begin Tag:=292; text:='19.Okt'; end;
12:begin Tag:=322; text:='18.Nov'; end;
13:begin Tag:=351; text:='21.Dez'; end; end;
if Tag > 181 Then begin Farbe1:=green; SetColor(Farbe1);end;
Deklination(Tag);
AU(Tag);
Zonenzeit:=ZZA;
repeat
Hoeheazi(Tag,Zonenzeit);
if Hoehenwinkel < 0 then Hoehenwinkel:=0;
xy(Hoehenwinkel,azi);
putpixel(Bmittex+x1,Bmittey+y1,farbe1);
Zonenzeit:=Zonenzeit+0.02;
until Zonenzeit >=ZZU;
end; end;
procedure Stundenschleifen;
begin
Zonenzeit:=1;
repeat {"Stundenschleife"}
Tag:=1;
repeat {"Tagesschleife"}
if Tag < 181 then Farbe1:=red else Farbe1:=green;
SetColor(Farbe1);
Deklination(Tag);
hoeheazi(Tag,Zonenzeit);
if Hoehenwinkel >= 0 then begin
xy(Hoehenwinkel,azi);
putpixel(Bmittex+x1,Bmittey+y1,farbe1); end;
Tag:=Tag+1;
until Tag > 366;
Zonenzeit:=Zonenzeit+1;
until Zonenzeit >24;
end;
... |