外部変形は データのやり取りをテキストファイルで行うので プログラム言語は 自由に選ぶことができます。図形は機能的かつシンプルなため、数多くのユーザーに受け入れられています。
perlで罫線を引く
:perlで罫線を引く
@echo off
set yp=8
set div=2
set sx=15
set sy=20
perl -x %~f0 jwc_temp.txt
goto:eof
REM #jww
REM #hp
REM #zs
REM #e
#!perl -anl -i.bak
BEGIN {
#$\ = "\n"; # set output record separator
$yp = $ENV{'yp'};
$div = $ENV{'div'};
$sx = $ENV{'sx'};
$sy = $ENV{'sy'};
}
if (/^hzs/) {
($w, $h) = @F[1..2];
$n = int( ($h - 2 * $sy) / $yp);
$x0 = $sx;
$x1 = $x0 + $w / $div - $sx;
print "bz";
print "lc9";
print "lt9";
for $i (0..$n-1) {
$y = $yp * $i + $sy;
print "$x0 $y $x1 $y";
}
}
__END__
