Hello, finally, I could display a triangle using OpenGL 3.3. I translated the code from the C tutorial at: https://learnopengl.com/#!Getting-started/Hello-Triangle.
Thanks again for your help, Alex. Unfortunately I'm running into difficulties again because after translating the next tutorial, nothing is rendered. Maybe I'll post a question about it later. I've created a public Bitbucket repository with my work so far, including some examples. https://bitbucket.org/alfonsovillen/picolispffi I don't know if someone will be interested in it, but I'm having fun doing it. Bye, Alfonso V. 2017-10-21 15:34 GMT+02:00 Alexander Burger <a...@software-lab.de>: > On Sat, Oct 21, 2017 at 02:38:18PM +0200, Alfonso Villén wrote: > > The function arguments don't work as you expected. That C function needs > > some weird information such as an array of integers giving the length of > > the strings in the other array if those don't end with null bytes... > > Ah, I see. Didn't know that. Then it is probably something like: > > > (de glShaderSource (Shader Strings) > (let > (Lst > (mapcar > '((Str) (cons (native "@" "strdup" 'N Str) 8)) > Strings ) > Len (length Strings) ) > (native `*GlutLib "glShaderSource" NIL > Shader > Len > (cons NIL (list (* 8 Len)) Lst) > (cons NIL (list (* 8 Len)) > (mapcar > '((Str) (- (length Str))) > Strings ) ) ) > (mapc '((X) (native "@" "free" NIL (car X))) Lst) ) ) > > > > I'm also having problems with other function, and in all of them there > are > > pointer arguments involved. But I hope I'll be able to figure the > solution > > myself. > > > > When I get some examples working I'd like to share the code with you all. > > Great, thanks! Perhaps we can add them to @lib/openGl.l then. > > ♪♫ Alex > > -- > UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe >