Quantity PricingIsiposs1-price (style br?)
IF test > value1 LENGTH OR
@sale-price
@price
value2 1
then CALL :price-table
OR
@sale-price
@price
else WITH= variable reg
value OR
@price
@sale-price
WITH= variable sale
value AND
@price
@sale-price
WHEN sale
TEXT @regular-price-text
TEXT " "
TEXT-STYLE :strike
TEXT CALL :isiposs1-price-text
ELEMENTS sequence reg
last 0
IF test br?
then LINEBREAK
else SHIM height 1
width 10
WITH= variable price
value OR
sale
reg
WHEN sale
IF test @emphasis-color
then FONT color @emphasis-color
TEXT @sale-price-text
else TEXT @sale-price-text
TEXT " "
WITH= variable prtext
value CALL :isiposs1-price-text
price
IF test EQUALS value1 style
value2 :big
then IMAGE source RENDER text prtext
text-color @emphasis-color
font @display-font
font-size @display-font-size
align :absmiddle
alt prtext
else TEXT-STYLE WHEN EQUALS value1 style
value2 :normal
:bold
IF test sale
then IF test @emphasis-color
then FONT color @emphasis-color
TEXT prtext
else TEXT prtext
else TEXT prtext
|