.MCALL .MODULE .MODULE GSCR,RELEASE=V00,VERSION=30,COMMENT= .ENABLE LC .NLIST CND ;+ ;************************************************************************ ;*.ST SET COLOUR REPRESENTATION * ;*.PAGE * ;*.X COLOUR REPRESENTATION * ;*.X GSCR * ;*.LIT * ;************************************************************************ ;* SET COLOUR REPRESENTATION GKOP,WSOP,WSAC,SGOP Lma * ;* * ;* FORTRAN calling sequence: * ;* SUBROUTINE GSCR (WKID, CI, CR, CG, CB) * ;* * ;* Input parameters: * ;* INTEGER WKID workstation identifier * ;* INTEGER CI colour index * ;* REAL CR, CG, CB colour intensities (red/green/blue) * ;* * ;* Errors: * ;* * ;************************************************************************ ;*.ELI * ;************************************************************************ ;- .LIBRARY /GKS.MLB/ .MCALL $GKS $GKS .LIBRARY /CGI.MLB/ .MCALL $CGI $CGI .LIBRARY /UTL.MLB/ .MCALL $UTL $UTL .LIBRARY /ERR.MLB/ .MCALL $ERR $ERR .NLIST .INCLUDE /GOPSTA.INC/ .INCLUDE /CGIVTD.INC/ .INCLUDE /GERROR.INC/ .LIST .PSECT G$$COD,RW,I,LCL,REL,CON GSCR:: MOV @2(R5),R0 ; Get the workstation number (1 - N). JSR PC,G$GWSL ; Get a pointer to the WSSL in R0. $VCT @2(R5),4(R5),6(R5),10(R5),12(R5) RTS PC .END