[R-br] Considerar ângulo da área para distribuir coordenadas com expand.grid ()

[ASANTOS]

Boa noite pessoal,

        Gostaria de saber se existe uma maneira de controlar a 
inclinação da distribuição dos pontos em expand.grid() em função de um 
limite de área, como por exemplo no meu CRM abaixo, onde no exemplo 1 
esta tudo Ok, mas no exemplo 2 as coordenadas não consideram a 
inclinação da área. Seria possível usar algum argumento para controlar isto?

# Exemplo 1
x<-c(0,0,100,100,0)
y<-c(0,100,100,0,0)
plot(x,y, type="l", col="red")
#
p0<-c(10,10)
#
#
c0 <- seq(p0[1],p0[1]+95,by=20)
d0 <- seq(p0[2],p0[2]+95,by=20)
d1 <- expand.grid(x=c0, y=d0)
points(d1[,1],d1[,2])
#
#Exemplo 2
x<-c(0,0,50,50,0)
y<-c(0,100,150,50,0)
plot(x,y, type="l", col="red")
#
p0<-c(10,10)
#
#
c0 <- seq(p0[1],p0[1]+95,by=20)
d0 <- seq(p0[2],p0[2]+95,by=20)
d1 <- expand.grid(x=c0, y=d0)
points(d1[,1],d1[,2])
#

Obrigado,

-- 
======================================================================
Alexandre dos Santos
Proteção Florestal
Coordenador do curso Técnico em Florestas
Vice Coordenador do curso de Engenharia Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT                      CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM)   (+55) 65 9686-6970 (VIVO)
e-mails:alexandresantosbr em yahoo.com.br
         alexandre.santos em cas.ifmt.edu.br
======================================================================