class: center, middle, inverse, title-slide # Illusionz & Magick ## With flipbookr and xaringan ### BWoodz; August 2020 --- --- count: false .panel1-princess-auto[ ```r *image_read("princess.png") ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_01_output-1.png" width="531" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% * image_scale("300") ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_02_output-1.png" width="400" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% image_scale("300") %>% # Let's begin with a basic rotate * image_rotate(45) ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_03_output-1.png" width="568" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% image_scale("300") %>% # Let's begin with a basic rotate image_rotate(45) %>% # A bit more * image_rotate(90) ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_04_output-1.png" width="568" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% image_scale("300") %>% # Let's begin with a basic rotate image_rotate(45) %>% # A bit more image_rotate(90) %>% # Or just flip it! * image_flip() ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_05_output-1.png" width="568" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% image_scale("300") %>% # Let's begin with a basic rotate image_rotate(45) %>% # A bit more image_rotate(90) %>% # Or just flip it! image_flip() %>% # You can also add color! * image_fill("pink", point = "+100+200", * fuzz = 20) ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_06_output-1.png" width="568" /> ] --- count: false .panel1-princess-auto[ ```r image_read("princess.png") %>% image_scale("300") %>% # Let's begin with a basic rotate image_rotate(45) %>% # A bit more image_rotate(90) %>% # Or just flip it! image_flip() %>% # You can also add color! image_fill("pink", point = "+100+200", fuzz = 20) %>% # And crop your image * image_crop("100x200+50") ``` ] .panel2-princess-auto[ <img src="magick_files/figure-html/princess_auto_07_output-1.png" width="116" /> ] <style> .panel1-princess-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-princess-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-princess-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> --- count: false .panel1-waldo-auto[ ```r *image_read("circle.png") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_01_output-1.png" width="2352" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% * image_scale("200") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_02_output-1.png" width="267" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> *circle ``` ] .panel2-waldo-auto[ ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle *image_read("star.png") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_04_output-1.png" width="400" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% * image_scale("200") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_05_output-1.png" width="267" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% image_scale("200") -> *star ``` ] .panel2-waldo-auto[ ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% image_scale("200") -> star *image_read("waldo.jpg") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_07_output-1.png" width="1365" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% image_scale("200") -> star image_read("waldo.jpg") %>% #ou can add images on top of others * image_composite(star, * offset = * "+780-25") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_08_output-1.png" width="1365" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% image_scale("200") -> star image_read("waldo.jpg") %>% #ou can add images on top of others image_composite(star, offset = "+780-25") %>% * image_composite(circle, * offset = * "+780-25") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_09_output-1.png" width="1365" /> ] --- count: false .panel1-waldo-auto[ ```r image_read("circle.png") %>% image_scale("200") -> circle image_read("star.png") %>% image_scale("200") -> star image_read("waldo.jpg") %>% #ou can add images on top of others image_composite(star, offset = "+780-25") %>% image_composite(circle, offset = "+780-25") %>% # And crop your image * image_crop("200x200+780") ``` ] .panel2-waldo-auto[ <img src="magick_files/figure-html/waldo_auto_10_output-1.png" width="267" /> ] <style> .panel1-waldo-auto { color: black; width: 38.6060606060606%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel2-waldo-auto { color: black; width: 59.3939393939394%; hight: 32%; float: left; padding-left: 1%; font-size: 80% } .panel3-waldo-auto { color: black; width: NA%; hight: 33%; float: left; padding-left: 1%; font-size: 80% } </style> <style type="text/css"> .remark-code{line-height: 1.5; font-size: 120%} @media print { .has-continuation { display: block; } } </style>