Sto provando a rompere il codice il più possibile.
Ci sono problemi quando si prova a combianre diff_shapes() con altre regole. Nello specifico, se diff_shapes() è la regola applicata in orizzontale, la regola che dovrebbe essere applicata in verticale è applicata solo alla prima colonna (Sq1, Sq4, Sq7).
Viceversa, se diff_shapes() è la regola applicata in verticale, la regola che dovrebbe essere applicata in orizzontale è applicata solo sulla prima riga (Sq1, Sq2, Sq3)
<-apply(Raven(st1=cof(e.hexagon()),
rot_h hrule=c("rotation"),vrule=c("identity")))
draw(rot_h)
<-apply(Raven(st1=cof(pentagon()),
rot_v hrule=c("rotation"),vrule=c("identity")))
draw(rot_v)
<-apply(Raven(st1=cof(pentagon()),
rot_hv hrule=c("rotation"),vrule=c("rotation")))
draw(rot_hv)
= apply(Raven(st1=pentagon(),
s_h hrule=c("size"),
vrule=c("identity")))
draw(s_h)
= apply(Raven(st1=pentagon(),
s_v hrule=c("identity"),
vrule=c("size")))
draw(s_v)
= apply(Raven(st1=pentagon(),
s_hv hrule=c("size"),
vrule=c("size")))
draw(s_hv)
= apply(Raven(st1=circle(),
lwd_h hrule=c("lwd"),
vrule=c("identity")))
draw(lwd_h)
= apply(Raven(st1=circle(),
lwd_v hrule=c("identity"),
vrule=c("lwd")))
draw(lwd_v)
= apply(Raven(st1=circle(),
lwd_hv hrule=c("lwd"),
vrule=c("lwd")))
draw(lwd_hv)
= apply(Raven(st1=circle(),
lty_h hrule=c("lty"),
vrule=c("identity")))
draw(lty_h)
= apply(Raven(st1=circle(),
lty_v hrule=c("identity"),
vrule=c("lty")))
draw(lty_v)
= apply(Raven(st1=circle(),
lty_hv hrule=c("lty"),
vrule=c("lty")))
draw(lty_hv)
= apply(Raven(st1=pentagon(),
rs_hv hrule=c("rotation"),
vrule=c("size")))
draw(rs_hv)
= apply(Raven(st1=pentagon(),
rs_vh hrule=c("size"),
vrule=c("rotation")))
draw(rs_vh)
= apply(Raven(st1=e.hexagon(),
lwdr_hv hrule=c("lwd"),
vrule=c("rotation")))
draw(lwdr_hv)
= apply(Raven(st1=e.hexagon(),
lwdr_vh hrule=c("rotation"),
vrule=c("lwd")))
draw(lwdr_vh)
= apply(Raven(st1=e.hexagon(),
lwds_hv hrule=c("lwd"),
vrule=c("size")))
draw(lwds_hv)
= apply(Raven(st1=e.hexagon(),
lwds_vh hrule=c("size"),
vrule=c("lwd")))
draw(lwds_vh)
= apply(Raven(st1=e.hexagon(),
ltyr_hv hrule=c("lty"),
vrule=c("rotation")))
draw(ltyr_hv)
= apply(Raven(st1=ellipse(),
ltyr_vh hrule=c("rotation"),
vrule=c("lty")))
draw(ltyr_vh)
= apply(Raven(st1=e.hexagon(),
ltys_hv hrule=c("lty"),
vrule=c("size")))
draw(ltys_hv)
= apply(Raven(st1=triangle(),
ltys_vh hrule=c("size"),
vrule=c("lty")))
draw(ltys_vh)
#Horizontal
<-apply(Raven(st1=cof(circle(),square(),pentagon()),hrule=c("diff_shapes"),vrule=c("identity")))
Mdraw(M)
#Vertical
<-apply(Raven(st1=cof(circle(),square(),pentagon()),hrule=c("identity"),vrule=c("diff_shapes")))
Mdraw(M)
# Top Left Low Right
<-apply(Raven(st1=cof(circle(),square(),pentagon()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
Il problema di shapes è che non funziona con alcune delle forme
<-apply(Raven(st1=cof(circle(), triangle(), pentagon()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(circle(), ellipse(), pentagon()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(circle(), ellipse(), e.hexagon()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(circle(), ellipse(), lily()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Madraw(Ma)
<-apply(Raven(st1=cof(circle(), ellipse(), star()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mbdraw(Mb)
<-apply(Raven(st1=cof(circle(), ellipse(), v.arc.left.down()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(v.arc.right.down(), h.arc.right.down(), v.arc.left.down()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
Gli archetti funzionano tutti
<-apply(Raven(st1=cof(s_vertical(), s_horizontal(), s_horizontal.inv()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(s_vertical.inv(), s_horizontal(), s_horizontal.inv()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
Mdraw(M)
<-apply(Raven(st1=cof(horizontal.eight(), vertical.eight(), s_horizontal.inv()),hrule=c("diff_shapes"),vrule=c("diff_shapes")))
M1draw(M1)
Le figure cambiano per riga. La rotazione è applicata solo sulla prima colonna
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),hrule=c("diff_shapes"),vrule=c("rotation")))
Mdraw(M)
Le figure cambiano per colonna. La rotazione è applicata solo sulla prima riga
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),vrule=c("diff_shapes"),hrule=c("rotation")))
Mdraw(M)
Le figure cambiano per riga, ma il cambio di linea è applicato solo sulla prima colonna
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),hrule=c("diff_shapes"),vrule=c("lwd")))
Mdraw(M)
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),hrule=c("diff_shapes"),vrule=c("lty")))
Mdraw(M)
Le figure cambiano per colonna, ma i contorno cambia solo sulla prima riga.
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),vrule=c("diff_shapes"),hrule=c("lwd")))
Mdraw(M)
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),vrule=c("diff_shapes"),hrule=c("lty")))
Mdraw(M)
Le figure cambiano per riga. La dimensione cambia solo sulla prima colonna
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),hrule=c("diff_shapes"),vrule=c("size")))
Mdraw(M)
Le figure cambiano per colonna. La dimensione cambia solo sulla prima riga.
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),vrule=c("diff_shapes"),hrule=c("size")))
Mdraw(M)
Le figure cambiano per riga. Il riempimento cambia solo sulla prima colonna
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),hrule=c("diff_shapes"),vrule=c("fill")))
Mdraw(M)
Le figure cambiano per colonna. Il rimepimento cambia solo sulla prima riga.
<-apply(Raven(st1=cof(square(), ellipse(), triangle()),vrule=c("diff_shapes"),hrule=c("fill")))
Mdraw(M)