Hi,

Since I can now run OpenGL stuff using emu64 on Mac, I can continue some work to make OpenGl.l a little more complete (lots missing). The problem I have right now, is with glutBitmapCharacter and glutStrokeCharacter; they give me "Segmentation fault", and I suspect they'll fail on Linux as well. If you use my "extended" OpenGl.l (goes into lib/), attached, and try the code below, you'll see the problem.
This requires emu64 or pil64.

/Jon

# 18sep07abu, 07nov12jk
# (c) Software Lab. Alexander Burger

(load "@lib/openGl.l")

(glutInit)
(glutInitDisplayMode (| GLUT_SINGLE GLUT_RGB))
(glutInitWindowSize 400 400)
(glutCreateWindow "Test Window")

(glClearColor 0.5 0.5 0.5 0.0)
(glMatrixMode GL_PROJECTION)
(glLoadIdentity)
(glOrtho 0.0 1.0 0.0 1.0 -1.0 1.0)

(setq *M 0)
(setq *CL '((1.0 0.5 0.5) (0 1.0 0) (0 0 1.0) (0.8 0.8 0.2)))

(displayPrg
   (glClear GL_COLOR_BUFFER_BIT)
   (glColor3f (caar *CL) (cadar *CL) (caddr (car *CL)))
   (glBegin GL_POLYGON)
   (glVertex3f 0.25 0.25 0.0)
   (glVertex3f 0.75 0.25 0.0)
   (glVertex3f 0.75 0.75 0.0)
   (glVertex3f 0.25 0.75 0.0)
   (glEnd)

   (glRasterPos2f 0 0)
   # http://www.opengl.org/resources/libraries/glut/spec3/node76.html
   (glutBitmapCharacter 2 (char "A"))
   # http://www.opengl.org/resources/libraries/glut/spec3/node78.html
   #(glutStrokeCharacter 2 (char "A"))

   (glFlush) )

(mouseFunc '((Btn State X Y)
    (rot *CL)
    (println "mouseFunc" (inc '*M))
    (glutPostRedisplay) ) )

(glutMainLoop)

# vi:et:ts=3:sw=3


--------------090904040509000408010403
Content-Type: application/zip;
name="openGl.l.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="openGl.l.zip"

UEsDBBQACAAIAFhtZ0EAAAAAAAAAAAAAAAAIABAAb3BlbkdsLmxVWAwA0WabUEhXmlD1ARQA
tVpZc+JIEn4e/4pa+8FiYttGmLbdEzERK0BgbQuJQaLb3S9eAQXWWEisDh/z6zfrkFSlAzwz
vUQ4bFJffnlUVVZWyWdI7f2eharqLbOTM9S9CaNnkDzB38qqg5xok754MUamt7xAWoBfvXCN
YzTI4i2OT07Ozs6QvcfhxESBv4y9+A35YYrjjbfCCB6eKEHkrdHpv+Dp5c5LHy+C087JieJv
kPIr+tl20OnIi1/8EKQ/KWu88bIgPfnpp58nQWb6S3R66bwlKd5dmoz9chx7O/wSxU/JJbN7
scklXHDK1dNj+hNz4Qra5OspanMjS+JLEgP8APAiiSpmhOdbEBIA6gAb5HEW4w+rKEzwGm38
130ECUJevM12OEyTEyXB6X9PEEKn4yBVT5HSRRfog3rR7eTCXpPwqknYrwlHyyDnFGW9BtlV
g6zfIPvYILsWZCzoReoHfupjCHCNkf+MVylSzCSlKsrO26+8GJ0ritVBygf0od/71P90fdP7
dI2sTgcRIOEhuptGXfInfBoZlJ8vUU/t3/Rvr677N8iibnU6XAWI2MjQyUsHzg9XQbbGMAUu
t8HFI5245OEQRi31YLhGeOOHEA58Zw9hUP0dCJ5ZgBt0PjEfZrZhuQ7KP8ojfkWnXficgvEC
ZRqWXoJKlFpDPZi2PaugenWU486NmYy6klDwXLMmZm61QPUbUZyvQH1sRo01S+S6llC/LbRR
U4w3NVST97cSamab3ya2VeP6RFAwElMvjf1XNI3WuFSaakB7/zC1R7qgNNDkoSCPzS+G/lWk
Vm8qAzab2//Wh67BfShQ8oC5+r27mOuym4DqcTdnZN0n5C/TD8VZw8ZwatvuXW3idAe9bqEf
vG1h/pWK47ltuUj8cMV+ZWSHCxPQ2lCvAqmFfp9bGPnJPvDewL+EOTrC+/QRLbPNBkp96a/u
OKjJLPn0KlkZ6TP3DnLjuE2mb1Ru2vS3j6kfbsWsTO5cw5o0GRp8rK4owHZRk1P96upzZjqk
Q5s3YNVeZXU5d4ZFFqvTgL2uBDqzHaOYIjVeeT1q04GhW+6DZo0eRsZ4vHB0gVf2gQ4yRQ60
4efqOMsrZWxq8nwQfBhV8yBOuBpWjm1om/acLCkdFr9ZHYsbPoaLBPqCVeDv9zCQCGYSmeUg
11arbJcFHqme+WQi4mD/6KEUJ3TcQTAIcLiW5sDA1K1RczzdgV4Zq/nwQTNnd1oD9qqSUxsW
3NSwFo6oVWCveDxzTDsdWlfg6xjj9dJbPZG/HRzAngTx0AcRdd+Mtv4KeiEas5PicOUHNCwa
cfJPNPNfcYBGsQfdzvZyjr01D9zY7QNMmgGWooBsLJRlgtlv/dkLMi+NYvrtjtaRpvLxAPPV
FQMffpQDt4yhsBLlQVeLSuWs/CSJYrSMXmnhoX6TNKBL5MZemPARdPFrmkFrCBvynofCdv03
6nQcc4e3wSxLHi9n0V5LoVQv0dIXAxgu5nOyGgaGWxs59qmuNKOKruAb9sgKXMb3m/abA/40
7k+wkRmzmclNiXi1sp0Y9zrbegQTIr7XUN2gEkoOifi+jB/bk1q4Ev6221CiB4vxWJ8XigJe
rVQObThcTA/ge9VK4+rW0DBlDQHfr+DJfjyz525bvLcVvDvXLGdsz6eiQolXqzuAbmkDszoj
SnyvimfVrzXe2g5z1zA9BfxtzZ8vmtmOVxv6R+cAf6+G541Jy3zu1/DO0HAce96Cv63hNWgu
NBfarQFRqfaYY/LJOzU/WeGAbAxRxs4F22AYYC8eRgHUG2UOJ6RJjHEIe0GG2Q7Ben44I+Xn
IwLKj0UMnJ+HqFJ+DhKUQ4/06eg/5WlNNHuKLMPMyTkvJ2RUxUGEayFl6iVPR6gZKwWW6nSH
G2fhCinO2FtBQUcj9rudrdBhjFW9kpx0lV/9NTRsCv1VS5wgbTJU6IsJEfj10FsGGClWtmsn
YSDGQIClOjSX79DnqCaCcQCbCFLadSlA9JhslEhx4agNSSD7V7sugTKjIpydZFkXPCi64Hwe
MLlCfwnJZiduQdo6RyiGZ5tqiekiz9hUOZywHCenrNJ1DYqui+3fUbyjD7gxdoKiO7xyOE8l
kk/wPE2MyI7TxwiO6niTojlp6dEgStNoh9xojyyydsZeXMsVhefXEkwtv5Dg6vldBKHJ7yAo
XX75UNA2OU29EvOc2+JGODnnZYxCUF98/LKPYphK9+gbW0XoDhM3203mOsxqTa8kJ50RP8Ae
mNolSnQMGqp3qOYgUdOMvLWxho4TerVDyiJO1J9H0KtC+Vc0Gtv3Wq3RihJ9X5Tnb0Vt/t5u
kTP/maLsrLyA+NLsyX3hybfCkwP2GVm7ecEuXUoBy8MPsV0SHrHfdFRnxwpESgG9psq3HLz1
w2OrmoIaF7Qerg/ND3gsrRQcp/i1x/JxKBsHFg6naMhAzdDVj0p8TveuYbdI8Qx+mO2c7l22
acNCTMud0p/skQ5sS4z//b70a778f7s2ZvN91eEMsXFFWhx7b0n1molUjkdvjcmMD47ssiWw
qTNhrM+w79G9axZ6O4xmXuztkkPtFlVifIIiv6RWyAsD+kxRrztIYRfonLSDBOtQ3XHsewGM
xJi8dBHM10ZBkLbs7oyKeSXQ1brBAvpcN5t0EDpDQy8IEnTuP5+zN0IhfH/7x1HbeUpK0paM
bFozQmdJzsfdO1wAJQ3BvtAFzr0EHqNNUV/zrZDKZ1Hyt8qewNJW+YpLJX7V0nD7It8T8Xup
4q4KeVDMy1usttcfGX//wcLLRqCe4t8ybx370IySP+ph8ChkMAuEKpRjk8HO9cRokBGGkFE7
I3l1An+FE2RG0T6pNYgMmHdtVOGAD2CgNF3p+CQzglcWfilCbKcuUafo3BL1aYvZG7W0vn+v
4233h1s92tqKns5wnOzJhAAyZRw9vyGNfkffaUP9valBp7CcmcNzC9/LPpx0do2NeO6vYPt9
PjdO0Q1sH+QV60OSrvN3dcgBXrLan/AbWsGqLe8XF+7DZ/3bw1glRUTt1OQ9Iu/V5VdEflWX
94m8X5d/JPKPdfk1kV/X5TdEflOX3xL5bV3+icg/1eUqefGhdhsekIjVhohVErJaD9nUx8WN
j9qtMy5m5X2Q2q0Tz8lFZfG8zj+yv1qlfj21M22i50bUbj3F9DknUbv1VN/ZU73kr6dcfJmg
duupNyxHn7v581t2ZRVlCUYJOZSgdfkSWFQlaXsYLFyXv/yREzc1RiNy25g/l9NGUyYo96Tu
fkdO5C1W55NBORrNb5oZSjuOMqyRfl9DqRWUY5D3vse4RvZiUEf1Kih6h1yz2K+ixPc5zW+H
iUVyf11FqVW/+C20jOpVUdOF6RqONp2Zeom6beCa67ZsUa1lwlxMDUuzhuILaH43TuuaxSpk
0VHwSmaQwYY+6A92dbOpHOiylAAOHcoYghXYc4U2TLcddAHzUtwHKOirH66jF2g76PziF4dH
LzeadJm5lksOUcHx/8B/xRDRe4cRvnTYXZZ1jFpA88a++JedCPqEBAXQKBRDUBiaen5IWojD
o5Cj8vaNxQH9Wuht6eu+hrEdxhgqDUcqFnS/hyyIaO4/0ZCuCMh/HoWw55J/PqqZg9FL4WTG
y83BaCSo1FGkzou35285D3MIwDwprL6uspi8cBSa6zNkP+OYeJWkoEGhOMz4N2J5RYOnQmWc
hcfzRKAsS0oAYaBzgYEQSDFp6zV5oIdp/MYGAn3xgkNGRI1yMKiWRJym3uqRuT3IoNc76HmJ
ZpRcg+VuEkRLaHlWcLAiLX1lfFN/h2N2gzxN8IqEeCwEN1fhd0FEjeeqZCOpKqLKZ/UH0tf5
G2ifW7yBvmwZeTF/+3FkvD4LYGnEJBZpzBLW/72L3imxErvIIZHHOHn09vhd5PMSK5GLHBI5
X1KzeAtVZ3uAmS/oGrNAUJ6R4VuntLEjq+xd7k9zpGSi1Jdc30VkgN/Jm0MrxAVDwUwOuqTd
ggMIuauhx9YYp7GP4Xgr14hxBFW0LAnE0MBP4UQ8fPRib0UOlgrFFN8P+VhR5fcAsrpU99I4
esJ/yVRFtdUU+R+QaIdJEapX769+jIfZEjY6sjnWTm2lsNmHXL3lDRQ4GQX++m8YKPRbLRAX
nP0jjsHE3Fv7WZKf0GEKrJ7qNwEMdCwqRikdMWXaWpQ/2AmB84gX5B7H20cpzHDy30Zkvksz
fEL2EHoOkMRf/DWOSF0i3ZT0hF5lwTSWpeTNe1GD6Yr6PXpLUl+q0zlOkjz7v+D0lzT59eqX
5OXXq5P/AVBLBwiCJ8jkeQwAADAuAABQSwMECgAAAAAAK0hoQQAAAAAAAAAAAAAAAAkAEABf
X01BQ09TWC9VWAwA0WabUNFmm1D1ARQAUEsDBBQACAAIAFhtZ0EAAAAAAAAAAAAAAAATABAA
X19NQUNPU1gvLl9vcGVuR2wubFVYDADRZptQSFeaUPUBFABjYBVjZ2BiYPBNTFbwD1aIUIAC
kBgDJxAbAXElEIP4q4GYIcQ1IoQBL3AMCQliYFwoAtUxB4j50ZQwIsTFk/Nz9RILCnJS9UJS
K0pc85LzUzLz0oGSoSFuuhbWhsYmRobmlhYmAFBLBwhRVfQ0ZQAAAKsAAABQSwECFQMUAAgA
CABYbWdBgifI5HkMAAAwLgAACAAMAAAAAAAAAABApIEAAAAAb3BlbkdsLmxVWAgA0WabUEhX
mlBQSwECFQMKAAAAAAArSGhBAAAAAAAAAAAAAAAACQAMAAAAAAAAAABA/UG/DAAAX19NQUNP
U1gvVVgIANFmm1DRZptQUEsBAhUDFAAIAAgAWG1nQVFV9DRlAAAAqwAAABMADAAAAAAAAAAA
QKSB9gwAAF9fTUFDT1NYLy5fb3BlbkdsLmxVWAgA0WabUEhXmlBQSwUGAAAAAAMAAwDSAAAA
rA0AAAAA
--------------090904040509000408010403--
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe

Reply via email to