groff
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Groff] pic resize problem


From: james walker
Subject: [Groff] pic resize problem
Date: Wed, 27 Apr 2005 11:15:47 +0100

When i process a pic file into a postscript file, for some reason it gets shrunk automatically, how do i stop this? i type this in the command line:

pic floorB.pic | psroff -ms -t > floorB.ps

and get this output:

pic: 60 X 42 picture shrunk to 7 X 4.9

Wasn't sure if i could attach the pic file so i have attached it and included the could in this email below:

.PS
###
#declarations for generic
###
square = 1.5
wingwidth = 8*square
middlewingwidth = 12*square
winglen = 28*square
groundwinglen = 25*square
normalstairdiff = 3*square
topstairdiff = normalstairdiff
bottomstairdiff = normalstairdiff

#######################################################################

##############
#GENERIC NORTH
##############

NorthNW:        line right wingwidth
NorthNE:        line down topstairdiff
NorthNStair:    Here
        move down square
Northextra:     line down winglen-topstairdiff-square
NorthSE:        line left wingwidth
NorthSW:        line up winglen
        move to NorthSE + (0,bottomstairdiff+square)
NorthSStair:    Here

###############
#GENERIC MIDDLE
###############

move to NorthNE right (6*square)
MiddleNW:       line right middlewingwidth
MiddleNE:       line down topstairdiff
MiddleNEStair:  Here
        move down square
Middleextra:    line down winglen-topstairdiff-square
MiddleSE:       line left middlewingwidth
MiddleSW:       line up winglen-topstairdiff-square
               move up square
MiddleNWStair:  Here
               line up topstairdiff
               move to MiddleSE + (0, bottomstairdiff+square)
MiddleSEStair:  Here
               move to MiddleSW + (0, bottomstairdiff+square)
MiddleSWStair:  Here
MiddleLift:     box wid (4/3)*square ht (4/3)*square "Lift" \
                       with .nw at MiddleNW + ((16/3)*square,-(4/3)*square)
MiddleFWC:      box wid (10/3)*square ht (7/3)*square with .nw at MiddleNW
MiddleClean: box wid (8/3)*square ht (2/3)*square with .nw at MiddleFWC.sw
MiddleMWC:      box wid (10/3)*square ht (7/3)*square with .ne at MiddleNE
MiddleDis: box wid (8/3)*square ht (2/3)*square with .ne at MiddleMWC.se

#########################
#Connect North and Middle
#########################

CorrNM1: line from NorthNStair to MiddleNWStair
CorrNM2: line from Northextra to MiddleSW.end
StairL: circle rad square "Stairs" with .s at CorrNM1.c
CorrNM3: line dashed 0.5 from (NorthSE + (0,topstairdiff+square)) to (MiddleSW + (0,topstairdiff+square)) CorrNM4: line dashed 0.5 from (NorthSE + (0,topstairdiff)) to (MiddleSW + (0,topstairdiff))


##############
#GENERIC SOUTH
##############

move to MiddleNE right (6*square)
SouthNW:        line right wingwidth
SouthNE:        line down winglen
SouthSE:        line left wingwidth
SouthSW:        line up winglen-topstairdiff-square
        move up square
SouthNStair:    line up topstairdiff
        move to SouthSW + (0, bottomstairdiff+square)
SouthSStair:    Here

#########################
#Connect Middle and South
#########################

CorrMS1: line from MiddleNEStair to SouthNStair
CorrMS2: line from Middleextra to SouthSW.end
StairR: circle rad square "Stairs" with .s at CorrMS1.c
CorrMS3: line dashed 0.5 from (MiddleSE + (0,topstairdiff+square)) to (SouthSW + (0,topstairdiff+square)) CorrMS4: line dashed 0.5 from (MiddleSE + (0,topstairdiff)) to (SouthSW + (0,topstairdiff))

###################################################################################

##############
#Define macros
##############

#macro for room, $3 is name and phone number
define room {box ht $1 wid $2 $3} #note these are curly brackets
define ltel {$1 ljust above $2 + (0.02,0)}
define lteln {$1 ljust below $2 + (0.02,0)}
define rteln {$1 rjust below $2 - (0.02,0)}
define rtel {$1 rjust above $2 - (0.02,0)}


