#
# If in the command already seen Direction(x,y, d,r, col) I choose 0 as color,
# the "ray" (r long) from x,y in the direction d is not traced. This allows me
# to have the arrival point coordinates in Directionx and Directiony. An example:

PLANEww(-1,1, -1,1); circle(0,0, 1, "blue")
for(i in 0:(24*5) ) {a <- 360/(24*5)*i; Direction(0,0, a,1, 0);
                     P=c(Directionx,Directiony); line(P[1],P[2],P[1]*0.95,P[2]*0.95,"blue")}      
for(i in 0:24 ) {a <- 360/24*i; Direction(0,0, a,1, 0);
                     P=c(Directionx,Directiony); segm(P[1],P[2],P[1]*0.9,P[2]*0.9,"blue")}   
for(i in 1:24 ) {a <- -360/24*i+90; Direction(0,0, a,1, 0);
                     P=c(Directionx,Directiony)*0.8; type(P[1],P[2],i)}    
Point(0,0,"blue")
#
PLANEww(-1,1, -1,1); R = 0.87; circle(0,0, R, "blue")
for(i in 0:(24*5) ) {a <- 360/(24*5)*i; Direction(0,0, a,R, 0);
                     P=c(Directionx,Directiony); line(P[1],P[2],P[1]*0.9,P[2]*0.9,"blue")}      
for(i in 0:24 ) {a <- 360/24*i; Direction(0,0, a,R, 0);
                     P=c(Directionx,Directiony); segm(P[1],P[2],P[1]*0.8,P[2]*0.8,"blue")}   
for(i in 1:24 ) {a <- -360/24*i+90; Direction(0,0, a,1, 0);
                     P=c(Directionx,Directiony); type(P[1],P[2],i)}      
Point(0,0,"blue")