# base-1
from rpy import r
import math, os

# Sotto Windows sostituire r.x11() con r.windows().
def Crea (figura,larghezza,altezza,fileps=None,vis=0):
  if vis: r.x11(); figura(); r.locator(1); Fine()
  if fileps: Postscript (fileps,larghezza,altezza); figura(); Fine()

def Fine (): r.graphics_off()

def Grafica (larg,alt,ingr=1,dh=0,dv=0,spessore=0.5):
  x=[-dh,larg/float(ingr)-dh]; y=[-dv,alt/float(ingr)-dv]
  r.par(mai=[0,0,0,0],omi=[0,0,0,0],lwd=spessore)
  r.plot(x,y,type='n',xlab='',ylab='',asp=1,axes=0,frame_plot=0)

def Postscript (fileps,larghezza,altezza):
  r.postscript(fileps,width=larghezza/2.54,height=altezza/2.54,
    horizontal=False,onefile=False,paper='special')

# E' superflua, perche' sostituita da Grafica.
# Talvolta con margini > 0 avviene una rotazione di 180 gradi?
# Il significato dei margini e' descritto in 15536 Venables/, 85.
def Preparagrafica (x,y,rappyx=1,spessore=0.5):
  r.par(mai=[0,0,0,0],omi=[0,0,0,0],lwd=spessore)
  r.plot(x,y,type='n',xlab='',ylab='',asp=rappyx,axes=0,frame_plot=0)

# Parametri grafici attualmente validi.
# Ripristinati con r.par(vecchiparametri).
def Statografico (): return r.par(no_readonly=1)