#!/usr/bin/perl use strict; use CGI qw/:standard/; my $polecolors = [ [0,0,128], [128,0,0], [0,128,0], [192,80,0], [0,128,12], [184,70,16], [0,128,24], [176,60,32], [0,128,48], [168,50,48], [0,128,72], [160,40,64], [0,128,96], [152,30,80], [0,128,116], [136,20,96], [0,128,128], [128,0,128], [0,255,0] ]; my @polecolors = @$polecolors; my @html_colors = map { html_color($_) } @polecolors; my %default = ( l0 => 0, b0 => 55 , i0 => 1 , w0 => 11, n0=>0, k0=>0, l1 => 170, b1 => -5, i1 => 1, w1 => 17, n1=>0, k1=>0, l2 => -10, b2 => 55, i2 => 1.3, w2 => 12, r2 => 42, s2 => 0, e2 => 360, n2=>0, l3 => 220, b3 => 10, i3 => 2, w3 => 5, r3 => 25, s3 => 0, e3 => 360, n3=>0, l4 => -10, b4 => 55, i4 => 0, w4 => 12, r4 => 42, s4 => 0, e4 => 360, n4=>0, l5 => 220, b5 => 10, i5 => 0, w5 => 5, r5 => 25, s5 => 0, e5 => 360, n5=>0, l6 => -10, b6 => 55, i6 => 0, w6 => 12, r6 => 42, s6 => 0, e6 => 360, n6=>0, l7 => 220, b7 => 10, i7 => 0, w7 => 5, r7 => 25, s7 => 0, e7 => 360, n7=>0, l8 => -10, b8 => 55, i8 => 0, w8 => 12, r8 => 42, s8 => 0, e8 => 360, n8=>0, l9 => 220, b9 => 10, i9 => 0, w9 => 5, r9 => 25, s9 => 0, e9 => 360, n9=>0, l10=> -10, b10=> 55, i10=> 0, w10=> 12, r10=> 42, s10=> 0, e10 => 360, n10=>0, l11=> 220, b11=> 10, i11=> 0, w11=> 5, r11=> 25, s11=> 0, e11 => 360, n11=>0, l12=> -10, b12=> 55, i12=> 0, w12=> 12, r12=> 42, s12=> 0, e12 => 360, n12=>0, l13=> 220, b13=> 10, i13=> 0, w13=> 5, r13=> 25, s13=> 0, e13 => 360, n13=>0, l14=> -10, b14=> 55, i14=> 0, w14=> 12, r14=> 42, s14=> 0, e14 => 360, n14=>0, l15=> 220, b15=> 10, i15=> 0, w15=> 5, r15=> 25, s15=> 0, e15 => 360, n15=>0, l16=> -10, b16=> 55, i16=> 0, w16=> 12, r16=> 42, s16=> 0, e16 => 360, n16=>0, l17=> 220, b17=> 10, i17=> 0, w17=> 5, r17=> 25, s17=> 0, e17 => 360, n17=>0, sinphase => 0, sinampl => 0.005, zrot => 0, pphase => 0, fit => 0, peak => 'on', fitpeak => 'on', constant => 0, inclination => 40, expos => 30, range => '9-15', beta => 0, disk_incl => 90, disk_shift => 1, disk_width => 0, displace_theta => 0, displace_phi => 0, ); my %p = %default; foreach ( param()) { $p{$_} = param($_); } my $fit_checked = $p{fit} eq 'on' ? 'checked': ''; my $peak_checked = $p{peak} eq 'on' ? 'checked': ''; my $fitpeak_checked = $p{fitpeak} eq 'on' ? 'checked': ''; use vars qw( $NAMES $CHANS $FILES); require "data.pl"; my $expos_opts = join ('', map { my $sel='selected' if $_ == $p{expos}; qq[] } @$NAMES); my $range_opts = join ('', map { my $sel='selected' if $_ eq $p{range}; qq[] } @$CHANS); print qq[Content-type: text/html\nPragma: no-cache\n\n