1<?php
2// $Header: /cvsroot/html2ps/utils_number.php,v 1.2 2005/07/01 18:01:58 Konstantin Exp $
3
4function arabic_to_roman($num) {
5  $arabic = array(1,4,5,9,10,40,50,90,100,400,500,900,1000);
6  $roman = array("I","IV","V","IX","X","XL","L","XC","C","CD","D","CM","M");
7  $i = 12;
8  $result = "";
9  while ($num) {
10    while ($num >= $arabic[$i]) {
11      $num -= $arabic[$i];
12      $result .= $roman[$i];
13    }
14    $i--;
15  }
16
17  return $result;
18}
19?>