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

Nama Mahasiswa : Zidan Firdaus Tirta

NIM : 220605110140

Kelas : C

Mata Kuliah : Linear Algebra

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

Jurusan : Teknik Informatika

Universitas : UIN Maulana Malik Ibrahim Malang

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

library(magick)
## Warning: package 'magick' was built under R version 4.2.3
## Linking to ImageMagick 6.9.12.3
## Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
## Disabled features: fontconfig, x11
inp_img <- image_read("https://static.wikia.nocookie.net/hunterxhunter/images/b/bd/HxH2011_EP147_Killua_Portrait.png/revision/latest?cb=20220624211000")
image_info(inp_img)
##   format width height colorspace matte filesize density
## 1    PNG  1920   1920       sRGB  TRUE  1532025   72x72
plot(inp_img)

mod_img <- image_modulate(inp_img, brightness = 150, saturation = 40,
hue = 40)
plot(mod_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 40, hue = 40)
image_rotate(mod_img, 45)

plot(mod_img)

imp = image_modulate(inp_img, brightness = 100, saturation = 100, hue = 100)
plot(imp)

image_border(image_background(imp,"hotpink"),"#39FF14","20x10")

earth <- image_read("https://jeroen.github.io/images/earth.gif") %>%
  image_scale("200x") %>%
  image_quantize(128)

length(earth)
## [1] 44
earth