|
|
Re: Merry Christmas [message #436544 is a reply to message #436314] |
Thu, 24 December 2009 02:00 |
|
Michel Cadot
Messages: 68728 Registered: March 2007 Location: Saint-Maur, France, https...
|
Senior Member Account Moderator |
|
|
SET PAGESIZE 0
SET FEEDBACK OFF
DEFINE width=20
WITH
lines AS (
SELECT ROWNUM rn FROM DUAL CONNECT BY LEVEL < &width+16
)
SELECT DECODE(
SIGN(ROWNUM-&width-5),
-1, LPAD(RPAD('*',3-2*ABS(3-ROWNUM),'*'),
&width+5-ABS(3-ROWNUM))||
LPAD(' ',&width-ROWNUM+8)||RPAD('*',2*(ROWNUM-4),' *')||
LPAD(RPAD('*',3-2*ABS(6-ROWNUM),'*'),
&width-ROWNUM-ABS(6-ROWNUM))||
LPAD('*',
DECODE(SIGN(ROWNUM-3*&width/4+3),-1,0,3*&width/4-ROWNUM)),
DECODE(
SIGN(ROWNUM-&width-11),
-1, LPAD('***', &width+5),
DECODE(
SIGN(ROWNUM-&width-12),
0, TRANSLATE(LPAD('BBB@?;5-24@µ;-*@BBB',&width+13,'@'),
'@Qé"(-è_çà)=*<,;:!1ôï23ö45îë67ê890°+?./§µù%#[|\]}{€¤AB',
' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ*'),
DECODE(
SIGN(ROWNUM-&width-14),
0, TRANSLATE(LPAD('§à"ç-*',2*&width+3,'@'),
'@Qé"(-è_çà)=*<,;:!1ôï23ö45îë67ê890°+?./§µù%#[|\]}{€¤AB',
' abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ*')
)))) l
FROM lines
/
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|