view release on metacpan or  search on metacpan

t/t10win32.t  view on Meta::CPAN

SKIP:
{
  print "# has w32\n";

  my $fontname=$ENV{'TTFONTTEST'} || 'Times New Roman Bold';
  
  # i_init_fonts(); # unnecessary for Win32 font support

  my $bgcolor=i_color_new(255,0,0,0);
  my $overlay=Imager::ImgRaw::new(200,70,3);
  
  my @bbox=Imager::Font::W32::i_wf_bbox($fontname, 50.0,'XMCLH');
  print "#bbox: ($bbox[0], $bbox[1]) - ($bbox[2], $bbox[3])\n";
  
  ok(Imager::Font::W32::i_wf_cp($fontname,$overlay,5,50,1,50.0,'XMCLH',1,1),
     "i_wf_cp smoke test");
  i_line($overlay,0,50,100,50,$bgcolor, 1);
  
  if (open(FH,">testout/t10font.ppm")) {
    binmode(FH);
    my $io = Imager::io_new_fd(fileno(FH));
    i_writeppm_wiol($overlay,$io);
    close(FH);
  }
  else {
    diag "cannot open testout/t10font.ppm: $!";
  }
  
  $bgcolor=i_color_set($bgcolor,200,200,200,255);
  my $backgr=Imager::ImgRaw::new(500,300,3);
  
  ok(Imager::Font::W32::i_wf_text($fontname,$backgr,100,100,$bgcolor,100,'MAW.',1, 1),