/[general]/random/boxshade.kaptn
ViewVC logotype

Annotation of /random/boxshade.kaptn

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.3 - (hide annotations) (download)
Wed Jul 25 13:44:48 2007 UTC (16 years, 8 months ago) by nieder
Branch: MAIN
CVS Tags: HEAD
Changes since 1.2: +24 -11 lines
add output files and more fixes

1 nieder 1.1 #!/sw/bin/kaptain
2    
3     start "boxshade" -> boxshade buttons;
4    
5 nieder 1.3 boxshade -> "boxshade " input_name " " output_name " " opts;
6 nieder 1.1 opts:framed :horizontal -> input_opts output_opts ;
7    
8 nieder 1.3 input_name "Alignment file" -> "-in="@infile;
9     output_name "Output shaded file" -> "-out="@outfile;
10 nieder 1.1
11     input_opts "Input Options" -> thr " " in_types;
12    
13 nieder 1.3 thr "Similarity threshold (0-1.0)" -> "-thr="@float="0.5";
14 nieder 1.1
15 nieder 1.2 in_types "Input file type" -> MSF | ! CLUSTAL | MALIGNED | ESEE | PHYLIP;
16 nieder 1.1 MSF "MSF" -> "-type=MSF ";
17     CLUSTAL "CLUSTAL" -> "-type=CLUSTAL ";
18     MALIGNED "MALIGNED" -> "-type=MALIGNED ";
19     ESEE "ESEE" -> "-type=ESEE ";
20     PHYLIP "PHYLIP" -> "-type=PHYLIP ";
21    
22    
23 nieder 1.3 output_opts:horizontal "Output options" -> "-dev="out_type minor_out_opts;
24     minor_out_opts -> numdef split ruler cons "-"endings;
25    
26     out_type :double "Output file type" -> PS | EPS | HPGL | ! RTF | ANSI | VT100 | ReGIS1 | ReGIS2 | LJ250 | ASCII | FIG | PICT | HTML;
27     PS "Postscript" -> "1 ";
28     EPS "Encapsulated Postscript" -> "2 ";
29     HPGL "HPGL" -> "3 ";
30     RTF "RTF( Rich Text Format)" -> "4 ";
31     ANSI "ANSI-screen (PC-version)" -> "6 ";
32     VT100 "VT100-screen (DEC-version)" -> "7 ";
33     ReGIS1 "ReGIS-screen (25 lines each)" -> "8 ";
34     ReGIS2 "ReGIS-file (without breaks)" -> "9 ";
35     LJ250 "LJ250-printer file" -> "a ";
36     ASCII "ASCII file" -> "b ";
37     FIG "FIG file (for XFIG)" -> "c ";
38     PICT "PICT file" -> "d ";
39     HTML "HTML file" -> "e ";
40 nieder 1.1
41     numdef "use default numbering" -> "-numdef " | @;
42 nieder 1.3 split "split pages into files" -> "-split " | !@;
43 nieder 1.1 ruler "print ruler" -> "-ruler " | @;
44     cons "create consensus line" -> "-cons " | @;
45    
46 nieder 1.3 endings "Output line endings" -> @list("dos", "mac", "unix")=3;
47 nieder 1.1
48 nieder 1.3 buttons :horizontal -> @action(boxshade)="Run boxshade" @close="Cancel" @preview(start,"Lucidatypewriter",400,100,"Close")="Preview";

  ViewVC Help
Powered by ViewVC 1.1.17