| #------------------------------------------------------------- |
| # |
| # Licensed to the Apache Software Foundation (ASF) under one |
| # or more contributor license agreements. See the NOTICE file |
| # distributed with this work for additional information |
| # regarding copyright ownership. The ASF licenses this file |
| # to you under the Apache License, Version 2.0 (the |
| # "License"); you may not use this file except in compliance |
| # with the License. You may obtain a copy of the License at |
| # |
| # http://www.apache.org/licenses/LICENSE-2.0 |
| # |
| # Unless required by applicable law or agreed to in writing, |
| # software distributed under the License is distributed on an |
| # "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY |
| # KIND, either express or implied. See the License for the |
| # specific language governing permissions and limitations |
| # under the License. |
| # |
| #------------------------------------------------------------- |
| |
| args = commandArgs(TRUE) |
| options(digits=22) |
| library("Matrix") |
| |
| image_crop = function(img_in, w, h, x_offset, y_offset) { |
| orig_w = ncol(img_in) |
| orig_h = nrow(img_in) |
| |
| start_h = (ceiling((orig_h - h) / 2)) + y_offset |
| end_h = (start_h + h - 1) |
| start_w = (ceiling((orig_w - w) / 2)) + x_offset |
| end_w = (start_w + w - 1) |
| |
| |
| if((start_h < 0) | (end_h > orig_h) | (start_w < 0) | (end_w > orig_w)) { |
| print("Offset out of bounds! Returning input.") |
| img_out = img_in |
| } |
| else { |
| mask = matrix(0, orig_h, orig_w) |
| temp_mask = matrix(1, h , w ) |
| mask[start_h:end_h, start_w:end_w] = temp_mask |
| mask = matrix(mask, 1, orig_w * orig_h) |
| img_out = input[start_h:end_h, start_w:end_w] |
| } |
| } |
| |
| input = as.matrix(readMM(paste(args[1], "A.mtx", sep=""))) |
| size = as.double(args[3]) |
| input = matrix(input, as.integer(args[4]), as.integer(args[5])) |
| new_w = floor(ncol(input) * size) |
| new_h = floor(nrow(input) * size) |
| print(paste("New w/h=",new_w,"/",new_h)) |
| crop1 = image_crop(input, new_w, new_h, as.integer(args[6]), as.integer(args[7])); |
| writeMM(as(crop1, "CsparseMatrix"), paste(args[2], "B", sep="")) |
