From 6a0d58cdcf7a5e32a4768d8ba12a648585ca7f95 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Tue, 2 Feb 2016 12:46:05 +0100 Subject: korrekte Hochpass-Bezeichnungen eingebaut --- filterBruteForce.lpi | 2 + unit3.pas | 134 ++++++++++++++++++++++++++++++++++++--------------- 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 @@ + @@ -62,6 +63,7 @@ + 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; -- cgit v1.2.3-54-g00ecf