--- a/FOPRunXSLTExt/examples/ppl-extensions.xsl	Wed Mar 05 22:11:32 2014 +0000
+++ b/FOPRunXSLTExt/examples/ppl-extensions.xsl	Wed Mar 05 22:12:22 2014 +0000
@@ -137,4 +137,20 @@
 	       xs:double(substring-before($block/*/ahf:BlockArea/@height, 'pt')))[1]" />
 </xsl:function>
 
+<xsl:function name="ppl:block-ipd" as="xs:double">
+  <xsl:param name="block" as="element()" />
+
+  <xsl:sequence
+      select="(xs:double($block/block/@ipd) div 1000,
+	       xs:double(substring-before($block/*/ahf:BlockArea/@width, 'pt')))[1]" />
+</xsl:function>
+
+<xsl:function name="ppl:block-available-ipd" as="xs:double">
+  <xsl:param name="block" as="element()" />
+
+  <xsl:sequence
+      select="(xs:double($block/ancestor::flow/@ipd) div 1000,
+	       xs:double(substring-before($block/ancestor::ahf:NormalFlowReferenceArea/@width, 'pt')))[1]" />
+</xsl:function>
+
 </xsl:stylesheet>
\ No newline at end of file