Module 02.2.3 Results 3d. Script

PROCEDURE rrectangles;

VAR
   objectHand, recordHand, wallHand   :   HANDLE;
   objectName   :    STRING;
   col1      :   INTEGER; 


BEGIN;

IF GetCustomObjectInfo(objectName, objectHand, recordHand, wallHand) THEN BEGIN   
   SetObjectVariableBoolean (objectHand,800,TRUE);       
END;


col1 := PVALUE * 32767;
SetFillBack(objectHand,col1,col1,col1);
SetPenFore(objectHand,col1,col1,col1);

CASE col1 OF

0..20000 : BeginMXtrd(0,21); 
20001..25000 : BeginMXtrd(0,18);
25001..28000 : BeginMXtrd(0,15);
28001..29000 : BeginMXtrd(0,12);
29001..32767 : BeginMxtrd(0,9);

OTHERWISE Message('no example');

END;

rrect(0,0,7,7,4.5,2.5);
rrect(3,3,7,7,1.5,0.5);
rrect(0,0,3,3,2.5,1.5);
rrect(1,1,2,2,0.5,0.5);

EndMXtrd;

END;
run(rrectangles);

-- NDSClaudiaFuhr - 21 Dec 2005