Проблема:

Эта проблема возникла из-за реальной проблемы, с которой я столкнулся. У меня настроен двойной монитор на работе, и я хотел использовать следующее изображение в качестве обоев:

Тем не менее, у моих мониторов довольно значительные рамки, и когда я устанавливаю фон, это выглядит примерно так, где появляется пирс (appiers?), Который будет сломан:

Я смог решить эту проблему, сделав изображение с вырезанным из него центром, а затем растянув его до исходного размера, как показано на рисунке ниже:

Соревнование:

Напишите программу, которая принимает изображение и «контролирует» его для использования с настройкой двойного монитора (т.е. удаляет центральную часть изображения, где находятся рамки). Правила следующие:

1. Это должна быть полная программа, которая принимает изображение либо в виде пути (строковый аргумент и т. Д.), Либо в форме диалогового окна выбора файла.
2. Программа должна взять в качестве входных данных количество вертикальных линий (один пиксель в ширину), чтобы обрезать от центра изображения
3. Обрезка должна исходить из центра (по ширине) исходного изображения
4. Результирующее изображение должно быть уменьшено до исходного размера входного изображения. (Либо половинки можно масштабировать по отдельности, а затем объединять или объединять, а затем масштабировать. Индивидуальное масштабирование дает лучшее изображение / эффект, но вряд ли заметно в реальном мире)
5. Фоновые изображения, как правило, являются четными, поэтому для облегчения этой задачи входные изображения будут иметь только четное количество пикселей, а количество удаляемых строк будет также ровным.
6. Это испытание кода гольф - выигрывает самый короткий код в байтах

Удачи!

Октава, 85 байт

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

Определяет анонимную функцию с fименем файла и nколичеством удаляемых столбцов. Поскольку анонимная функция требует одного выражения, используется встроенное присваивание, функция, отсутствующая в MATLAB.

MATLAB, 98 байт

В качестве бонуса я также сыграл в гольф MATLAB-совместимый ответ. Интересно, что это всего на 13 байт длиннее, поскольку для правильной обработки встроенных назначений в версии Octave требуется много скобок.

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 байт

Вот моя попытка в Matlab. Определенно не будет самым коротким кодом, но это только начало.

Внимание, это перезаписывает исходное изображение, поэтому сначала сделайте копию.

Гольф версия

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, с улучшениями для нечетных размеров изображения и нечетного числа столбцов

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

Wolfram Language, 134 , 127 , 119 111 байтов

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

Создает функцию, fкоторая принимает изображение в качестве первого ввода (в качестве символа в Mathematica или Wolfram Cloud) и целое число в качестве второго ввода.

Ungolfed :

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*)
)

Технически, это не будет работать должным образом, если любое из размеров изображения превысит 362880 пикселей, но я предполагаю, что это нормально, так как это далеко выходит за рамки проблемы (и некоторых компьютеров). Исправлена!

PHP, 206 байт

($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]);

принимает три аргумента командной строки: имя исходного файла, количество строк для обрезки и целевое имя файла. Беги с -r.

Вы можете использовать imagecopyresampledвместо imagecopyresized(+2 байта) для лучшего результата.

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

Я мог бы сохранить еще 9 байтов, отправив результат PNG в STDOUT ... но зачем?