old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- rnorm( Num ) * 10
y <- rnorm( Num ) * 10

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, 15, 15:-15 )
y <- c( 1:15, 15, 15:1, 0, -1:-15, -15, -15:-1 )

Num <- 62

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)


old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )


x <- sin(1:10)
y <- cos(1:10)

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

x <- sin(1:10)*15
y <- cos(1:10)*15

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

x <- sin(1:10/180*pi)*15
y <- cos(1:10/180*pi)*15

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

x <- sin(1:180/180*pi)*15
y <- cos(1:180/180*pi)*15

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- sin(1:45/45*pi)*15
y <- cos(1:45/45*pi)*15

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )


x <- sin(1:90/45*pi)*15
y <- cos(1:90/45*pi)*15

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)


old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- sin(1:9/4.5*pi)*15
y <- cos(1:9/4.5*pi)*15


Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)


old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

Num <- length(x)

for ( i in 1:Num ){
myFace( x[i], y[i] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i], y[i] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}


old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )
x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )

Num <- length(x)

for ( i in 1:Num/4 ){
myFace( x[i*4], y[i*4] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*4], y[i*4] )
#line <- readline()
}

for ( i in 1:Num ){
myFace( x[i], y[i] )
}

par(old.par)
old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

Num <- length(x)

SS <- 10

for ( i in 1:Num/SS ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:Num/SS ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

Num <- length(x)
SS <- 10

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

Num <- length(x)
SS <- 6

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

Num <- length(x)
SS <- 6

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, 15, 15:-15 )
y <- c( 1:15, 15, 15:1, 0, -1:-15, -15, -15:-1 )

Num <- length(x)
SS <- 6

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

myfunc <- lapply( "myFace.R", source)
myfunc <- lapply( "myFaceOff.R", source)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )


x <- rnorm( 20 ) * 10
y <- rnorm( 20 ) * 10

Num <- length(x)
SS <- 1

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )

plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- rnorm( 20 ) * 10
y <- rnorm( 20 ) * 10

Num <- length(x)
SS <- 1

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
#line <- readline()
Sys.sleep( 0.1 )
myFaceOff( x[i*SS], y[i*SS] )
#line <- readline()
}

for ( i in 1:(Num/SS) ){
myFace( x[i*SS], y[i*SS] )
}

par(old.par)


x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

plot( x, y )

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

old.par <- par( mex = 0.8, mar = c(5, 4, 4, 2) + 0.1 )
plot( -20:20, -20:20, xlab = "", ylab = "", pch = 1:11, col = 1:8, type = "n" )
axis( side = 1, at = -20:20 )
axis( side = 2, at = -20:20 )

x <- c( -15:15, rep(15, 31), 15:-15, rep(-15, 31) )
y <- c( rep(15, 31), 15:-15, rep( -15, 31), -15:15 )

plot( x, y )


x <- sin(1:90/45*pi)*15
y <- cos(1:90/45*pi)*15

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

x <- c( -15:15, 15, 15:-15 )
y <- c( 1:15, 15, 15:1, 0, -1:-15, -15, -15:-1 )

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

x <- rnorm( 20 ) * 10
y <- rnorm( 20 ) * 10

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

x <- c( -15:15, 15, 15:-15 )
y <- c( 1:15, 15, 15:1, 0, -1:-15, -15, -15:-1 )

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20), add=TRUE )

par(new=T)

x <- rnorm( 20 ) * 10
y <- rnorm( 20 ) * 10

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

x <- sin(1:90/45*pi)*15
y <- cos(1:90/45*pi)*15

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

par(new=T)

x <- rnorm( 20 ) * 10
y <- rnorm( 20 ) * 10

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )

x <- c( -15:15, 15, 15:-15 )
y <- c( 1:15, 15, 15:1, 0, -1:-15, -15, -15:-1 )

par(new=T)

plot( x, y, xlim = c(-20,20), ylim = c(-20, 20) )