CListHW2-Sec1.txt

!***********************
! PROBLEM 2: SECTION 1 *
!***********************

/CLEAR, START, NEW
/CWD,'E:\Homework\HW2\Part1' 
/EFACET,4
/GFILE,2400
/PLOPTS,DATE,0   
/TITLE, HOMERWORK 2 SECT_1   
! >>> PARAMETRI SECTION 1 <<<
*SET, MAX_WIDTH, 30
*SET, MIN_WIDTH, 20
*SET, HEIGHT, 40
*SET, NDIV, 16

! >>>> PRE PROCESS<<<<<
/PREP7
ET,1,PLANE82

K,1,0,0,0
K,2,MIN_WIDTH,0,0
K,3,MIN_WIDTH+(MAX_WIDTH-MIN_WIDTH)/2,HEIGHT,0
K,4,-(MAX_WIDTH-MIN_WIDTH)/2,HEIGHT,0
/RGB,INDEX,100,100,100, 0   
/RGB,INDEX, 80, 80, 80,13   
/RGB,INDEX, 60, 60, 60,14   
/RGB,INDEX, 0, 0, 0,15   
/REPLOT
/IMAGE, SAVE, KEYPOINT-SEC1, bmp
/RGB,INDEX, 0, 0, 0, 0  
/RGB,INDEX, 60, 60, 60,13   
/RGB,INDEX, 80, 80, 80,14   
/RGB,INDEX,100,100,100,15 

FLST,2,4,3  
FITEM,2,1   
FITEM,2,2   
FITEM,2,3   
FITEM,2,4   
A,P51X
/RGB,INDEX,100,100,100, 0   
/RGB,INDEX, 80, 80, 80,13   
/RGB,INDEX, 60, 60, 60,14   
/RGB,INDEX, 0, 0, 0,15   
/REPLOT
/IMAGE, SAVE, AREA-SEC1, bmp
/RGB,INDEX, 0, 0, 0, 0  
/RGB,INDEX, 60, 60, 60,13   
/RGB,INDEX, 80, 80, 80,14   
/RGB,INDEX,100,100,100,15 

! >>>>>MESH AND SAVE<<<<<<
LESIZE,ALL,,,NDIV
MSHAPE,0,2D
AMESH,ALL
NUMMRG,ALL
SECWRITE,SECT_1,SECT,,PLANE82 
/RGB,INDEX,100,100,100, 0   
/RGB,INDEX, 80, 80, 80,13   
/RGB,INDEX, 60, 60, 60,14   
/RGB,INDEX, 0, 0, 0,15   
/REPLOT
/IMAGE, SAVE, MESH-SEC1, bmp
/RGB,INDEX, 0, 0, 0, 0  
/RGB,INDEX, 60, 60, 60,13   
/RGB,INDEX, 80, 80, 80,14   
/RGB,INDEX,100,100,100,15 
SAVE
FINI