print "\@with line\n";
    print "\@  line on\n";
    print "\@  line loctype view\n";
    printf "\@  line %.3f, 0.2, %.3f, 0.8\n", $viewx, $viewx;
    print "\@  line linewidth 2\n";
    print "\@  line linestyle 1\n";
    print "\@  line arrow 0\n";
    print "\@line def\n";

    print "\@with string\n";
    print "\@  string on\n";
    print "\@  string loctype view\n";
    printf "\@  string %.3f, %.3f\n", $labx, 0.25	unless $top;
    printf "\@  string %.3f, %.3f\n", $labx, 0.75	if     $top;