OptoGraphs/ExampleCode.R at master · EvaFro/OptoGraphs · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109


## OptoExample.R ##

# This is an example script on how to run the OptoCircle.R and OptoStries.R scripts.

##############################################
## Author Information ##

# * Author: E.Frolli
# * Orginization: Univeristy of Texas Marine Science Institute
# * Contact: frolli.erin@utexas.edu
# * Date: 11 May 2017


##############################################
## The Code ##


##############################################
# 1. Download and install ImageMagick
##############################################

## For Windows ##
# To instal ImgageMagick need the installr package
install.packages("installr")
require(installr)
# Then install ImageMagick
install.ImageMagick()

# Note if you are having trouble downloading ImageMagick this way, It could be that your computer thinks its a malware. You should turn it off temp to download ImageMagick then turn it back on to protect your computer. Also don't forget to check the box that has (ie convert) on it. We need that .exe file to run the code we have.

# ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

## For Mac ##
# Note you must have Homebrew or MacPorts installed. I used Homebrew. You must use the Mac Terminal to download.

# 1. Open Mac Termial. (made sure you are in the Admin mode)
# 2. Type in the Terminal console to download and install Homebrew: /usr/bin/ruby -e "$(curl -fsSL https://raw.githubusercontent.com/Homebrew/install/master/install)"
# Note: In Admin mode you will need to know the Admin pasword to download properly.
# 3. Type in the Terminal console to download and install ImageMagick:  brew install imagemagick
# 4. Then open up R and continue to the next steps.


##############################################
# 2. OptoGraphs W/o .gif
##############################################

#Set your working directory to the folder you created
# Note set your directory to the folder that you want the images saved too
setwd('C:/Desktop/LabProjects/OptoGraphs/')
# Create a destination folder
dir.create("Circ") # Name this folder what ever you like
#Set your working directory to the folder you created
setwd("Circ")


# opens both functions
# Note: make sure your directories are set correctly
source('C:/Desktop/LabProjects/OptoGraphs/OptoCirclesF_Nogif.R')
source('C:/Desktop/LabProjects/OptoGraphs/OptoStripesF_Nogif.R')


# For the circles
OptoCirclesF_Nogif(20) # Clockwise
OptoCirclesF_Nogif(20,Reverse=TRUE) # Counter Clockwise
OptoCirclesF_Nogif(20,ColorSr= c("black","red")) # Clockwise
OptoCirclesF_Nogif(20,ColorSr= c("black","red"), Reverse=TRUE) # Counter Clockwise

# For the stripes
OptoStripesF_Nogif(12) # Forward moving stripes
OptoStripesF_Nogif(12,ColorSr= c("black","red")) # Forward moving stripes
# For the stripes
OptoStripesF_Nogif(12,ColorSr= c("black","red"),Reverse= TRUE) # backword moving stripes


##############################################
# 3. OptoGraphs w/ .gif
##############################################

#Set your working directory to the folder you created
# Note set your directory to the folder that you want the images saved too
setwd('C:/Desktop/LabProjects/OptoGraphs/')
# Create a destination folder
dir.create("Circ") # Name this folder what ever you like
#Set your working directory to the folder you created
setwd("Circ")


# opens both functions
# Note: make sure your directories are set correctly.
# Also make sure to open up each fuction to ensure that the ImageMagick line has the correct wording (See OptioGraphs_ReadMe.pdf for instructions on how to do this).
source('C:/Desktop/LabProjects/OptoGraphs/OptoCirclesF.R')
source('C:/Desktop/LabProjects/OptoGraphs/OptoStripesF.R')


# For the circles
OptoCirclesF(20,10,Reverse=TRUE) # Counter Clockwise
OptoCirclesF(20,10) # Clockwise
OptoCirclesF(20,5,ColorSr= c("black","red")) # Clockwise
OptoCirclesF(20,5,ColorSr= c("black","red"), Reverse=TRUE) # Counter Clockwise

# For the stripes
OptoStripesF(12,5) # Forward moving stripes
OptoStripesF(12,5,ColorSr= c("black","red")) # Forward moving stripes
# For the stripes
OptoStripesF(12,5,ColorSr= c("black","red"),Reverse= TRUE) # backword moving stripes