[HOpenGL] Re: ANNOUNCE: "VOP" - POV-Ray Previewer using HOpenGL

[Sven Panne]

This is a multi-part message in MIME format.
--------------060505000209080601080309
Content-Type: text/plain; charset=us-ascii; format=flowed
Content-Transfer-Encoding: 7bit

I've appended a small set of patches to make VOP compile with the
current GHC from CVS. The "modifySTRef" story is already fixed in
the repository, so if you are *really* on the bleeding edge, those
parts from the patch can be left out. And I'm sure the Simons will
work really hard on the "Stack overflow" issue... (<= hint! ;-)

Apart from those tiny glitches it works really cool. If I read the
output correctly, I get a few hundred FPS?!

BTW, is the C(++) part really necessary for performance? A "100% Haskell"
solution would impress sceptics of functional programming even more...   >:-)

Cheers,
    S.

--------------060505000209080601080309
Content-Type: text/plain;
 name="VOP-Source-280202.patch"
Content-Transfer-Encoding: base64
Content-Disposition: inline;
 filename="VOP-Source-280202.patch"

ZGlmZiAtdSAtciBWT1AtU291cmNlLTI4MDIwMi1vcmlnL3NyYy9DU0dQb2x5aGVkcm9uLmxo
cyBWT1AtU291cmNlLTI4MDIwMi9zcmMvQ1NHUG9seWhlZHJvbi5saHMKLS0tIFZPUC1Tb3Vy
Y2UtMjgwMjAyLW9yaWcvc3JjL0NTR1BvbHloZWRyb24ubGhzCVRodSBGZWIgMjggMjE6MzQ6
MzggMjAwMgorKysgVk9QLVNvdXJjZS0yODAyMDIvc3JjL0NTR1BvbHloZWRyb24ubGhzCU1v
biBNYXIgIDQgMTk6MTM6NDIgMjAwMgpAQCAtMTgsNiArMTgsMTAgQEAKIAogaW1wb3J0IEdl
b21ldHJ5KEdFeHRlbmRlZFBvbHlnb25zKC4uKSwgR1RleHR1cmUoLi4pLEdQbGFuZSguLikp
CiAJCistLSBUb2RheSdzIEdIQyBsYWNrcyB0aGlzLi4uID46LSgKK21vZGlmeVNUUmVmIDo6
IFNUUmVmIHMgYSAtPiAoYSAtPiBhKSAtPiBTVCBzICgpCittb2RpZnlTVFJlZiByZWYgZiA9
IHJlYWRTVFJlZiByZWYgPj49IHdyaXRlU1RSZWYgcmVmIC4gZgorCiAtLSAqKioqKioqKioq
KioqKioqKiBQb2x5aGVkcmEgKDNEKQogCiBkYXRhIFBvbHlnb25SZWYgPSBQb2x5Z29uUmVm
IEludCBJbnQgSW50CkBAIC05MCw3ICs5NCw3IEBACiAJCQkJCQkJCQkJCQlQcm90b0VkZ2Ug
ZXIgcHQgcHQnIHIgcicgcCBwJykKIAkJCQkJCQlbcmVmIC4uIHJlZituLTFdIChzb3J0IGEp
IChzb3J0IGIpKQogCQkJCSkgW3BmaXJzdCAuLiBwbGFzdF0KLQkJbGFzdEVkZ2VSZWYgPC0g
Zm1hcCAoRWRnZVJlZiAuICgrIC0xKSkgJCByZWFkU1RSZWYgY3VyUmVmCisJCWxhc3RFZGdl
UmVmIDwtIGZtYXAgKEVkZ2VSZWYgLiAoKyAoLTEpKSkgJCByZWFkU1RSZWYgY3VyUmVmCiAK
IAkJbGV0CiAJCQlwSW5mb3MzID0gYXJyYXkgcGJvdW5kcyAkIG1hcCAoXChwdCxlZGdlcykg
LT4gKHB0LG1hcApkaWZmIC11IC1yIFZPUC1Tb3VyY2UtMjgwMjAyLW9yaWcvc3JjL0NhbWVy
YS5saHMgVk9QLVNvdXJjZS0yODAyMDIvc3JjL0NhbWVyYS5saHMKLS0tIFZPUC1Tb3VyY2Ut
MjgwMjAyLW9yaWcvc3JjL0NhbWVyYS5saHMJVGh1IEZlYiAyOCAyMTozNDozOCAyMDAyCisr
KyBWT1AtU291cmNlLTI4MDIwMi9zcmMvQ2FtZXJhLmxocwlNb24gTWFyICA0IDE4OjM1OjA5
IDIwMDIKQEAgLTI3LDYgKzI3LDEwIEBACiAKIGltcG9ydCBNYXRyaXhJbnZlcnNlCiAKKy0t
IFRvZGF5J3MgR0hDIGxhY2tzIHRoaXMuLi4gPjotKAorbW9kaWZ5U1RSZWYgOjogU1RSZWYg
cyBhIC0+IChhIC0+IGEpIC0+IFNUIHMgKCkKK21vZGlmeVNUUmVmIHJlZiBmID0gcmVhZFNU
UmVmIHJlZiA+Pj0gd3JpdGVTVFJlZiByZWYgLiBmCisKIGRhdGEgR0NhbWVyYSA9IEdDYW1l
cmEgewogCQlnY0xvY2F0aW9uIDo6IFZlcnRleDMgTnVtYmVyLAogCQlnY1VwIDo6IFZlY3Rv
cjMgTnVtYmVyLApkaWZmIC11IC1yIFZPUC1Tb3VyY2UtMjgwMjAyLW9yaWcvc3JjL0V4dGVy
bmFsUmVzb3VyY2UubGhzIFZPUC1Tb3VyY2UtMjgwMjAyL3NyYy9FeHRlcm5hbFJlc291cmNl
LmxocwotLS0gVk9QLVNvdXJjZS0yODAyMDItb3JpZy9zcmMvRXh0ZXJuYWxSZXNvdXJjZS5s
aHMJVGh1IEZlYiAyOCAyMTozNDozOCAyMDAyCisrKyBWT1AtU291cmNlLTI4MDIwMi9zcmMv
RXh0ZXJuYWxSZXNvdXJjZS5saHMJTW9uIE1hciAgNCAxODowNToyMiAyMDAyCkBAIC00OCwx
MiArNDgsMTIgQEAKIAogcmV0YWluRXh0ZXJuYWxSZXNvdXJjZSAoRXh0ZXJuYWxSZXNvdXJj
ZSBhIGNudCkgPSAKIAlkbwotCQl1cGRhdGVJT1JlZiBjbnQgKCsxKQorCQltb2RpZnlJT1Jl
ZiBjbnQgKCsxKQogCQlyZXR1cm4gYQogCQkKIHJlbGVhc2VFeHRlcm5hbFJlc291cmNlIChF
eHRlcm5hbFJlc291cmNlIGEgY250KSA9CiAJZG8KLQkJdXBkYXRlSU9SZWYgY250ICgrKC0x
KSkKKwkJbW9kaWZ5SU9SZWYgY250ICgrKC0xKSkKIAogdW5zYWZlUmVhZEV4dGVybmFsUmVz
b3VyY2UgKEV4dGVybmFsUmVzb3VyY2UgYSBfKSA9IGEKIFxlbmR7Y29kZX0KZGlmZiAtdSAt
ciBWT1AtU291cmNlLTI4MDIwMi1vcmlnL3NyYy9QUE1vbmFkLmxocyBWT1AtU291cmNlLTI4
MDIwMi9zcmMvUFBNb25hZC5saHMKLS0tIFZPUC1Tb3VyY2UtMjgwMjAyLW9yaWcvc3JjL1BQ
TW9uYWQubGhzCVRodSBGZWIgMjggMjE6MzQ6MzggMjAwMgorKysgVk9QLVNvdXJjZS0yODAy
MDIvc3JjL1BQTW9uYWQubGhzCU1vbiBNYXIgIDQgMTk6MDg6MzcgMjAwMgpAQCAtMTE1LDcg
KzExNSw3IEBACiANCiBkYXRhIFBQUmVzdWx0IGEgPSBQUFN1Y2Nlc3MgYSBQUFN0YXRlIHwg
UFBGYWlsdXJlIFBQU3RhdGUgfCBQUEVuZENvbGxlY3QgUFBTdGF0ZQ0KIA0KLW5ld3R5cGUg
UFAgYSA9IFBQIChQUFN0YXRlIC0+IFBQUmVzdWx0IGEpDQorZGF0YSBQUCBhID0gUFAgKFBQ
U3RhdGUgLT4gUFBSZXN1bHQgYSkNCiBkZVBQIChQUCBwcCkgPSBwcA0KIA0KIHBwUmV0dXJu
IHggPSBQUCAoXHN0YXRlIC0+IFBQU3VjY2VzcyB4IHN0YXRlKQ0KZGlmZiAtdSAtciBWT1At
U291cmNlLTI4MDIwMi1vcmlnL3NyYy9SZW5kZXJHZW9tZXRyeS5saHMgVk9QLVNvdXJjZS0y
ODAyMDIvc3JjL1JlbmRlckdlb21ldHJ5LmxocwotLS0gVk9QLVNvdXJjZS0yODAyMDItb3Jp
Zy9zcmMvUmVuZGVyR2VvbWV0cnkubGhzCVRodSBGZWIgMjggMjE6MzQ6MzggMjAwMgorKysg
Vk9QLVNvdXJjZS0yODAyMDIvc3JjL1JlbmRlckdlb21ldHJ5LmxocwlNb24gTWFyICA0IDE5
OjE1OjUyIDIwMDIKQEAgLTI5LDcgKzI5LDcgQEAKIGltcG9ydCBGcmFtZUNhY2hlCiBpbXBv
cnQgVk9QVHlwZXMoQmxvY2tUYWcoLi4pKQogLS0gaW1wb3J0IFRyYWNlCi1pbXBvcnQgSU9F
eHRzCistLSBpbXBvcnQgSU9FeHRzCiAtLSB0cmFjZSBzdHIgYSA9IHVuc2FmZVBlcmZvcm1J
TyAkIGRvCiAtLQlwdXRTdHIgInRyYWNlOiAiICsrIHN0ciArKyAiXG4iCiAtLQlyZXR1cm4g
YQpkaWZmIC11IC1yIFZPUC1Tb3VyY2UtMjgwMjAyLW9yaWcvc3JjL1RyZWVUb0dlb21ldHJ5
LmxocyBWT1AtU291cmNlLTI4MDIwMi9zcmMvVHJlZVRvR2VvbWV0cnkubGhzCi0tLSBWT1At
U291cmNlLTI4MDIwMi1vcmlnL3NyYy9UcmVlVG9HZW9tZXRyeS5saHMJVGh1IEZlYiAyOCAy
MTozNDozOCAyMDAyCisrKyBWT1AtU291cmNlLTI4MDIwMi9zcmMvVHJlZVRvR2VvbWV0cnku
bGhzCU1vbiBNYXIgIDQgMTk6MTY6NDEgMjAwMgpAQCAtMTYsNyArMTYsNyBAQAogaW1wb3J0
IFZPUFR5cGVzCiAtLSBpbXBvcnQgVk9QRGVjbGFyYXRpb25zKGV2YWx1YXRlVmVjdG9yKQog
aW1wb3J0IEdMIGhpZGluZyAoRm9nKQotaW1wb3J0IElPRXh0cyh0cmFjZSx1bnNhZmVQdHJF
cSkKKy0tIGltcG9ydCBJT0V4dHModHJhY2UsdW5zYWZlUHRyRXEpCiBpbXBvcnQgQm91bmRp
bmcKIGltcG9ydCBWT1BVdGlscwogaW1wb3J0IENhbWVyYQo=
--------------060505000209080601080309--