Textbox berechnen (Fragen zu Perl-Modulen)

[thread]18523[/thread]

Textbox berechnen

Tags: Image::Magick Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

Teilbaum:
Textbox berechnen (3 Artikel) 2013-08-27 14:46

+4 replies
jan99

2013-08-26 10:58

User since
2008-09-18
439 Artikel
BenutzerIn

hi !

Quote
manchen Ecken schwer oder gar nicht nach zu vollziehen, so gehts mir jedenfalls.

Aus diesem Grund lege ich nochmal einen drauf - wenn ich mit $img->Annotate Texte erstelle dann haben die einen "scharfen" Rand. In der Regel ist das auch gut so. Aber wenn sich der Text vom Hintergrund abheben soll, dann wäre eine weiße Box oder eine "Korona" darum ganz nett. Aber wie die Boxgröße rechnen?

Gibt es da etwas einfaches als Alternative ?

Gruß Jan :-)
Last edited: 2013-08-26 11:59:49 +0200 (CEST)
perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
- +3 replies
- GwenDragon
  
  2013-08-26 11:54
  User since
  2005-01-17
  14890 Artikel
  Admin1
  Ungetestet:
  
  Code (perl): (dl )
  
  (@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text);
  
  Zurück gelieferte Parameter:
  characterWidth: max. zeichenbreite eines m ("em")
  characterHeight: max. ZeichenHöhe
  ascender: Oberlänge
  descender: Unterlänge
  textWidth: Textbreite in pixel
  textHeight:Texthöhe in pixel
  maxHorizontalAdvance: max. Abstand eines Zeichens zum nächsten
  boundingBox: (x1, y1, x2, y2) Umrissbox
  originX, originY: Ursprung
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8
  
  my $text = 'Blah Blubb Moep Malp Foo Bar Baz!'; my $image = Image::Magick->new; $image->Set( size => '800x600' ); $image->ReadImage('xc:none'); my (@params)= $image->QueryFontMetrics(font=>'arial.ttf', pointsize=>30, text=>$text); use Data::Dumper; print Dumper \@params;
  
  ergibt:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  $VAR1 = [ '30', '30', '28', '-7', '481', '35', '60', '0', '-6', '23', '22', '481', '0' ];
  
  Last edited: 2013-08-26 12:22:07 +0200 (CEST)
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - jan99
    
    2013-08-27 14:09
    
    User since
    2008-09-18
    439 Artikel
    BenutzerIn
    
    thanks !
    perl-Greenhorn - Win7 64bit / strawberry (ehem. activeperl) - www.OpenStreetMap.de
  - GwenDragon
    
    2013-08-27 14:46
    
    User since
    2005-01-17
    14890 Artikel
    Admin1
    
    Und funktionierts?
    die Drachin Gwen
    
    Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten

View all threads created 2013-08-16 14:28.