D7net
Home
Console
Upload
information
Create File
Create Folder
About
Tools
:
/
lib
/
libreoffice
/
share
/
xslt
/
common
/
Filename :
measure_conversion.xsl
back
Copy
<?xml version="1.0" encoding="UTF-8"?> <!-- * This file is part of the LibreOffice project. * * This Source Code Form is subject to the terms of the Mozilla Public * License, v. 2.0. If a copy of the MPL was not distributed with this * file, You can obtain one at http://mozilla.org/MPL/2.0/. * * This file incorporates work covered by the following license notice: * * Licensed to the Apache Software Foundation (ASF) under one or more * contributor license agreements. See the NOTICE file distributed * with this work for additional information regarding copyright * ownership. The ASF licenses this file to you under the Apache * License, Version 2.0 (the "License"); you may not use this file * except in compliance with the License. You may obtain a copy of * the License at http://www.apache.org/licenses/LICENSE-2.0 . --> <!-- For further documentation and updates visit http://xml.openoffice.org/odf2xhtml --> <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"> <!-- DPI (dots per inch) the standard resolution of given pictures (necessary for the conversion of 'cm' into 'pixel') Although many pictures have a 96 dpi resolution, a higher resolution give better results for common browsers --> <xsl:param name="dpi" select="111"/> <xsl:param name="centimeter-in-mm" select="10"/> <xsl:param name="inch-in-mm" select="25.4"/> <xsl:param name="didot-point-in-mm" select="0.376065"/> <xsl:param name="pica-in-mm" select="4.2333333"/> <xsl:param name="point-in-mm" select="0.3527778"/> <xsl:param name="twip-in-mm" select="0.017636684"/> <xsl:param name="pixel-in-mm" select="$inch-in-mm div $dpi"/> <!-- ***** MEASUREMENT CONVERSIONS ***** PARAM 'value' The measure to be converted. The current measure is judged by a substring (e.g. 'mm', 'cm', 'in', 'pica'...) directly added to the number. PARAM 'rounding-factor' Is used for the rounding of decimal places. The parameter number is the product of 1 and some '10', where every zero represents a decimal place. For example, providing as parameter: <xsl:param name="rounding-factor" select="10000" /> Gives by default four decimal places. To round two decimal places, basically the following is done: <xsl:value-of select="round(100 * value) div 100"/> RETURN The converted number, by default rounded to four decimal places. In case the input measure could not be matched the same value is returned and a warning message is written out. MEASURE LIST: * 1 milimeter (mm), the basic measure * 1 centimeter (cm) = 10 mm * 1 inch (in) = 25.4 mm While the English have already seen the light (read: the metric system), the US remains loyal to this medieval system. * 1 point (pt) = 0.35277777.. mm Sometimes called PostScript point (ppt), as when Adobe created PostScript, they added their own system of points. There are exactly 72 PostScript points in 1 inch. * 1 twip = twentieth of a (PostScript) point A twip (twentieth of a point) is a 1/20th of a PostScript point, a traditional measure in printing. * 1 didot point (dpt) = 0.376065 mm Didot point after the French typographer Firmin Didot (1764-1836). More details under http://www.unc.edu/~rowlett/units/dictP.html: "A unit of length used by typographers and printers. When printing was done from hand-set metal type, one point represented the smallest element of type that could be handled, roughly 1/64 inch. Eventually, the point was standardized in Britain and America as exactly 1/72.27 = 0.013 837 inch, which is about 0.35 mm (351.46 micrometers). In continental Europe, typographers traditionally used a slightly larger point of 0.014 83 inch (about 1/72 pouce, 0.377 mm, or roughly 1/67 English inch), called a Didot point after the French typographer Firmin Didot (1764-1836). In the U.S., Adobe software defines the point to be exactly 1/72 inch (0.013 888 9 inch or 0.352 777 8 millimeters) and TeX software uses a slightly smaller point of 0.351 459 8035 mm. The German standards agency DIN has proposed that all these units be replaced by multiples of 0.25 millimeters (1/101.6 inch). * 1 pica = 4.233333 mm 1/6 inch or 12 points * 1 pixel (px) = 0.26458333.. mm (relative to 'DPI', here: 96 dpi) Most pictures have the 96 dpi resolution, but the dpi variable may vary by stylesheet parameter --> <!-- changing measure to mm --> <xsl:template name="convert2mm"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="substring-before($value, 'mm')"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm' ) * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in' ) * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'mm'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to cm --> <xsl:template name="convert2cm"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="substring-before($value, 'cm')"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in') div $centimeter-in-mm * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') div $centimeter-in-mm * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') div $centimeter-in-mm * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') div $centimeter-in-mm * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') div $centimeter-in-mm * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $centimeter-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'cm'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to inch (cp. section comment) --> <xsl:template name="convert2in"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm') div $inch-in-mm * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="substring-before($value, 'in')"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') div $inch-in-mm * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') div $inch-in-mm * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') div $inch-in-mm * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') div $inch-in-mm * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $inch-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'in'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to dpt (cp. section comment) --> <xsl:template name="convert2dpt"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm') div $didot-point-in-mm * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in') div $didot-point-in-mm * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') div $didot-point-in-mm * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="substring-before($value, 'dpt')"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') div $didot-point-in-mm * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') div $didot-point-in-mm * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $didot-point-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'dpt'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to pica (cp. section comment) --> <xsl:template name="convert2pica"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm') div $pica-in-mm * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in') div $pica-in-mm * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') div $pica-in-mm * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') div $pica-in-mm * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="substring-before($value, 'pica')"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') div $pica-in-mm * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $pica-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'pica'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to pt (cp. section comment) --> <xsl:template name="convert2pt"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm') div $point-in-mm * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in') div $point-in-mm * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="substring-before($value, 'pt')"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') div $point-in-mm * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') div $point-in-mm * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'twip') div $point-in-mm * $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $point-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'pt'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to twip (cp. section comment) --> <xsl:template name="convert2twip"> <xsl:param name="value"/> <xsl:param name="rounding-factor" select="10000"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'mm') div $twip-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'cm') div $twip-in-mm * $centimeter-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'in') div $twip-in-mm * $inch-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pt') div $twip-in-mm * $point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'dpt') div $twip-in-mm * $didot-point-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'pica') div $twip-in-mm * $pica-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="substring-before($value, 'twip')"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="round($rounding-factor * number(substring-before($value, 'px') div $twip-in-mm * $pixel-in-mm)) div $rounding-factor"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'twip'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <!-- changing measure to pixel by via parameter provided dpi (dots per inch) standard factor (cp. section comment) --> <xsl:template name="convert2px"> <xsl:param name="value"/> <xsl:choose> <xsl:when test="contains($value, 'mm')"> <xsl:value-of select="round(number(substring-before($value, 'mm')) div $pixel-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'cm')"> <xsl:value-of select="round(number(substring-before($value, 'cm')) div $pixel-in-mm * $centimeter-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'in')"> <xsl:value-of select="round(number(substring-before($value, 'in')) div $pixel-in-mm * $inch-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'pt')"> <xsl:value-of select="round(number(substring-before($value, 'pt')) div $pixel-in-mm * $point-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'dpt')"> <xsl:value-of select="round(number(substring-before($value, 'dpt')) div $pixel-in-mm * $didot-point-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'pica')"> <xsl:value-of select="round(number(substring-before($value, 'pica')) div $pixel-in-mm * $pica-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'twip')"> <xsl:value-of select="round(number(substring-before($value, 'twip')) div $pixel-in-mm * $twip-in-mm)"/> </xsl:when> <xsl:when test="contains($value, 'px')"> <xsl:value-of select="$value"/> </xsl:when> <xsl:otherwise> <xsl:message>measure_conversion.xsl: Find no conversion for <xsl:value-of select="$value"/> to 'px'!</xsl:message> <xsl:value-of select="$value"/> </xsl:otherwise> </xsl:choose> </xsl:template> <xsl:template name="ConvertMeasure"> <xsl:param name="TargetMeasure" select="'cm'"/> <xsl:param name="TargetTruncate" select=" 'all' "/> <xsl:param name="value"/> <!-- When TargetTruncate ='all' it returns the number whichsoever the return value is negative or positive When TargetTruncate ='nonNegative' it only returns nonNegative number, all negative number to be returned as 0 When TargetTruncate ='positive" it only returns positive number, all nonPositive number to be returned as 1 --> <xsl:variable name="return_value"> <xsl:choose> <!-- remove the measure mark, if the value is null, the result should be 0. Must be the first case --> <xsl:when test="string-length(translate(string($value),'abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ ','')) = 0">0</xsl:when> <xsl:when test="string-length(translate(string($value),'- .0123456789','')) = 0"> <xsl:value-of select="$value"/> </xsl:when> <xsl:when test="$TargetMeasure = 'cm'"> <xsl:call-template name="convert2cm"> <xsl:with-param name="value" select="$value"/> </xsl:call-template> </xsl:when> <xsl:when test="$TargetMeasure = 'pt'"> <xsl:call-template name="convert2pt"> <xsl:with-param name="value" select="$value"/> </xsl:call-template> </xsl:when> <xsl:when test="$TargetMeasure = 'twip'"> <xsl:call-template name="convert2twip"> <xsl:with-param name="value" select="$value"/> </xsl:call-template> </xsl:when> <xsl:when test="$TargetMeasure = 'in'"> <xsl:call-template name="convert2in"> <xsl:with-param name="value" select="$value"/> </xsl:call-template> </xsl:when> </xsl:choose> </xsl:variable> <xsl:choose> <xsl:when test="$TargetTruncate = 'all' "> <xsl:choose> <xsl:when test="string(number($TargetMeasure)) = 'NaN' "> <xsl:value-of select=" '0' "/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$return_value"/> </xsl:otherwise> </xsl:choose> </xsl:when> <xsl:when test="$TargetTruncate = 'nonNegative' "> <xsl:choose> <xsl:when test="string(number($TargetMeasure)) = 'NaN' "> <xsl:value-of select=" '0' "/> </xsl:when> <xsl:otherwise> <xsl:choose> <xsl:when test=" $return_value < 0 "> <xsl:value-of select=" '0' "/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$return_value"/> </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose> </xsl:when> <xsl:when test="$TargetTruncate = 'positive' "> <xsl:choose> <xsl:when test="string(number($TargetMeasure)) = 'NaN' "> <xsl:value-of select=" '1' "/> </xsl:when> <xsl:otherwise> <xsl:choose> <xsl:when test=" $return_value <= 0 "> <xsl:value-of select=" '1' "/> </xsl:when> <xsl:otherwise> <xsl:value-of select="$return_value"/> </xsl:otherwise> </xsl:choose> </xsl:otherwise> </xsl:choose> </xsl:when> </xsl:choose> </xsl:template> <xsl:template name="Add-With-Measure"> <xsl:param name="value1"/> <xsl:param name="value2"/> <xsl:param name="TargetMeasure" select="'in'"/> <xsl:variable name="number-value1"> <xsl:call-template name="ConvertMeasure"> <xsl:with-param name="value" select="$value1"/> <xsl:with-param name="TargetMeasure" select="$TargetMeasure"/> </xsl:call-template> </xsl:variable> <xsl:variable name="number-value2"> <xsl:call-template name="ConvertMeasure"> <xsl:with-param name="value" select="$value2"/> <xsl:with-param name="TargetMeasure" select="$TargetMeasure"/> </xsl:call-template> </xsl:variable> <xsl:value-of select="$number-value1 + $number-value2"/> </xsl:template> </xsl:stylesheet>