/* Shadow.p
   How to print text...
*/   
   { xprint.i}

DEF VAR F      AS CHAR NO-UNDO.
DEF VAR myText AS CHAR NO-UNDO.
DEF VAR I AS INT.
    
F = SESSION:TEMP-DIRECTORY + "shadow.xpr".

OUTPUT TO VALUE(F).

myText = "vpxPrint".

PUT CONTROL "<preview>"
            "<UNITS=MM><LPI=1.5><#1><FTahoma><P60><B>".
    
/* Extended shadow
   -------------*/
DO I = 160 TO 0 BY -30:
        PUT CONTROL                 
                "<R+10><C+60><FRAME#1>"
                "<FGCOLOR=" i "," i "," i "><USE#1>"
                      myText
                "</USE><=#1><at=+0.7,+0.7><#1>"
.
END.


/* Multi-colors shadow
   ------------------*/
PUT CONTROL "<R1><at=,100><#1>"
            "<R+2><C+40><BGCOLOR=GRAY><FILLRECT)#1><=#1>".


DO I = 1 TO 5 :
        PUT CONTROL
                "<R+10><C+60><FRAME#1>"
                "<FGCOLOR=" random(127,255) "," random(127,255) "," random(127,255) "><USE#1>"
                      myText
                "</USE><=#1><at=+0.7,+0.7><#1>"
.
END.
        PUT CONTROL     /* last - 1 white */
                "<R+10><C+60><FRAME#1>"
                "<FGCOLOR=WHITE><USE#1>"
                      myText
                "</USE><=#1><at=+0.7,+0.7><#1>".

        PUT CONTROL     /* last = black */
                "<R+10><C+60><FRAME#1>"
                "<FGCOLOR=black><USE#1>"
                      myText
                "</USE>".

/* Crazy text
   ========*/

PUT CONTROL "<at=50,10><#1><align=base><P32>".
DEF VAR rAngle AS INT.

DO I = 1 TO 5:
        rAngle = RANDOM(-30,+30).
        PUT CONTROL   "<FGCOLOR=LTgray>"
                "<ANGLE=" rAngle ">"
                
                      myText
                "<=#1>"
                "<AT=+1,+1>"
            "<FGCOLOR=" random(0,255) "," random(0,255) "," 127 ">"
             "<ANGLE=" rAngle ">"
                
                      myText "<AT=,-15><#1>"
/*             "<AT=#1>" */
.
END.

/* Text around a center 
   ===================*/
PUT CONTROL "<at=170,105><#1><align=base><P60>".

DO I = 0 TO 360 BY 30:
        PUT CONTROL   "<FGCOLOR=BLACK>"
            "<ANGLE=" I ">   "
                
                      myText
            "<=#1>"
            "<AT=+1,+1>"
            "<FGCOLOR=" random(0,255) "," random(0,255) "," 127 ">"
             "<ANGLE=" I ">   "
                
                      myText
            "<=#1>"
            .
            END.

OUTPUT TO TERMINAL.
RUN printfile( F ).