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

# Reading image
inp_img <- image_read("https://camo.githubusercontent.com/e07359e9dd41189b2f24af09095da07a707effb9c34745aa91af606cca5ed680/68747470733a2f2f692e696d6775722e636f6d2f486654627733302e706e67")
inp_img

image_info(inp_img)

##   format width height colorspace matte filesize density
## 1    PNG   640    480       sRGB  TRUE    65745   72x72

plot(inp_img)

mod_img <- image_modulate(inp_img, brightness = 120, saturation = 20, hue = 20)

plot(mod_img)

#Brightness, Saturation, Hue
imp = image_modulate(inp_img, brightness = 100, saturation = 100, hue = 100)
imp

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

image_scale(inp_img,"100")

image_scale(inp_img,"x100")

image_flip(inp_img)

#untuk image_rotate yang dimasukkan adalah besar sudut
image_rotate(inp_img, 90)

image_modulate(inp_img, brightness = 100,saturation = 140, hue = 60)

#melakukan efek blur pada gambar
image_blur(inp_img, 10, 5)

#memberi efek noise pada gambar
image_noise(inp_img)

 #Silly filters
image_charcoal(inp_img)

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

length(earth)

## [1] 44

earth

head(image_info(earth))

##   format width height colorspace matte filesize density
## 1    GIF   200    200        RGB FALSE        0   72x72
## 2    GIF   200    200        RGB  TRUE        0   72x72
## 3    GIF   200    200        RGB  TRUE        0   72x72
## 4    GIF   200    200        RGB  TRUE        0   72x72
## 5    GIF   200    200        RGB  TRUE        0   72x72
## 6    GIF   200    200        RGB  TRUE        0   72x72