#macros for nodes, left clash is always down,right clash is always up
define nodeup {circle rad 0.25*square with .c at $1 + 0,0.5*square;line from $1 to last circle} define nodeupclash {circle rad 0.25*square with .c at $1 + 0.2,0.5*square;line from $1 to last circle} define nodedown {circle rad 0.25*square with .c at $1 - 0,0.5*square;line from $1 to last circle} define nodedownclash {circle rad 0.25*square with .c at $1 - 0.2,0.5*square;line from $1 to last circle} define nodeleft {circle rad 0.25*square with .c at $1 - 0.5*square,0;line from $1 to last circle} define nodeleftclash {circle rad 0.25*square with .c at $1 - 0.5*square,0.2;line from $1 to last circle} define noderight {circle rad 0.25*square with .c at $1 + 0.5*square,0;line from $1 to last circle} define noderightclash {circle rad 0.25*square with .c at $1 + 0.5*square,0.2;line from $1 to last circle} define nodex1 {circle rad 0.25*square with .c at 0.5 <NorthNStair.end, Northextra.start>} define nodelift {circle rad 0.25*square with .c at $1 - 0,((topstairdiff-((8/3)*square))+(0.5*square));line from $1 to last circle} define nodewc {circle rad 0.25*square with .c at $1 - 0,((topstairdiff-(MiddleFWC.nw.y - MiddleFWC.sw.y))+(0.5*square));line from $1 to last circle}

#testing macro
#A01:    room(1,1, "\fBA32\fP" "Freddy Crude") #with .sw at some wall
#        ltel("\s-2\&998227\s+2", at A01.sw)
#        rtel("\s-2\&998227\s+2", at A01.se)

##################################################################################

############
#North Rooms
############

#bottom row
B01:   box wid (wingwidth/3) ht 3*square "\fBB01\fP" with .sw at NorthSW
B02:    box wid (wingwidth/3) ht 3*square "\fBB02\fP" with .sw at B01.se
B03:    box wid (wingwidth/3) ht 3*square "\fBB03\fP" with .sw at B02.se

#right side
B04: box wid wingwidth ht 16*square "\fBB04\fP" with .sw at NorthSW + (0, 4*square)
B05:    box wid 4*square ht 2*square "\fBB05\fP" with .se at B04.ne
B06:    box wid 4*square ht 2*square "\fBB06\fP" with .se at B05.ne

#left side
B07: box invis wid (16/3)*square ht 3*square "\fBB07\fP" with .nw at NorthNW


#############
#Middle Rooms
#############

#bottom row, nodeup rooms
B30:    box wid 3*square ht 3*square "\fBB30\fP" with .sw at MiddleSW
B31:    box wid 3*square ht 3*square "\fBB31\fP" with .sw at B30.se
B32:    box wid 3*square ht 3*square "\fBB32\fP" with .sw at B31.se
B33:    box wid 3*square ht 3*square "\fBB33\fP" with .se at MiddleSE

#left side
B46: box wid 3*square ht 8*square "\fBB46\fP" with .nw at MiddleNW - (0, 4*square)
B47:    box wid 3*square ht 2*square "\fBB47\fP" with .nw at B46.sw
B48:    box wid 3*square ht 6*square "\fBB48\fP" with .nw at B47.sw
B49:    box wid 3*square ht 2*square "\fBB49\fP" with .nw at B48.sw
B50:    box wid 3*square ht 2*square "\fBB50\fP" with .nw at B49.sw

#middle column
B51: box wid 4*square ht 9*square "\fBB51\fP" with .sw at MiddleSW + (4*square, 4*square)
B52:    box wid 4*square ht 2*square "\fBB52\fP" with .sw at B51.nw
B53: box wid 4*square ht 8*square "\fBB53\fP" with .sw at B52.nw + (0, square)

#right side
B34: box wid 3*square ht 2*square "\fBB34\fP" with .se at MiddleSE + (0, 4*square)
B35:    box wid 3*square ht 2*square "\fBB35\fP" with .se at B34.ne
B36:    box wid 3*square ht 4*square "\fBB36\fP " with .se at B35.ne
B37:    box wid 3*square ht 2*square "\fBB37\fP" with .se at B36.ne
B38:    box wid 3*square ht 6*square "\fBB38\fP" with .se at B37.ne
B39:    box wid 3*square ht 4*square "\fBB39\fP" with .se at B38.ne

#top row
B40:    box invis wid (MiddleDis.ne.x - MiddleDis.nw.x) \
               ht (MiddleDis.nw.y - MiddleDis.sw.y) "\fBB40\fP Dis. WC" \
               with .nw at MiddleDis.nw
