GRAPHREP layer:-3
SHADOW off

#--------------- Define and Call Parameters--------------

AVAL n_TypeSize:"TypeSize"
SET t: (PT VAL n_TypeSize)

AVAL n_MAreaSize:"ModelingAreaSize"
SET n_MA:(CM VAL n_MAreaSize)

AVAL n_CAreaSize:"CommentAreaSize"
SET n_CA: (CM VAL n_CAreaSize)

AVAL s_Comment_Content: "Comment"
SET s_Comment:(s_Comment_Content)

AVAL s_x_TB_Coor:"xCoorTextBox"
AVAL s_y_TB_Coor:"yCoorTextBox"

AVAL s_Com: "Comment Mode"

AVAL name: "Name"
	
#----------------Write model name as header at the left upper corner--------------
	FONT h:(t) bold
	FILL color:white
	TEXTBOX (name) x:1cm y:0.2cm
	SET n_HeaderTBx1:(textx1-0.1cm)
	SET n_HeaderTBy1: (texty1)
	SET n_HeaderTBy2: (texty2)
	RECTANGLE x:(n_HeaderTBx1) y:(n_HeaderTBy1-0.1cm) w:(textx2-n_HeaderTBx1+0.5cm) h:(n_HeaderTBy2-n_HeaderTBy1+0.2cm)
	TEXT (name) x:1cm y:0.2cm

#----------------Define HOTSPOT to switch to comment mode and back---------------
	FONT h:8pt
	RECTANGLE x:(n_MA+n_CA-1.3cm) y:0.2cm w:2.2cm h:0.3cm 
	TEXT "Comment Mode" x:(n_MA+n_CA-1.2cm) y:0.2cm w:1cm h:0.4cm
	HOTSPOT "Comment Mode" x:(n_MA+n_CA-1.3cm) y:0.2cm w:2.2cm h:0.3cm
	
IF (s_Com = "Yes")

{  
#-----------------------Comment Area-----------------------------
	FONT h:(t-8pt) 
	FILL color:gray	
	RECTANGLE x:(n_HeaderTBx1+n_MA) y:(n_HeaderTBy2-n_HeaderTBy1+1cm) w:(n_CA) h:(h)
			TEXT "Comment Area" line-break:rigorous x:(n_HeaderTBx1 + n_MA + n_CA/2) y:(2cm) w:c:(n_CA)

#----------------------Modeling Area-----------------------------			
	FILL color:whitesmoke
	RECTANGLE x:(n_HeaderTBx1) y:(n_HeaderTBy2-n_HeaderTBy1+1cm) w:(n_MA) h:(h)
			TEXT "Modeling Area" line-break:rigorous x:(n_HeaderTBx1 +(n_MA) / 2) y:(2cm) w:c:(n_MA)
	
	
  }