The London Perl and Raku Workshop takes place on 26th Oct 2024. If your company depends on Perl, please consider sponsoring and/or attending.

NAME

EPL2::Command::A - A Command (ASCII Text)

VERSION

version 0.001

SYNOPSIS

 my $A = EPL2::Command::A->new( text => q{"Ascii TEXT"} );
 say $A->string;
 my $long_text = 'i can haz cheezburger' x 25;
 my @bunch = EPL2::Command::A->multi_lines( h_pos => 50, text => $long_text, length => 21 );
 say $_->string foreach( @bunch );

ATTRIBUTES

text ( Text required )

Text used to create Ascii Text.

h_pos ( Natural default = 0 )

Horizontal Position in dots.

v_pos ( Natural default = 0 )

Vertical Position in dots.

rotation ( Rotation default = 0 )

Rotation of Text.

font ( Font default = 1 )

Font Type of Text. Valid font types are [ 1-5 ]

h_mult ( Mult default = 1 )

Horizontal Multiplier.

v_mult ( Mult default = 1 )

Vertical Multiplier.

reverse ( Reverse default = 'N' )

Reverse black and white print.

width ( private )

Return width of the text in dots.

height ( private )

Returns height of the text in dots.

fonts ( private )

Return Hashref describing valid fonts.

METHODS

multi_lines

 params: ( text => 'Stuff to chop up and print muli lines', length => 5 )
   text   - required
   length - required ( number of chars per line )

Return an array of EPL2::Command::A objects based on text and length.

string

 param: ( delimiter => "\n" )

Return an EPL2 formatted string used for describing a Ascii text.

SEE ALSO

EPL2

EPL2::Types

AUTHOR

Ted Katseres <tedkat@cpan.org>

COPYRIGHT AND LICENSE

This software is copyright (c) 2016 by Ted Katseres.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.