/* * Scol Voyager * * Author : The Scol Team : http://www.scolring.org/ * * This file is a part of the Scol Voyager * * This program is free software; you can redistribute it and/or modify it under * the terms of the GNU Lesser General Public License as published by the Free Software * Foundation; either version 2 of the License, or (at your option) any later * version. * * This program is distributed in the hope that it will be useful, but WITHOUT * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS * FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details. * * You should have received a copy of the GNU Lesser General Public License along with * this program; if not, write to the Free Software Foundation, Inc., 59 Temple * Place - Suite 330, Boston, MA 02111-1307, USA, or go to * http://www.gnu.org/copyleft/lesser.txt * * For others informations, please contact us from http://www.scolring.org/ * */ fun getSO3about ()= SO3GetAPIVersion;; fun getSO3AboutInfo ()= SO3GetGeneralInfo;; fun getSO3AboutRendering ()= getInfo strextr _loadusmini nil "SO3Renderer";; fun getSO3AboutMultiSampling ()= let getSO3AboutRendering -> r in let SO3GetMultisamplingMode if ((!strcmp r "DirectX") || (!strcmp r "DirectX9")) then SO3_DIRECTX9_RENDERER else if !strcmp r "DirectX11" then SO3_DIRECTX11_RENDERER else SO3_OPENGL_RENDERER -> l in let "" -> s in ( while l != nil do ( set s = strcatn s :: " " :: (hd l) :: nil; set l = tl l ); s );; fun getSO3AboutQuadBuffer ()= SO3GetQuadBufferEnable;; fun getSO3AboutRender ()= SO3GetRenderInfo;;