# TODO: Add comment
# 
# Author: E.Korsching
###############################################################################


# test the present plot parameters for adjustment

testplotarea <- function(){
	# print some par() core parameters
	l1 <- NULL
	l1[["AAA"]] <- "width_page-figure-plot"
	l1[["din"]] <- par()$din
	l1[["fin"]] <- par()$fin
	l1[["pin"]] <- par()$pin
	l1[["BBB"]] <- "omar-plus-fig_imar-plus-plot"
	l1[["omd"]] <- par()$omd
	l1[["plt"]] <- par()$plt
	l1[["CCC"]] <- "inner_mar"
	l1[["mar"]] <- par()$mar
	l1[["mai"]] <- par()$mai
	l1[["DDD"]] <- "outer_mar"
	l1[["oma"]] <- par()$oma
	l1[["omi"]] <- par()$omi
	print(l1)
	return()
}

#testplotarea()