#!/usr/bin/perl @v = qw{ newhtml spellcheck paste delete find replace gotoline findinfiles stop choosefont preference windowcliptext windowfullscreen helpcontext openftp2 saveftp2 uploadftp2 windowdirectory windowtools bold windowbrowser italic underline font palette nbsp br paragraph heading image anchor rulerhorizontal htmltable htmlcomment specialsymbol center quotation pre list script applet object form widget imagemap htmlframe folder ie showdesktop folderexplore outlook word excel confighardware addapplication editplus calc charmap redo folderconfig undo cut copy copymerge zoomoff pastemerge pastenewselection ruler showgrid zoom move open save saveall openftp saveftp uploadftp print printpreview newhtml spellcheck paste delete find replace gotoline findinfiles stop choosefont preference windowcliptext windowfullscreen helpcontext openftp2 saveftp2 uploadftp2 windowdirectory windowtools bold windowbrowser italic underline font palette nbsp br paragraph heading image anchor rulerhorizontal htmltable htmlcomment specialsymbol center quotation pre list script applet object form widget imagemap htmlframe folder ie showdesktop folderexplore outlook word excel confighardware addapplication editplus calc charmap redo folderconfig undo cut copy copymerge zoomoff pastemerge pastenewselection ruler showgrid zoom move showgrid2 handscroller crop freetransform freedeform drawpath shapeselection colordrop freeselection fillselection pencil airbrush paintbrush fill clonebrush text 3dline 3dshape polyshape rectshape erase fill2 pickcolor zoom2 brush2 airbrush2 text2 line bezier rect oval ovalrect property new_uml_diagram new_seq_diagram new_component_diagram new_state_diagram new_deployment_diagram goback new_test zoomin_pale zoom_window open_test new_check save_all open_check open_report open_listing preview run tool addlink pastestyle columns word excel confighardware addapplication editplus calc charmap redo folderconfig undo cut copy copymerge zoomoff pastemerge pastenewselection ruler showgrid zoom move showgrid2 handscroller crop freetransform freedeform drawpath shapeselection colordrop freeselection fillselection pencil airbrush paintbrush fill clonebrush text 3dline 3dshape polyshape rectshape erase fill2 pickcolor zoom2 brush2 airbrush2 text2 line bezier rect oval ovalrect property new_uml_diagram new_seq_diagram new_component_diagram new_state_diagram new_deployment_diagram goback new_test zoomin_pale zoom_window open_test new_check save_all open_check open_report open_listing preview run tool addlink pastestyle columns webtoolbar insert_table insert_excel_table list_no erase_border draw_border list_dot list_align_left list_align_right subscript table_border background_color text_color superscript smallcaps growfont incfontsize decfontsize shrinkfont shapes interline15 interline20 interline10 assistant double_underline mathml document_map }; sub printDefs { print " \n"; foreach my $shape ( @v ) { my $txt =< EOF $txt =~ tr/\f//d; print $txt; } print " \n\n"; } sub printPrefix( $$$$ ) { my ( $prefix, $x0, $y, $array ) = @_; my $y2 = $y; # + 5; my $w = 24 * $#{ $array } + 10; my $txt = ""; $txt .=< EOF my $x = $x0; # + 5; foreach my $shape ( @{ $array } ) { $txt .=< EOF $x += 23; } $txt .=< EOF $txt =~ tr/\f//d; print $txt; } sub main() { my @w = @v; my $k = 1; my $z = 1; my $yi = 0; my $x0 = 5; my $y0 = 5; print < EOF for my $j ( 0 .. 27 ) { my @q = (); for my $i ( 0 .. 10 ) { if ( @w ) { $q[$i] = shift @w; } } $k++; if ( $z > 0 ) { $x0 += 255; } if ( $z > 2 ) { $z = 0; $x0 = 5; $y0 += 25; } $z++; # print "( $k, $x0, $y0, \@q );\n"; printPrefix( $k, $x0, $y0, \@q ); } } main; exit; 1; __END__