Hi Jon,

I’ve checked Alex’s code on my picoLisp fork only.
What is the value of *OS on pil21 ?
It seems, that it is NOT “Darwin”, because *GlutLib is “libglut.so.3” instead 
of “GLUT.framework/GLUT"

Regards,
Andras

> On 2020. Nov 7., at 10:56, Jon Kleiser <jon.klei...@icloud.com> wrote:
> 
> Hi Andras,
> 
> I have now modified my openGl.l the same way, but I still get this:
> 
> [misc/cube.l:13] !? (native "libglut.so.3" "glutInit" NIL '(NIL (8) . 0))
> "libglut.so.3" -- [DLL] dlopen(libglut.so.3, 9): image not found
> openGl? 
> 
> Am I missing some libglut.so? I have macOS Mojave 10.14.6.
> 
> /Jon
> 
>> On 5 Nov 2020, at 19:42, Andras Pahi <pa...@t-online.hu 
>> <mailto:pa...@t-online.hu>> wrote:
>> 
>> Hi all,
>> 
>> I’ve modified openGl.l as follows:
>> 
>> (if (= *OS "Darwin")
>>    (default
>>       *GluLib "OpenGL.framework/OpenGL"
>>       *GlutLib "GLUT.framework/GLUT"
>>       *GlutCheckEvent "glutCheckLoop" )
>>    (default
>>       *GluLib "libGLU.so.1"
>>       *GlutLib "libglut.so.3"
>>       *GlutCheckEvent "glutMainLoopEvent" ) )
>> 
>> ...
>> (de glutMainLoopEvent ()
>>    (native `*GlutLib `*GlutCheckEvent) )
>> 
>> Regards,
>> Andras
>> 
>>> On 2020. Nov 5., at 19:35, Andras Pahi <pa...@t-online.hu 
>>> <mailto:pa...@t-online.hu>> wrote:
>>> 
>>> Hi all,
>>> 
>>> You need to change glutMainLoopEvent to glutCheckLoop on MacOS.
>>> Everything works as expected on my fork (not pil21, sorry).
>>> 
>>> I have attached the screenshots.
>>> 
>>> Regards,
>>> Andras
>>> 
>>> <cube.png><pyramids.png><sphere.png>
>>> 
>>> 
>>>> On 2020. Nov 5., at 19:00, Alexander Burger <a...@software-lab.de 
>>>> <mailto:a...@software-lab.de>> wrote:
>>>> 
>>>> On Thu, Nov 05, 2020 at 07:50:01PM +0200, Mike wrote:
>>>>> 
>>>>>> I hear from Mike that "Darwin" is not correct for pil21.
>>>>>> 
>>>>>> "Macos"?
>>>>> 
>>>>> This is not issue anymore, I have manually disabled this if to use 
>>>>> correct definitions. 
>>>> 
>>>> Right. But it is needed so that it also runs on other systems.
>>>> The else-bodo of the 'if' works for me under Debian.
>>>> 
>>>> ☺/ A!ex
>>>> 
>>>> -- 
>>>> UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe 
>>>> <mailto:picolisp@software-lab.de?subject=Unsubscribe>
>>> 
>> 
> 

Reply via email to