Masalah:

Tantangan ini datang dari masalah nyata yang saya alami. Saya memiliki pengaturan dual monitor di tempat kerja, dan saya ingin menggunakan gambar berikut sebagai wallpaper saya:

Namun, monitor saya memiliki bezel yang cukup signifikan, dan ketika saya mengatur latar belakang saya, terlihat seperti ini, di mana dermaga muncul (appiers?) Menjadi rusak:

Saya dapat menyelesaikan ini dengan membuat gambar dengan bagian tengahnya terpotong, dan kemudian merentangkannya kembali ke ukuran aslinya, seperti pada gambar di bawah ini:

Tantangan:

Tulis program yang mengambil gambar dan "pantau" untuk digunakan dengan pengaturan dua monitor (yaitu menghapus bagian tengah gambar, di mana bezel berada). Aturannya adalah sebagai berikut:

1. Ini harus berupa program lengkap yang menerima gambar, baik sebagai jalur (argumen string, dll), atau dalam bentuk dialog pemilih file.
2. Program harus mengambil sebagai input jumlah garis vertikal (lebar satu piksel) untuk memotong dari bagian tengah gambar
3. Pemangkasan harus berasal dari pusat (lebar-bijaksana) dari gambar asli
4. Gambar yang dihasilkan harus diskalakan kembali ke ukuran asli dari gambar input. (Salah satu bagiannya dapat diskalakan secara individual, dan kemudian digabungkan, atau digabungkan dan kemudian diskalakan. Penskalaan secara individual menghasilkan gambar / efek yang lebih baik, tetapi hampir tidak terlihat di dunia nyata)
5. Gambar latar belakang pada umumnya genap, sehingga untuk membuat tantangan ini lebih mudah, input gambar hanya akan memiliki jumlah piksel yang genap, dan jumlah garis untuk dihapus hanya akan sama rata.
6. Tantangan ini adalah kode golf - kode terpendek dalam byte yang menang

Semoga berhasil!

Oktaf, 85 byte

@(f,n)imsave(imresize((o=imread(f))(:,[1:(end-n)/2,(end+n)/2:end],:),size(o)(1:2)),f)

Menentukan fungsi anonim dengan fnama file, dan njumlah kolom yang akan dihapus. Karena fungsi anonim membutuhkan satu ekspresi, penugasan inline digunakan, fitur yang tidak ada di MATLAB.

MATLAB, 98 byte

Sebagai bonus, saya juga mengirim jawaban yang kompatibel dengan MATLAB. Menariknya, ini hanya 13 byte lebih lama, karena versi Oktaf membutuhkan banyak tanda kurung untuk mengurai tugas inline dengan benar.

function  m(f,n)
o=imread(f);imsave(imresize(o(:,[1:(end-n)/2,(end+n)/2:end],:),size(o(:,:,1))),f)

Matlab 2013, 150 byte

Ini usaha saya di Matlab. Jelas bukan kode terpendek, tapi ini awal.

Peringatan, ini menimpa gambar asli, jadi buat salinannya terlebih dahulu.

Versi Golf

function  mi(f,n)
o=imread(f);
s=size(o);
imwrite([imresize(o(:,1:((s(2)-n)/2),:),[s(1),s(2)/2]) imresize(o(:,((s(2)+n)/2):end,:),[s(1),s(2)/2])], f);
end

Ungolfed Code, dengan peningkatan untuk ukuran gambar ganjil dan jumlah kolom ganjil

function  monitorizeImage( filename, num_columns )

orig = imread(filename);
orig_size = size(orig);

f = factor(orig_size(2));
origsize_iseven = f(1)==2;

f = factor(num_columns);
num_columns_iseven = f(1)==2;

odd_even_size_mismatch = xor(origsize_iseven,num_columns_iseven);

img_resized = imresize(orig,[orig_size(1) orig_size(2)+odd_even_size_mismatch]);

leftimg = img_resized(:,1:((orig_size(2)+odd_even_size_mismatch-num_columns)/2),:);
leftimg = imresize(leftimg,[orig_size(1),floor(orig_size(2)/2)]);
rightimg = img_resized(:,((orig_size(2)-odd_even_size_mismatch+num_columns)/2):end,:);
rightimg = imresize(rightimg,[orig_size(1),floor(orig_size(2)/2)]);

monitorized_image = [leftimg rightimg];
monitorized_image = imresize(monitorized_image,[orig_size(1),orig_size(2)+ ~origsize_iseven]);

[~, ~, ext] = fileparts(filename); 

imwrite(monitorized_image,strcat(filename(1:end-length(ext)),'_',num2str(num_columns),ext));

end

Bahasa Wolfram, 134 , 127 , 119 111 byte

f[i_,c_]:=(d=ImageDimensions@i;ImageAssemble[ImageTake[i,a=All,#]&/@{{0,e=-#&@@d/2-c/2},{-e,a}}]~ImageResize~d)

Membuat fungsi fyang mengambil gambar sebagai input pertama (sebagai simbol dalam Mathematica atau Wolfram Cloud), dan integer sebagai input kedua.

Tidak disatukan :

f[image_,columns_]:=(  (*Define Function*)
    d=ImageDimensions[image];  (*Get image dimensions*)
    e=d[[1]]/2+columns/2;  (*Add half the image width to half the number of removed columns*)
    ImageResize[ImageAssemble[Map[ImageTake[i,All,#]&,{{0,-e},{e,All}}]],d]  (*Map the function onto a list with the desired column ranges and merge and scale the resulting image*)
)

Secara teknis, itu tidak akan berfungsi dengan baik jika salah satu dari dimensi gambar melebihi 362.880 piksel, tapi saya berasumsi tidak apa-apa, karena itu jauh di luar lingkup masalah (dan beberapa komputer). Tetap!

PHP, 206 byte

($c=imagecopyresized)($t=imagecreatetruecolor($w=imagesx($s=imagecreatefrompng($argv[1])),$h=imagesy($s)),$s,0,0,0,0,$v=$w/2,$h,$x=$v-$argv[2]/2,$h);$c($t,$s,$v,0,$w-$x,0,$v,$h,$x,$h);imagepng($t,$argv[3]);

membutuhkan tiga argumen baris perintah: nama file sumber, jumlah baris untuk dipangkas, dan nama file target. Jalankan dengan -r.

Anda mungkin ingin menggunakan imagecopyresampledsebagai ganti imagecopyresized(+2 byte) untuk hasil yang lebih baik.

ungolfed

$s=imagecreatefrompng($argv[1]);    # load source image
$w=imagesx($s);$h=imagesy($s);      # get image dimensions
$t=imagecreatetruecolor($w,$h);     # create target image
$v=$w/2;                            # $v = half width
$x=$v-$argv[2]/2;                   # $x = width of remaining halves
                                    # resize and copy halves:
imagecopyresized($t,$s, 0,0,    0,0,$v,$h,$x,$h);
imagecopyresized($t,$s,$v,0,$w-$x,0,$v,$h,$x,$h);
imagepng($t,$argv[3]);              # save target image

Saya bisa menghemat 9 byte lagi dengan mengirim hasil PNG ke STDOUT ... tapi untuk apa?