
                     
                        PASCAL MT+

                   ..,  1992



                         1. 
                         -------------

          
PASCAL MT+.      -
,    ,   , 
,   ..
           -
 OSDOS       ORION-
SOFT.

                       2.  
                       -----------------

           -
   "-128":

   -   384  256 ;
   -  - ;
   -  4-  ;
   -   16-      -
     ;
   -  :
     0C000H-0EFFFH -  0,
      8000 -0AFFFH -  1;
   - /  ;
   -     2-  4- .

            
0F100H    0F1FFH.       
.
      ,   .  -
   ,        
.
         PASCAL MT+   
    OSDOS.
          (,  -
 OSDOS V2.41)       0,  
   1    .
          (OSDOS V2.61   V3.60)
   1,       0  
   ( 0      
 ).
        1  ,   
       7FFFH.


                     3.  
                     --------------------

         PGRL.ERL,  
       PGRL.MAC  -
  ASMMT.        
:

    INITGR  -          
    CLOSEG  -          
    CLEARD  -        
    SETVIS  -         
    SETACT  -         
    ONVIDE  -        
    OFFVID  -        
    SETCOL  -         
    GETCOL  -         
    LINE    -        
    CIRCLE  -        
    RECTAN  -        
    BAR     -         
    PUTPIX  -        
    GETPIX  -         
    SETPAL  -        
    GETPAL  -        
    FLOODF  -        
    SETTEX  -         
    OUTTEX  -         
    GETIMA  -        
    PUTIMA  -        
    IMAGES  -           
    RND     -         
    IGETCH  -         



                4.   
                ------------------------------

             
  .


4.1 K:=INITGR(MODE)     -      
-------------------
	
:   MODE=0  -        0: - 
        MODE=1  -        1: 4-  
        MODE=2  -        2: 16-  

:  K=0     -       ,
           -         MODE

              INITGR 
 1,    -  0.


4.2 CLOSEG              -            
----------                        0F100H-
                                0F1FFH.

          0  -
   .    .


4.3. SETVIS(N)          -         .
--------------

:   N=0     C000-EFFF
        N=1     8000-AFFF


4.4 SETACT(N)           -         .
-------------

:   N=0     C000-EFFF
        N=1     8000-AFFF


4.5 CLEARD              -        
----------


4.6 ONVIDE              -        
----------                      


4.7 OFFVID              -        
----------                      


4.8 SETCOL(C)           -         .
-------------

:   C -  :
          0:   0-
			1-( )

          1:   0-
			1-
			2-
			3-

          2:   0-  
			1-   (. SETPAL)


4.9 K:=GETCOL   -         
-------------           (. SETCOL)


4.10 SETPAL(IPAL)       -        
-----------------

:   IPAL  -  :

          0,1:        IPAL=0   0 (.)
				IPAL=1	 1

          2      - 
,       .

	-------------------------------------------------
	!     !     !     !     !     !     !     !     !
	!  I  !  R  !  G  !  B  !  I  !  R  !  G  !  B  !
	!     !     !     !     !     !     !     !     !
        -------------------------------------------------
           7     6     5     4     3     2     1     0

          7-4   ,     3-0 - 
.


4.11 IPAL:=GETPAL       -        
-----------------               (. SETPAL)


4.12 PUTPIX(X,Y,ICOL)   -        
---------------------

:   X       -        X (0-383)
	Y	-	 Y (0-255)
	ICOL	-	

	 0:	ICOL= 0  1

	 1:	ICOL= 0  3

         2:           ICOL  
			 0  1 ,   -
			  2 (. SETPAL)


4.13 ICOL:=GETPIX(X,Y)  -         .
----------------------          (. PUTPIX)


4.14 LINE(X1,Y1,X2,Y2)  -        
----------------------           

:   X1,Y1   -         
        X2,Y2   -         


4.15 CIRCLE(X,Y,R)      -        
------------------               

:   X,Y     -         
        R       -        


4.16 RECTAN(X1,Y1,X2,Y2)        -        -
------------------------                  

:   X1,Y1   -           -
			.
        X2,Y2   -          
			


4.17 BAR(X1,Y1,X2,Y2)             -
---------------------             
				(. RECTAN)


4.18 SETTEX(FONT,DIR,SIZE)                
--------------------------

:   FONT=0  -7  0
        FONT=1  -7  1
        FONT=2  -7  2
        FONT=3  -8

        DIR =0    
        DIR =1   

        SIZE       (1..8)


4.19 OUTTEX(X,Y,M)                        -
------------------                       , 
					,   
:   X -   X                 X,Y
        Y -   Y
        M -    STRING


4.20 FLOODF(X,Y,BORD,COL)       -        
-------------------------

:   X,Y     -         , 
			 
        BORD    -         
        COL              


4.21  GETIMA(X1,Y1,X2,Y2,M)     -        
---------------------------                

:   X1,Y1   -          
        X2,Y2   -          
        M       -        , 
			 


4.22 PUTIMA(X,Y,M)              -        
------------------                         
                                        

:   X,Y     -          
        M       -        ,
			 
                         


4.23 S:=IMAGES(X1,Y1,X2,Y2)               
---------------------------              , 
					  

:   X1,Y1   -          
        X2,Y2   -          

:  S       -        


4.24 N:=RND     -         
-----------

:  N       -          0  32767


4.25 K:=IGETCH  -         
--------------

:  K       -         .



             5.   
             -------------------------------------

          ,  
         .    :
GRDEMO.PAS.
       :

        MTPLUS GRDEMO <BK>

          GRDEMO.ERL,  -
     PGRL.ERL   -
 PASLIB.ERL:

        LINKMT GRDEMO,PGRL,PASLIB /S  <BK>

        LINKMT   GRDEMO.COM,
  :

        GRDEMO <BK>

 

    08.02.96                 .

