mbk/mineschemer
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

even more bad news from c test

Browse source
This commit is contained in:
mehbark 2023-12-21 14:40:51 -05:00
parent fe8c727392
commit f345c6f88d
2 changed files with 9 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
main.c
View file

@ -1,15 +1,18 @@
#include "raylib.h" #include "raylib.h"
#include <stdio.h>
int main() { int main() {
InitWindow(100, 100, "hello from C"); InitWindow(100, 100, "hello from C");
printf("%s\n", GetApplicationDirectory());
Texture2D texture = LoadTexture("skins/xp-flowers.bmp"); Texture2D texture = LoadTexture("skins/xp-flowers.bmp");
Texture2D fail = LoadTexture("fail");
SetTargetFPS(120); SetTargetFPS(120);
while (!WindowShouldClose()) { while (!WindowShouldClose()) {
BeginDrawing(); BeginDrawing();
ClearBackground(RAYWHITE); ClearBackground(RAYWHITE);
DrawTexture(texture, 50, 50, WHITE); DrawTexture(texture, 0, 0, WHITE);
EndDrawing(); EndDrawing();
} }

6
main.scm
View file

@ -198,7 +198,11 @@
(map (lambda (p) (string-append p "/" filename)) (map (lambda (p) (string-append p "/" filename))
*skin-paths*))) *skin-paths*)))
(unless path (unless path
(error 'load-skin (string-append "failed to load `" filename "`. tried paths " (with-output-to-string (lambda () (write *skin-paths*)))))) (error
'load-skin
(string-append
"failed to load `" filename "`. tried paths "
(with-output-to-string (lambda () (write *skin-paths*))))))
(load-texture path)) (load-texture path))