summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--filterBruteForce.lpi2
-rw-r--r--unit3.pas134
2 files changed, 97 insertions, 39 deletions
diff --git a/filterBruteForce.lpi b/filterBruteForce.lpi
index ff44625..1da887a 100644
--- a/filterBruteForce.lpi
+++ b/filterBruteForce.lpi
@@ -55,6 +55,7 @@
<Filename Value="unit3.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form2"/>
+ <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit3"/>
</Unit3>
@@ -62,6 +63,7 @@
<Filename Value="unit4.pas"/>
<IsPartOfProject Value="True"/>
<ComponentName Value="Form3"/>
+ <HasResources Value="True"/>
<ResourceBaseClass Value="Form"/>
<UnitName Value="Unit4"/>
</Unit4>
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;
generated by cgit v1.2.3 (git 2.25.1) at 2024-04-25 23:16:35 +0000