home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 March / Chip_1998-03_cd.bin / tema / MINICAD / MC7DEMO / MINICAD.1 / GNS_ELEM.MPC < prev    next >
Text File  |  1997-04-30  |  641b  |  34 lines
  1. PROCEDURE ToggleLayerVis;
  2. CONST
  3. layerNameSuffix='Set';
  4. VAR
  5. han:HANDLE;
  6. layerCount,currentCount,layerNamePresence:INTEGER;
  7. layerName,currentLayer:STRING;
  8. vis:REAL;
  9. BEGIN
  10. han:=ACTLAYER;
  11. currentLayer:= GetLName(han);
  12. han:=FLAYER;
  13. layerCount:= NUMLAYERS;
  14. currentCount:=1;
  15. WHILE (layerCount+1>currentCount) DO
  16. BEGIN
  17. layerName:=GetLName(han);
  18. layerNamePresence:=Pos(layerNameSuffix,layerName);
  19.  
  20. IF (layerNamePresence<>0) THEN
  21.  BEGIN
  22.         LAYER(LayerName);
  23.         vis:= GetLVis(han);
  24.         IF (vis = 2) THEN SHOWLAYER;
  25.         IF (vis = 0) THEN GRAYLAYER;
  26.     END;
  27.  
  28. han:=NEXTLAYER(han);
  29. currentCount:=currentCount+1;
  30. END;
  31. LAYER(currentLayer);
  32. END;
  33. RUN(ToggleLayerVis);
  34.