B41:    box invis wid (MiddleMWC.ne.x - MiddleMWC.nw.x) \
               ht (MiddleMWC.nw.y - MiddleMWC.sw.y) "\fBB41\fP" "Male WC" \
               with .nw at MiddleMWC.nw
B42: box wid 2*square ht (8/3)*square "\fBB42\fP" with .sw at MiddleLift.se B43: box wid 2*square ht (8/3)*square "\fBB43\fP" with .se at MiddleLift.sw
B44:    box invis wid (MiddleFWC.ne.x - MiddleFWC.nw.x) \
ht (MiddleFWC.nw.y - MiddleFWC.sw.y) "\fBB44\fP" "Female WC" \
               with .nw at MiddleFWC.nw
B45:    box invis wid (MiddleClean.ne.x - MiddleClean.nw.x) \
               ht (MiddleClean.nw.y - MiddleClean.sw.y) \
               "\fBB45\fP" \
               with .nw at MiddleClean.nw

############
#South Rooms
############

#bottom row
B70:    box wid (8/3)*square ht 3*square "\fBB70\fP" with .sw at SouthSW
B71:    box wid (8/3)*square ht 3*square "\fBB71\fP" with .sw at B70.se
B72:    box wid (8/3)*square ht 3*square "\fBB72\fP" with .sw at B71.se

#right side
B73: box wid 4*square ht 4*square "\fBB73\fP" with .se at SouthSE + (0, 4*square)
B74:    box wid 4*square ht 2*square "\fBB74\fP" with .se at B73.ne
B75:    box wid 4*square ht 14*square "\fBB75\fP" with .se at B74.ne

#top row
BS0:    box wid 2*square ht (5/3)*square with .sw at \
               SouthNW + (2*square,-3*square)
       line dotted from BS0.nw to BS0.se
       line dotted from BS0.ne to BS0.sw
B76:    box invis wid 4*square ht 3*square "\fBB76\fP" with .ne at SouthNE
       line from B76.sw to B76.se
B77:    box invis wid 2*square ht 3*square "\fBB77\fP" with .nw at SouthNW
       line from B77.sw to B77.se
       line down (4/3)*square from B77.ne + ((2/3)*square, 0)

#left side
B78: box wid 3*square ht 6*square "\fBB78\fP" with .nw at SouthNW - (0, 4*square)
B79:    box wid 3*square ht 4*square "\fBB79\fP" with .nw at B78.sw
B80:    box wid 3*square ht 4*square "\fBB80\fP" with .nw at B79.sw
B81:    box wid 3*square ht 2*square "\fBB81\fP" with .nw at B80.sw
B82:    box wid 3*square ht 2*square "\fBB82\fP" with .nw at B81.sw
B83:    box wid 3*square ht 2*square "\fBB83\fP" with .nw at B82.sw


################
#Crossroad nodes
################

CRS2A: circle rad 0.25*square "\fB1\fP" with .c at B06.nw + (-0.5*square,0.5*square) #child:"VB06ND,HB07ND" CRS2B: circle rad 0.25*square "\fB2\fP" with .c at B53.nw + (-0.5*square,0.5*square) #child:"HB44ND,HB43ND,VB46ND" CRS2C: circle rad 0.25*square "\fB3\fP" with .c at B53.ne + (0.5*square,0.5*square) #child:"HB42ND,HB41ND,VB39ND" CRS2D: circle rad 0.25*square "\fB4\fP" with .c at B52.nw + (-0.5*square,0.5*square) #child:"VB46ND,VB47ND,HB52ND" CRS2E: circle rad 0.25*square "\fB5\fP" with .c at B52.ne + (0.5*square,0.5*square) #child:"VB38ND,VB37ND,HB52ND" CRS2F: circle rad 0.25*square "\fB6\fP" with .c at B51.sw + (-0.5*square,-0.5*square) #child:"VB50ND,HB30ND,HB31ND" CRS2G: circle rad 0.25*square "\fB7\fP" with .c at B51.se + (0.5*square,-0.5*square) #child:"VB34ND,HB32ND,HB33ND" CRS2H: circle rad 0.25*square "\fB8\fP" with .c at B75.nw + (-0.5*square,0.5*square) #child:"HB77ND,HB76ND,VB78ND" CRS2I: circle rad 0.25*square "\fB9\fP" with .c at B73.sw + (-0.5*square,-0.5*square) #child:"VB83ND,HB70ND,HB71ND"

##############
#General nodes
##############

