ImageEn for Delphi and C++ Builder ImageEn for Delphi and C++ Builder

 

ImageEn Forum
Profile    Join    Active Topics    Forum FAQ    Search this forumSearch
Forum membership is Free!  Click Join to sign-up
Username:
 Password:
Save Password
Forgot your Password?

 All Forums
 ImageEn Library for Delphi, C++ and .Net
 ImageEn and IEvolution Support Forum
 ImageEnVect draw in unit of 0.001mm		  New Topic  Reply to Topic
Author Previous Topic Topic Next Topic  

Kostas

Germany
21 Posts
Posted - Aug 10 2011 :  07:43:28  Show Profile  Reply
Hello,

How can I draw a circle with diameter=45.356mm X=747,865mm Y=69,956mm
is there an example?

Thanks Kostas

fab

1310 Posts
Posted - Aug 10 2011 :  10:06:41  Show Profile  Reply
Hello,
supposing you have to create an image that when "printed" will contain this circle, you could write:

// Suppose 254 dpi (chosen to avoid decimals)
// This means that 254 pixels = 25.4mm (1 inch = 2.54cm)
// Hence 10 pixels = 1mm
dpi := 254;
ImageEnView1.IO.Params.DPI := dpi;

// now draw the circle multiplying each value by 10 (dpi / 25.4)
X := 747.865;
Y := 69.956;
diameter := 45.356;
mult := dpi / 25.4;
with ImageEnView1.IEBitmap.Canvas do
  Ellipse(X*mult, Y*mult, (x+diameter)*mult, (y+diameter)*mult);
ImageEnView1.Update();

I supposed that there is already an image with the right sizes.
This code DOES NOT "display" a circle with the correct sizes, but should "print" with the right sizes.
Go to Top of Page

Kostas

Germany
21 Posts
Posted - Aug 11 2011 :  05:59:09  Show Profile  Reply
Hi Fabrizio,

thanks for quick answer.
Excuse for my bad English.

If I use these values, I see nothing although i zoom in and out.
X := 747.865; Y := 69.956; diameter := 45.356;

But i see what if i use this values.
x := 0.5; y := 0.5; diameter := 4.356;

Is that a extends problem? how can set the right extends?
Is it possible to draw in a ImageEnVect?
I want draw a Target for air pistol.

procedure TForm1.Button1Click(Sender: TObject);
var dpi:integer;
    X,Y,diameter,mult:double;
begin

// Suppose 254 dpi (chosen to avoid decimals)
// This means that 254 pixels = 2.54mm (1 inch = 2.54mm)
// Hence 100 pixels = 1mm
dpi := 254;
ImageEnView1.IO.Params.DPI := dpi;

// now draw the circle multiplying each value by 100 (dpi / 2.54)
x := 0.5;
y := 0.5;
diameter := 4.356;

//X := 747.865;
//Y := 69.956;
//diameter := 45.356;

mult := dpi / 2.54;
Label1.caption := IntToStr(ImageEnView1.ExtentX);
Label2.caption := IntToStr(ImageEnView1.ExtentY);

//Ellipse required integer!
  with ImageEnView1.IEBitmap.Canvas do
    Ellipse(Round(X*mult), Round(Y*mult), Round((x+diameter)*mult), Round((y+diameter)*mult));
  ImageEnView1.Update();

end;



Regards, Kostas
Go to Top of Page

fab

1310 Posts
Posted - Aug 11 2011 :  09:08:27  Show Profile  Reply
Hi,
you can set the bitmap size with:

ImageEnView.Proc.ImageResize(trunc(WidthInMM*mult), trunc(HeightInMM*mult));

Of course you have to fill WidthInMM and HeightInMM variables with the right values (in mm).

It is possible to do the same with TImageEnVect. Just create vectorial objects (iekELLIPSE) with the right sizes.
Note that the background image must be still of the right size (use ImageResize).
Go to Top of Page

Kostas

Germany
21 Posts
Posted - Aug 14 2011 :  14:20:30  Show Profile  Reply
Hi fabrizio,

The result looks good now.
But is it the right way?

If i set TargetExtent = 500.0 mm
gets the error "EOutOfResources"

{----------------------------}
{}procedure TForm1.DrawTarget;
{----------------------------}
const
  dpi = 254;
  multi = dpi / 2.54;
  TargetExtent = 50.0; //50.0mm

var h, tx:integer;

begin
  tx := Round(TargetExtent * multi);

  ImageEnVect1.RemoveAllObjects;

  ImageEnVect1.Proc.ImageResize(tx ,tx); <---------

  //draw a box
  h := ImageEnVect1.AddNewObject;
  ImageEnVect1.ObjKind[h] := iekBOX;
//  ImageEnVect1.ObjPenWidth[h] := Round(0.05 * multi);
  ImageEnVect1.SetObjRect(h, Rect(0, 0, tx, tx));

  AddRingEx(0.0, 0.0, 45.5, TargetExtent);
  AddRingEx(0.0, 0.0, 40.5, TargetExtent);
  AddRingEx(0.0, 0.0, 35.5, TargetExtent);
  AddRingEx(0.0, 0.0, 30.5, TargetExtent);
  AddRingEx(0.0, 0.0, 25.5, TargetExtent);
  AddRingEx(0.0, 0.0, 20.5, TargetExtent);
  AddRingEx(0.0, 0.0, 15.5, TargetExtent);
  AddRingEx(0.0, 0.0, 10.5, TargetExtent);
  AddRingEx(0.0, 0.0, 5.5, TargetExtent);
  AddRingEx(0.0, 0.0, 0.5, TargetExtent);

  ImageEnVect1.Zoom := ImageEnVect1.GetIdealZoom * 0.9;




end;{DrawTarget}

{------------------------------------------------------}
{}procedure TForm1.AddRingEx(x,y,d,TargetExtent:double);
{------------------------------------------------------}
var h: integer;
    r: double;
begin
  r := (d / 2.0);

  h := ImageEnVect1.AddNewObject;

  ImageEnVect1.ObjKind[h] := iekELLIPSE;
//  ImageEnVect1.ObjPenWidth[h] := Round(0.05 * multi);

  ImageEnVect1.SetObjRect(h, Rect(Round((x + (TargetExtent / 2) - r) * multi),
                                  Round((y + (TargetExtent / 2) - r) * multi),
                                  Round((x + (TargetExtent / 2) + r) * multi),
                                  Round((y + (TargetExtent / 2) + r) * multi)));
end;{AddRingEx}


thanks a lot,
Kostas
Go to Top of Page

fab

1310 Posts
Posted - Aug 14 2011 :  15:21:01  Show Profile  Reply
Please look at the corrections I have done on the first post. You have to divide dpi by 25.4 not, by 2.54 (your measures are in mm not in cm).
With this correction a 50x50mm image will have 500x500 pixels, while a 500x500mm will have 5000x5000 pixels.
If you need larger bitmaps you have to write this before resize:

ImageEnVect1.LegacyBitmap:=false; // means: don't use TBitmap

Or reduce the DPI value.
Go to Top of Page

Kostas

Germany
21 Posts
Posted - Aug 15 2011 :  03:57:25  Show Profile  Reply
Hi fabrizio,

a thousand thanks for the great help.
Now everything works perfectly and very quickly.
ImageEnVect needs only 16 ticks to draw everything.

Have a nice day.
Kostas
Go to Top of Page
  Previous Topic Topic Next Topic  
 New Topic  Reply to Topic
Jump To: