L5 2025

2026-06-01 13:59:13 +00:00 · 2025-11-17 16:48:58 +01:00
parent 050fb51f25
commit 376c6c22bf
51 changed files with 265895 additions and 230538 deletions
@@ -1,6 +1,6 @@
 encoding  utf-8
 ######################################################################################################################################
-# Version ARSIP By Alex 2025 09 10
+# Version ARSIP By Alex 2025 11 17
 ######################################################################################################################################


@@ -123,8 +123,9 @@ encoding  utf-8
 #		- Tunnel initiation/Départ de galerie (u:galerie)
 #  	- blocks
 #		- clay
+#     - mudcrack
 #     - sand
-#		- pebbles
+#		- pebbles                
 #		- sump
 #		- water

@@ -450,8 +451,11 @@ layout drawingconfig
 	
 	symbol-assign area sand AUT
 	symbol-assign area clay AUT
+	symbol-assign area mudcrack SBE
 	symbol-assign area pebbles AUT
 	
+	# symbol-assign line wall:blocks AUT
+	
 	symbol-assign point camp UIS
 	symbol-assign point pillar AUT
 	symbol-assign point station:temporary SKBB
@@ -565,11 +569,115 @@ layout drawingconfig
 		#endcode


+		########################################################
+		#<en> Change the ligne wall:blocks (from l_wall_blocks_AUT)
+		#<fr> Changer le symbole ligne wall:blocks (d'après l_wall_debris_AUT)
+		########################################################
+		def l_wall_blocks (expr P) =
+
+		  T:=identity;
+		  pickup PenB;
+		  laenge := arclength P;
+
+		  path block;
+		  path old_block;
+
+		  cur := 0;
+		  t:= arctime cur of P;
+
+		  % ---------- premier bloc ----------
+		  %old_block := ( (.7u,-.35u)--(.85u,0.01u)--(.4u,.5u)--(.1u,.3u)--(-.0u,-.0u) );
+		  old_block :=( (.8u,-.35u)--(.85u,0.01u)--(.6u,.4u)--(.1u,.1u)--(-.0u,-.3u) );
+		  block_width := (xpart urcorner old_block - xpart ulcorner old_block);
+		  old_block := old_block rotated angle( thdir(P,0) ) shifted point t of P;
+
+		  % couleur + alpha
+		  AlphaFactor1 := 0.5 + uniformdeviate 0.4;
+		  thclean (old_block--cycle);
+		  thfill (old_block--cycle)
+			 withcolor (0.341117, 0.219607, 0.031372)
+			 withalpha AlphaFactor1;
+		  thdraw old_block;
+
+		  cur := cur + block_width/2;
+		  t:= arctime cur of P;
+
+		  forever:
+			  % ---------- bloc intermédiaire ----------
+			  block := punked ( ( (.8u,-.35u)--(.85u,0.01u)--(.6u,.4u)--(.1u,.1u)--(-.0u,-.3u) )
+						  randomized (0.3u) )
+						  scaled (uniformdeviate(0.3)+.65)
+						  rotated (uniformdeviate(45)-15);
+
+			  % largeur du bloc
+			  block_width := (xpart urcorner block - xpart ulcorner block);
+
+			  exitif cur > (laenge- 3.5*block_width/2);
+
+			  % trouver une position sans intersection avec old_block
+			  forever:
+				  exitif xpart ( ((block--cycle)
+										rotated angle(direction t of P)
+										shifted point t of P)
+									  intersectiontimes old_block) < 0;
+				  cur := cur + 0.01u;
+				  t := arctime cur of P;
+				  exitif cur > (laenge- 3.5*block_width/2);
+			  endfor;
+			  exitif cur > (laenge- 3.5*block_width/2);
+
+			  old_block := block rotated angle(direction t of P) shifted point t of P;
+
+			  % couleur + alpha pour chaque bloc
+			  AlphaFactor1 := 0.5 + uniformdeviate 0.4;
+			  thclean (old_block--cycle);
+			  thfill (old_block--cycle)
+				 withcolor (0.341117, 0.219607, 0.031372)
+				 withalpha AlphaFactor1;
+			  thdraw old_block;
+
+			  cur := cur + block_width/2;
+			  t := arctime cur of P;
+		  endfor;
+
+		  % ---------- dernier bloc ----------
+		  t := arctime laenge-eps of P;
+		  block := ( (-.15u,-.35u)--(.0u,.0u)--(-.45u,.5u)--(-.75u,.3u)--(-.85u,-.0u) );
+		  block_width := (xpart urcorner block - xpart ulcorner block);
+
+		  % mise à l'échelle pour remplir le trou restant
+		  scale_factor := (laenge-cur)/block_width;
+		  forever:
+			 exitif scale_factor < 0;
+			 exitif xpart ( (block rotated angle(direction t of P)
+								  scaled scale_factor
+								  shifted point t of P)
+								 intersectiontimes old_block) < 0;
+			 scale_factor := scale_factor - 0.001;
+		  endfor;
+
+		  if scale_factor > 0:
+			 AlphaFactor1 := 0.5 + uniformdeviate 0.4;
+			 % on construit le chemin final une fois, pour thclean + thfill + thdraw
+			 path last_block;
+			 last_block := block rotated angle(direction t of P)
+										scaled scale_factor
+										shifted point t of P;
+
+			 thclean (last_block--cycle);
+			 thfill (last_block--cycle)
+				withcolor (0.341117, 0.219607, 0.031372)
+				withalpha AlphaFactor1;
+			 thdraw last_block;
+		  fi;
+
+		enddef;
+
+		
 		########################################################
 		#<en> Change the ligne wall:debris (from l_wall_debris_AUT)
 		#<fr> Changer le symbole ligne wall:debris (d'après l_wall_debris_AUT)
 		########################################################
-
 		def l_wall_debris (expr P) =
 			T := identity;
 			pickup PenC;
@@ -964,9 +1072,23 @@ layout drawingconfig
 			 thfill Path withpattern pattern_sand_AUT ;
 		enddef;
 		
+		
+		########################################################
+		#<en> To change mudcrack SBE aspects
+		#<fr> Pour modifier les aspects de l' mudcrack SBE dans l'aire associée
+		########################################################
+		
+		def a_mudcrack_SBE (expr Path) =
+			 T:=identity;
+			 % Fond beige clair (20 % « sable »)
+			 thfill Path withcolor (0.49, 0.20, 0.00) withalpha 0.2;
+			 thfill Path withpattern pattern_mudcrack_SBE ;
+		enddef;
+		
+		
 		########################################################
 		#<en> To change clay AUT aspects
-		#<fr> Pour modifier les aspects du sable argile AUT dans l'aire associée
+		#<fr> Pour modifier les aspects de l' argile AUT dans l'aire associée
 		########################################################
 		
 		beginpattern(pattern_clay_AUT);
@@ -0,0 +1,6 @@
+therion 6.3.4 (2025-04-08)
+  - using Proj 9.5.1, compiled against 9.5.1
+initialization file: C:\Program Files\Therion/therion.ini
+reading ... done
+C:\Program Files\Therion\therion.exe: error -- can't open file for input -- L5.thconfig
+Press ENTER to exit!