#!/usr/bin/perl
#
# Create some images which allow measurements of parallax
#

$sky = 100;
$rms =   5;
$nrow = 200;
$ncol = 200;
$fwhm = 6;
$star1 = "star=3000,30,30,$fwhm";
$star2 = "star=3000,170,38,$fwhm";
$star3 = "star=3000,25,180,$fwhm";
$star4 = "star=3000,169,169,$fwhm";
$x = 100.4;
$y = 100.0;
$target = "star=5000,$x,$y,$fwhm";


$cmd = "pstar sky=$sky rms=$rms nrow=$nrow ncol=$ncol photon";
$cmd = $cmd . " $star1 $star2 $star3 $star4 $target outfile=para_1.fts ";

$ret = `$cmd`;
printf "ret is $ret\n";

exit 0;
