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;