#bottom-n
B01ND:  nodeup(B01.n) #child:"HB04ND"
B02ND:  nodeupclash(B02.n) #child:"HB04ND,HB03ND"
B03ND:  nodeup(B03.n) #child:"HB02ND,HB30ND"
#right-n
B04ND:  nodedownclash(B04.s) #child:"HB02ND,HB01ND"
B05ND:  nodeleft(B05.w) #child:"VB06ND"
B06ND:  nodeleft(B06.w) #child:"VB05ND,VCRS2A"
#left-n
B07ND:  nodex1  #child:"HCRS2A,HSTLND"

#bottom-m
B30ND:  nodeup(B30.n) #child:"HB03ND,HCRS2F"
B31ND:  nodeup(B31.n) #child:"HCRS2F,HB32ND"
B32ND:  nodeup(B32.n) #child:"HB31ND,HCRS2G"
B33ND:  nodeup(B33.n) #child:"HCRS2G"
#left-m
B46ND:  noderight(B46.e) #child:"VCRS2B,VCRS2D"
B47ND:  noderight(B47.e) #child:"VCRS2D,VB48ND"
B48ND:  noderight(B48.e) #child:"VB47ND,VB49ND"
B49ND:  noderight(B49.e) #child:"VB48ND,VB50ND"
B50ND:  noderight(B50.e) #child:"VB49ND,VCRS2F"
#middle-m
B51ND:  noderight(B51.e) #child:"VB36ND,VB35ND"
B52ND:  nodeup(B52.n) #child:"HCRS2D,HCRS2E"
B53ND:  noderight(B53.e) #child:"VB39ND,VB38ND"
#right-m
B34ND:  nodeleft(B34.w) #child:"VB35ND,VCRS2G"
B35ND:  nodeleft(B35.w) #child:"VB51ND,VB34ND"
B36ND:  nodeleft(B36.w) #child:"VB37ND,VB51ND"
B37ND:  nodeleft(B37.w) #child:"VCRS2E,VB36ND"
B38ND:  nodeleft(B38.w) #child:"VB53ND,VCRS2E"
B39ND:  nodeleft(B39.w) #child:"VCRS2C,VB53ND"
#top-m
B40ND:  nodedown(B40.s)         #child:"HB41ND,HSTRND"
B41ND:  nodewc(B41.s)           #child:"HCRS2C,HB40ND"
B42ND:  nodelift(B42.s)         #child:"HCRS2C,HBLIND"
BLIND:  nodelift(MiddleLift.s)  #child:"HB43ND,HB42ND"
B43ND:  nodelift(B43.s)         #child:"HCRS2B,HBLIND"
B44ND:  nodewc(B44.s)           #child:"HB45ND,HCRS2B"
B45ND:  nodedown(B45.s)         #child:"HSTLND,HB44ND"

#stair nodes
STLND: nodedown(StairL.s) #child:"HB07ND,HB45ND,VSTLNA,VSTLNC"
STRND: nodedown(StairR.s) #child:"HB40ND,HB77ND,VSTRNA,VSTRNC"
#stair nodes for first floor
STLNA: nodedown(StairL.s)
STRNA: nodedown(StairR.s)
#stair nodes third floor
STLNC: nodedown(StairL.s)
STRNC: nodedown(StairR.s)


#bottom-s
B70ND:  nodeup(B70.n) #child:"HCRS2I"
B71ND:  nodeup(B71.n) #child:"HCRS2I,HB72ND"
B72ND:  nodeup(B72.n) #child:"HB71ND"
#right-s
B73ND:  nodeleft(B73.w) #child:"VB82ND,VB83ND"
B74ND:  nodeleftclash(B74.w) #child:"VB82ND,VB81ND"
B75ND:  nodeleft(B75.w) #child:"VB78ND,VB79ND"
#top-s
B76ND:  nodedown(B76.s) #child:"HCRS2H"
B77ND:  nodedown(B77.s) #child:"HSTRND,HCRS2H"
#left-s
B78ND:  noderight(B78.e) #child:"VCRS2H,VB75ND"
B79ND:  noderight(B79.e) #child:"VB75ND,VB80ND"
B80ND:  noderight(B80.e) #child:"VB79ND,VB81ND"
B81ND:  noderightclash(B81.e) #child:"VB80ND,VB74ND"
B82ND:  noderight(B82.e) #child:"VB74ND,VB73ND"
B83ND:  noderight(B83.e) #child:"VB73ND,VCRS2I"
#end
.PE

Attachment: floorB.pic
Description: image/pict


reply via email to

[Prev in Thread] Current Thread [Next in Thread]