summaryrefslogtreecommitdiff
path: root/unit3.pas
diff options
context:
space:
mode:
Diffstat (limited to 'unit3.pas')
-rw-r--r--unit3.pas134
1 files changed, 95 insertions, 39 deletions
diff --git a/unit3.pas b/unit3.pas
index 87d7e0b..89ae4d5 100644
--- a/unit3.pas
+++ b/unit3.pas
@@ -45,55 +45,111 @@ begin
with image1.canvas do begin
rectangle(-10,-10,w+10,h+10);
- moveTo(round(0.05*w),round(0.65*h));
- lineTo(round(0.15*w),round(0.65*h));
- rectangle(round(0.15*w),round(0.675*h),round(0.25*w),round(0.625*h));
- textout(round(0.15*w),round(0.675*h),'R1');
- moveTo(round(0.25*w),round(0.65*h));
- lineTo(round(0.35*w),round(0.65*h));
- rectangle(round(0.35*w),round(0.675*h),round(0.45*w),round(0.625*h));
- textout(round(0.35*w),round(0.675*h),'R2');
- moveTo(round(0.45*w),round(0.65*h));
+ moveTo(round(0.05*w),round(0.75*h));
+ lineTo(round(0.15*w),round(0.75*h));
+ rectangle(round(0.15*w),round(0.775*h),round(0.25*w),round(0.725*h));
+ textout(round(0.15*w),round(0.775*h),'R1');
+ moveTo(round(0.25*w),round(0.75*h));
+ lineTo(round(0.35*w),round(0.75*h));
+ rectangle(round(0.35*w),round(0.775*h),round(0.45*w),round(0.725*h));
+ textout(round(0.35*w),round(0.775*h),'R2');
+ moveTo(round(0.45*w),round(0.75*h));
+ lineTo(round(0.55*w),round(0.75*h));
+
+ moveTo(round(0.5*w),round(0.75*h));
+ lineTo(round(0.5*w),round(0.85*h));
+
+ moveTo(round(0.47*w),round(0.85*h));
+ lineTo(round(0.53*w),round(0.85*h));
+ moveTo(round(0.47*w),round(0.875*h));
+ lineTo(round(0.53*w),round(0.875*h));
+ textout(round(0.53*w),round(0.85*h),'C2');
+
+ moveTo(round(0.5*w),round(0.875*h));
+ lineTo(round(0.5*w),round(0.975*h));
+
+ moveTo(round(0.475*w),round(0.975*h)); // Masse
+ lineTo(round(0.525*w),round(0.975*h));
+
+ moveTo(round(0.27*w),round(0.625*h));
+ lineTo(round(0.33*w),round(0.625*h));
+ moveTo(round(0.27*w),round(0.65*h));
+ lineTo(round(0.33*w),round(0.65*h));
+ textout(round(0.33*w),round(0.625*h),'C1');
+
+ moveTo(round(0.3*w),round(0.65*h));
+ lineTo(round(0.3*w),round(0.75*h));
+
+ moveTo(round(0.3*w),round(0.625*h));
+ lineTo(round(0.3*w),round(0.525*h));
+ lineTo(round(0.8*w),round(0.525*h));
+ lineTo(round(0.8*w),round(0.7*h));
+
+ moveTo(round(0.85*w),round(0.7*h));
+ lineTo(round(0.75*w),round(0.7*h));
+ lineTo(round(0.55*w),round(0.6*h));
+ lineTo(round(0.55*w),round(0.8*h));
+ lineTo(round(0.75*w),round(0.7*h));
+
+ moveTo(round(0.5*w),round(0.525*h));
+ lineTo(round(0.5*w),round(0.65*h));
lineTo(round(0.55*w),round(0.65*h));
- moveTo(round(0.5*w),round(0.65*h));
- lineTo(round(0.5*w),round(0.75*h));
- moveTo(round(0.47*w),round(0.75*h));
- lineTo(round(0.53*w),round(0.75*h));
- moveTo(round(0.47*w),round(0.775*h));
- lineTo(round(0.53*w),round(0.775*h));
- textout(round(0.53*w),round(0.75*h),'C2');
+ moveTo(round(0.05*w),round(0.25*h));
+ lineTo(round(0.1875*w),round(0.25*h));
- moveTo(round(0.5*w),round(0.775*h));
- lineTo(round(0.5*w),round(0.875*h));
+ textout(round(0.2125*w),round(0.28*h),'C1');
+ moveTo(round(0.1875*w),round(0.22*h));
+ lineTo(round(0.1875*w),round(0.28*h));
+ moveTo(round(0.2125*w),round(0.22*h));
+ lineTo(round(0.2125*w),round(0.28*h));
- moveTo(round(0.475*w),round(0.875*h)); // Masse
- lineTo(round(0.525*w),round(0.875*h));
+ moveTo(round(0.2125*w),round(0.25*h));
+ lineTo(round(0.3875*w),round(0.25*h));
- moveTo(round(0.27*w),round(0.525*h));
- lineTo(round(0.33*w),round(0.525*h));
- moveTo(round(0.27*w),round(0.55*h));
- lineTo(round(0.33*w),round(0.55*h));
- textout(round(0.33*w),round(0.525*h),'C1');
+ textout(round(0.4125*w),round(0.28*h),'C2');
+ moveTo(round(0.3875*w),round(0.22*h));
+ lineTo(round(0.3875*w),round(0.28*h));
+ moveTo(round(0.4125*w),round(0.22*h));
+ lineTo(round(0.4125*w),round(0.28*h));
- moveTo(round(0.3*w),round(0.55*h));
- lineTo(round(0.3*w),round(0.65*h));
+ moveTo(round(0.4125*w),round(0.25*h));
+ lineTo(round(0.55*w),round(0.25*h));
- moveTo(round(0.3*w),round(0.525*h));
- lineTo(round(0.3*w),round(0.425*h));
- lineTo(round(0.8*w),round(0.425*h));
- lineTo(round(0.8*w),round(0.6*h));
+ moveTo(round(0.5*w),round(0.25*h));
+ lineTo(round(0.5*w),round(0.3125*h));
- moveTo(round(0.85*w),round(0.6*h));
- lineTo(round(0.75*w),round(0.6*h));
- lineTo(round(0.55*w),round(0.5*h));
- lineTo(round(0.55*w),round(0.7*h));
- lineTo(round(0.75*w),round(0.6*h));
+ textout(round(0.525*w),round(0.3125*h),'R1');
+ rectangle(round(0.475*w),round(0.3125*h),round(0.525*w),round(0.4125*h));
- moveTo(round(0.5*w),round(0.425*h));
- lineTo(round(0.5*w),round(0.55*h));
- lineTo(round(0.55*w),round(0.55*h));
+ moveTo(round(0.5*w),round(0.4125*h));
+ lineTo(round(0.5*w),round(0.475*h));
+
+ moveTo(round(0.475*w),round(0.475*h)); // Masse
+ lineTo(round(0.525*w),round(0.475*h));
+
+
+ textout(round(0.325*w),round(0.0925*h),'R2');
+ rectangle(round(0.275*w),round(0.0925*h),round(0.325*w),round(0.1925*h));
+
+ moveTo(round(0.3*w),round(0.1925*h));
+ lineTo(round(0.3*w),round(0.25*h));
+
+ moveTo(round(0.3*w),round(0.0925*h));
+ lineTo(round(0.3*w),round(0.025*h));
+ lineTo(round(0.8*w),round(0.025*h));
+ lineTo(round(0.8*w),round(0.2*h));
+
+ moveTo(round(0.85*w),round(0.2*h));
+ lineTo(round(0.75*w),round(0.2*h));
+ lineTo(round(0.55*w),round(0.1*h));
+ lineTo(round(0.55*w),round(0.3*h));
+ lineTo(round(0.75*w),round(0.2*h));
+
+ moveTo(round(0.5*w),round(0.025*h));
+ lineTo(round(0.5*w),round(0.15*h));
+ lineTo(round(0.55*w),round(0.15*h));
end;
image1.visible:=true;
end;