#!/usr/bin/perl

# EPSON スキャナ (epkowa) 用のトーンカーブのテーブルを出力する。
# curve.pl x1 x2 で 0,0 x1,0 x2,255 255,255 という
# トーンカーブのためのテーブルを出力する

use strict;

my $x1 = $ARGV[0];
my $x2 = $ARGV[1];

my $a = 255 / ($x2 - $x1) ;
my $b = $x1 * $a;

for (my $x = 0; $x < 255; $x++) {

    my $y = $a * $x - $b;

    if ($y < 0) {
	$y = 0;
    } elsif ( $y > 255) {
	$y = 255;
    }

    print int($y + 0.5),",";
}

print "255\n";