Cara Mengubah Ukuran Gambar dengan Library Magick

=====================================================

Nama Mahasiswa : Prayuda Zaky Al Mahdi

NIM : 220605110118

Kelas : B

Mata Kuliah : Linear Algebra

Dosen Pengampuh : Prof.Dr.Suhartono,M.Kom

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

=====================================================

Memanggil package magick

library(magick)

## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11

str(magick::magick_config())

## List of 24
##  $ version           :Class 'numeric_version'  hidden list of 1
##   ..$ : int [1:4] 6 9 12 3
##  $ modules           : logi FALSE
##  $ cairo             : logi TRUE
##  $ fontconfig        : logi FALSE
##  $ freetype          : logi TRUE
##  $ fftw              : logi TRUE
##  $ ghostscript       : logi TRUE
##  $ heic              : logi TRUE
##  $ jpeg              : logi TRUE
##  $ lcms              : logi TRUE
##  $ libopenjp2        : logi TRUE
##  $ lzma              : logi TRUE
##  $ pangocairo        : logi TRUE
##  $ pango             : logi TRUE
##  $ png               : logi TRUE
##  $ raw               : logi TRUE
##  $ rsvg              : logi TRUE
##  $ tiff              : logi TRUE
##  $ webp              : logi TRUE
##  $ wmf               : logi FALSE
##  $ x11               : logi FALSE
##  $ xml               : logi TRUE
##  $ zero-configuration: logi TRUE
##  $ threads           : int 1

membuat objek “Heart” dengan mengambil gambar dari internet

Heart_img <- image_read_svg('https://raw.githubusercontent.com/mathlover16/mathlover16.github.io/142a6f36aa80e898c4b0693fbc8eefbda3a8bed5/images/heart.svg')
print(Heart_img)

##   format width height colorspace matte filesize density
## 1    PNG   512    512       sRGB  TRUE        0   72x72

image_write(Heart_img, path = "Heart.png", format = "png")

mengonversi gambar dari format SVG ke PNG dan dimasukkan ke objek “Heart”

Heart_img <- image_convert(Heart_img, "png")
image_info(Heart_img)

##   format width height colorspace matte filesize density
## 1    PNG   512    512       sRGB  TRUE        0   72x72

Menampilkan gambar

plot(Heart_img)

Merubah ukuran gambar dengan image_scale dan dimasukkan ke objek baru “Heart_baru” *parameternya akan menyesuaikan dengan ukuran asli gambar

Heart_baru <- image_scale(Heart_img, "50")

Menampilkan informasi gambar yang sudah diedit

image_info(Heart_baru)

##   format width height colorspace matte filesize density
## 1    PNG    50     50       sRGB  TRUE        0   72x72

Menampilkan gambar baru

plot(Heart_baru)