From e59e8138ac7c92570bb6fccc09b23d5b587309c1 Mon Sep 17 00:00:00 2001
From: Malte Lenz <maltel@wolfram.com>
Date: Wed, 16 Jul 2025 11:34:12 +0200
Subject: [PATCH] Add starting point for figures in Thermal.

These originate from figures created for Wolfram System Modeler, and are likely to need cleanup and improvement.
---
 .../Thermal/HeatTransfer/Examples/Motor.mo    | 18 +++++++++++++++++-
 .../HeatTransfer/Examples/TwoMasses.mo        | 19 ++++++++++++++++++-
 2 files changed, 35 insertions(+), 2 deletions(-)

diff --git a/Modelica/Thermal/HeatTransfer/Examples/Motor.mo b/Modelica/Thermal/HeatTransfer/Examples/Motor.mo
index 5ab016ab53..a7755e5434 100644
--- a/Modelica/Thermal/HeatTransfer/Examples/Motor.mo
+++ b/Modelica/Thermal/HeatTransfer/Examples/Motor.mo
@@ -109,6 +109,22 @@ Using Modelica.Thermal.FluidHeatFlow it would be possible to model the coolant a
 <p>
 Simulate for 7200 s; plot Twinding.T and Tcore.T.
 </p>
-</html>"),
+</html>",
+      figures = {
+        Figure(
+          title = "Temperatures",
+          identifier = "83343",
+          preferred = true,
+          plots = {
+            Plot(
+              curves = {
+                Curve(y = Twinding.T, legend = "Temperature of winding"),
+                Curve(y = Tcore.T, legend = "Temperature of core")
+              }
+            )
+          }
+        )
+      }
+    ),
     experiment(StopTime=7200, Interval=0.01));
 end Motor;
diff --git a/Modelica/Thermal/HeatTransfer/Examples/TwoMasses.mo b/Modelica/Thermal/HeatTransfer/Examples/TwoMasses.mo
index f67013f824..4576dd1bda 100644
--- a/Modelica/Thermal/HeatTransfer/Examples/TwoMasses.mo
+++ b/Modelica/Thermal/HeatTransfer/Examples/TwoMasses.mo
@@ -39,6 +39,23 @@ Simulate for 5 s and plot the variables<br>
 mass1.T, mass2.T, T_final_K or<br>
 Tsensor1.T, Tsensor2.T, T_final_degC
 </p>
-</html>"),
+</html>",
+      figures = {
+        Figure(
+          title = "Temperatures",
+          identifier = "cd25b",
+          preferred = true,
+          plots = {
+            Plot(
+              curves = {
+                Curve(y = mass1.T, legend = "Temperature of mass1"),
+                Curve(y = mass2.T, legend = "Temperature of mass2"),
+                Curve(y = T_final_K, legend = "Projected final temperature")
+              }
+            )
+          }
+        )
+      }
+    ),
     experiment(StopTime=1.0, Interval=0.001));
 end TwoMasses;