.MCALL .MODULE .MODULE GSPMCI,VERSION=30,COMMENT= .ENABLE LC .NLIST CND ;* ;************************************************************************ ;*.PAGE * ;*.ST SET POLYMARKER COLOUR INDEX * ;*.X SET * ;*.X POLYMARKER COLOUR INDEX * ;*.X GSPMCI * ;*.LIT * ;************************************************************************ ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GSPMCI (COLI) * ;* * ;* Input parameters: * ;* INTEGER COLI polymarker colour index * ;* * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- .LIBRARY /GKS.MLB/ .MCALL $GKS $GKS .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GSPMCI::MOV @2(R5),GS.PCI ; Set the Current PolyMarker Color Index ; in the GKS State List. RTS PC ; Return. .END