Bug#356419: libpdf-api2-perl: bogen function exhibits strange behaviour

[Wouter Van Hemel]

Package: libpdf-api2-perl
Version: 0.51-1
Severity: minor

The following code should more or less draw a circle composed of 4 circular arcs -- a simplified testcase.

It doesn't; the function doesn't obey the coordinate arguments passed to it for the upper-right and lower-right quadrant.

  $rounded->strokecolor('black');
  $rounded->move(50, 650);
  $rounded->bogen(50, 650, 70, 670, 20, 0, 0, 0);
  $rounded->bogen(70, 670, 90, 650, 20, 0, 0, 0); # ???
  #$rounded->bogen(70, 670, 50, 650, 20, 0, 0, 0); # this one works for upper-right corner (x2 - 2*r instead of the expected x2 = x + 2*r)
  $rounded->bogen(90, 650, 70, 630, 20, 0, 0, 0); # ???
  $rounded->bogen(90, 650, 70, 630, 20, 0, 0, 0);
  $rounded->bogen(70, 630, 50, 650, 20, 0, 0, 0);
  $rounded->stroke;

The curves turn the wrong way, despite the arguments.

/\  <-- circle ;)
\/

.... becomes ...

 /  <-- upwards instead of downwards
/
\ \ <-- to right instead of left

This isn't how I understand the bogen function should work.

(The real intention is to draw a box with rounded corners.)


Thanks for your time!

-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.15
Locale: LANG=C, LC_CTYPE=nl_BE.ISO-8859-15 at euro (charmap=ISO-8859-15)

Versions of packages libpdf-api2-perl depends on:
ii  libcompress-zlib-perl         1.41-1     Perl module for creation and manip
ii  perl                          5.8.8-2    Larry Wall's Practical Extraction 

libpdf-api2-perl recommends no packages.

-- no debconf information