From 1fc04c90ece10d743a9311543b0f92f0008bde5c Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Sat, 23 May 2026 00:43:33 +0200
Subject: [PATCH] this is a nice patch, bro

---
 starfield.f90 | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/starfield.f90 b/starfield.f90
index eae5378..b9e44b5 100644
--- a/starfield.f90
+++ b/starfield.f90
@@ -8,13 +8,14 @@ program starfield
   use genplotting
   implicit none
 
-  character(*), parameter :: scratch = "WS/starfield.scratch"
+  character(*), parameter :: projname = "starfield"
+  character(*), parameter :: scratch = "WS/"//projname//".scratch"
 
   write (0, '(A)') "----[ genplotting starfield ]----"
   call genp_init (0, scratch)
   call do_starfield (300)
   call genp_end (0)
-  call genp_do_render(scratch, "WS/a.tga", 512, 512)
+  call genp_do_render(scratch, "WS/"//projname//".tga", 512, 512)
 
 contains
 ! ---------------------------------------------------------