Regn omkretsen av gulv mot grunnen av geometrien

B′ etter NS-EN ISO 13370 trenger omkretsen av grunnflaten. Den regnes nå av omrisset til
dekket i modellen, i stedet for å antas av arealet. For Nordhusstykket 5 gir modellen 39,7 m
mot 40 m satt for hånd.

Co-Authored-By: Claude Opus 5 <noreply@anthropic.com>
Claude-Session: https://claude.ai/code/session_015GeH3y8fwTaTudaD88P57o

Cargo.lock

@@ -222,7 +222,7 @@ dependencies = [
 
 [[package]]
 name = "enok"
-version = "0.4.0"
+version = "0.4.8"
 dependencies = [
  "anyhow",
  "approx",

Cargo.toml

@@ -1,6 +1,6 @@
 [package]
 name = "enok"
-version = "0.4.0"
+version = "0.4.8"
 edition = "2021"
 description = "Årlig energiberegning og energirapport for boliger etter NS 3031 (timesmetode, ISO 52016-1)"
 license = "MIT"

README.md

@@ -180,6 +180,16 @@ navn = "Nye vinduer"
 endringer.vindu = [{ navn = "Vinduer sør", u_verdi = 0.80, g_verdi = 0.50 }]
 ```
 
+Rapporten kan følge husets eller firmaets egne dokumenter:
+
+```toml
+[rapport]
+logo = "logo.svg"                 # vises øverst på forsiden
+farge = "#880000"                 # aksentfarge i overskrifter og tabeller
+avsender = "Firma · Adresse · Org.nr. 000 000 000"
+skrift_overskrift = "Futura Now Headline"
+```
+
 Scenarier flettes inn i bygningsbeskrivelsen: tabeller flettes rekursivt, elementer i lister
 matches på `navn` eller `type`, nye elementer legges til, og `slett = true` fjerner et element.
 Et navn med `*` treffer alle elementer det passer på, for eksempel `navn = "Yttervegg*"`.
@@ -310,6 +320,19 @@ Mangler en bygningsdel U-verdi i modellen, sier importen hvilke det gjelder, og
 bruker en typisk verdi for byggeåret. Det gjelder også vinduer og dører, som i de fleste
 eksportene ikke har U-verdi.
 
+Importen tåler noen vanlige feil i eksporten:
+
+- **Deler som ligger dobbelt.** Legger eksporten den samme veggen eller det samme dekket i
+  flere etasjer, telles den én gang. Av kopiene brukes den som hører til den etasjen høyden
+  tilsier, og vinduene i de andre finner fortsatt veggen sin.
+- **Feil etasje.** Hva som er gulv mot grunnen, dekke over kjelleren eller etasjeskiller inne
+  i bygningen, avgjøres av høyden geometrien har, ikke av hvilken etasje delen er lagt i.
+- **Terrengmodell utenfor bakkenivå.** Ligger terrenget over gulvet i første etasje, brukes
+  det ikke, og importen sier fra. Oppgi da `over_terreng` på kjellerveggene.
+
+Importen sier også hvilke deler som ikke er regnet med i klimaskjermen, som innervegger og
+etasjeskillere, slik at det er lett å se om noe mangler.
+
 Med de åtte feltene på plass er importen fra IFC nær nok komplett til at beregningen står på
 modellen alene.
 
@@ -382,7 +405,7 @@ jobs:
             "$GITHUB_SERVER_URL/klingenbergbygg/enok/releases/download/$TAG/enok"
           chmod +x enok
           ./enok import modell.ifc --tillegg prosjekt.toml --ut bygning.toml
-      - uses: https://gitea.com/actions/upload-artifact@v4
+      - uses: https://gitea.com/actions/upload-artifact@v3
         with:
           name: bygningsmodell
           path: |
@@ -396,7 +419,7 @@ jobs:
         shell: fish {0}
     steps:
       - uses: https://gitea.com/actions/checkout@v6
-      - uses: https://gitea.com/actions/download-artifact@v4
+      - uses: https://gitea.com/actions/download-artifact@v3
         with:
           name: bygningsmodell
       - name: Lag rapporten

src/inndata/gbxml.rs

@@ -596,6 +596,7 @@ fn bygg(
         lufting: Lufting::default(),
         drift: Drift::default(),
         scenario: Vec::new(),
+        rapport: Rapport::default(),
     };
     Ok(Importrapport { bygning, merknader })
 }

src/inndata/ifc.rs

@@ -26,6 +26,9 @@ pub struct Importrapport {
     pub utelatt: Vec<(String, f64, Option<f64>)>,
 }
 
+/// Konstruksjonsnavn og avrundet plassering, som skiller én bygningsdel fra en annen.
+type Dublettnokkel = (String, i64, i64, i64, i64);
+
 const VEGGTYPER: [&str; 3] = ["IFCWALL", "IFCWALLSTANDARDCASE", "IFCCURTAINWALL"];
 const PLATETYPER: [&str; 3] = ["IFCSLAB", "IFCROOF", "IFCSLABSTANDARDCASE"];
 
@@ -182,9 +185,61 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             plass,
             areal: flate.map(|f| f.areal).unwrap_or(0.0),
             normal: flate.map(|f| f.normal),
+            z: plass.map(|p| p.2).unwrap_or(0.0) + flate.map(|f| f.hoyde).unwrap_or(0.0),
+            topp: plass.map(|p| p.2).unwrap_or(0.0) + flate.map(|f| f.topp).unwrap_or(0.0),
+            omkrets: flate.map(|f| f.omkrets()).unwrap_or(0.0),
         });
     }
 
+    // Noen eksporter legger den samme bygningsdelen i flere etasjer. To deler med samme
+    // konstruksjon, samme areal og samme plassering er den samme veggen eller det samme
+    // dekket. Kopiene blir stående, slik at vinduene i dem finner veggen sin, men de telles
+    // ikke med i klimaskjermen. Av kopiene beholdes den som ligger i den etasjen høyden
+    // tilsier, slik at en kjellervegg havner i kjelleren.
+    let konstruksjon = |navn: &str| navn.split(" #").next().unwrap_or(navn).trim().to_string();
+    let mut grupper: Vec<(Dublettnokkel, Vec<u64>)> = Vec::new();
+    for d in &deler {
+        let Some((x, y, _, _, _)) = d.plass else {
+            continue;
+        };
+        let cm = |v: f64| (v * 50.0).round() as i64;
+        let nokkel = (
+            konstruksjon(&d.navn),
+            cm(x),
+            cm(y),
+            cm(d.z),
+            (d.areal * 100.0).round() as i64,
+        );
+        match grupper.iter_mut().find(|(k, _)| *k == nokkel) {
+            Some((_, medlemmer)) => medlemmer.push(d.nr),
+            None => grupper.push((nokkel, vec![d.nr])),
+        }
+    }
+    let mut dublett_av: HashMap<u64, u64> = HashMap::new();
+    for (_, medlemmer) in grupper.iter().filter(|(_, m)| m.len() > 1) {
+        let avstand_til_etasjen = |nr: u64| {
+            let d = deler.iter().find(|d| d.nr == nr)?;
+            let hoyde = d.etasje.and_then(|i| etasjer.get(i)).map(|e| e.hoyde)?;
+            Some((d.z - hoyde).abs())
+        };
+        let beholdt = *medlemmer
+            .iter()
+            .min_by(|a, b| {
+                let (fa, fb) = (avstand_til_etasjen(**a), avstand_til_etasjen(**b));
+                match (fa, fb) {
+                    (Some(x), Some(y)) => x.total_cmp(&y).then(a.cmp(b)),
+                    (Some(_), None) => std::cmp::Ordering::Less,
+                    (None, Some(_)) => std::cmp::Ordering::Greater,
+                    (None, None) => a.cmp(b),
+                }
+            })
+            .unwrap_or(&medlemmer[0]);
+        for nr in medlemmer.iter().filter(|nr| **nr != beholdt) {
+            dublett_av.insert(*nr, beholdt);
+        }
+    }
+    let dubletter = dublett_av.len();
+
     // Tyngdepunkt av de ytre veggene bestemmer hvilken vei normalen peker.
     let ytre_deler: Vec<&Del> = deler
         .iter()
@@ -233,9 +288,18 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
     // Den laveste etasjen over terreng, der etasjeskilleren mot kjelleren ligger.
     let forste_over = etasjer.iter().position(|e| !e.under_terreng);
     // Terrenghøyden på IfcBuilding sier hvor mye av grunnmuren som står over bakken.
+    let terrengmodell = terrengpunkter(&fil, skala);
     let terreng = terrenghoyder(&fil, skala);
-    let kjeller_over_terreng = match (terreng, forste_over.and_then(|i| etasjer.get(i))) {
+    // Ligger terrengmodellen over gulvet i første etasje, er den ikke lagt i bakkenivå, og da
+    // sier den ingenting om hvor mye av grunnmuren som er nedgravd.
+    let terreng_over_gulvet = match (terreng, forste_over.and_then(|i| etasjer.get(i))) {
         (Some((referanse, terrengnivaa)), Some(forste)) => {
+            terrengnivaa > referanse + forste.hoyde + 0.5
+        }
+        _ => false,
+    };
+    let kjeller_over_terreng = match (terreng, forste_over.and_then(|i| etasjer.get(i))) {
+        (Some((referanse, terrengnivaa)), Some(forste)) if !terreng_over_gulvet => {
             over_terreng_for_kjeller(referanse, terrengnivaa, forste.hoyde, kjellerdybde)
         }
         _ => 0.0,
@@ -247,18 +311,19 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
     let mut utelatt: Vec<(String, f64, Option<f64>)> = Vec::new();
     let mut uten_uverdi: Vec<String> = Vec::new();
     let mut uten_geometri = 0usize;
+    let mut grunnmurshoyder: Vec<f64> = Vec::new();
     let mut asimut_for_vegg: HashMap<u64, f64> = HashMap::new();
 
     // Laveste etasje og laveste gulvnivå skiller dekke mot grunn fra etasjeskillere.
     let etasjekontekst = Etasjekontekst {
-        nederste: (!etasjer.is_empty()).then_some(0),
         kjeller: kjelleretasje,
         forste_over,
+        forste_over_hoyde: forste_over.and_then(|i| etasjer.get(i)).map(|e| e.hoyde),
     };
     let laveste = deler
         .iter()
         .filter(|d| PLATETYPER.contains(&d.typ.as_str()))
-        .filter_map(|d| d.plass.map(|p| p.2))
+        .map(|d| d.z)
         .fold(f64::INFINITY, f64::min);
 
     for d in &deler {
@@ -271,16 +336,25 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             uten_geometri += 1;
             continue;
         }
+        if dublett_av.contains_key(&d.nr) {
+            continue;
+        }
         let i_kjeller = kjelleretasje.is_some() && d.etasje == kjelleretasje;
         let Some((typ, mot)) = klassifiser(d, laveste, helning, &etasjekontekst) else {
             utelatt.push((d.navn.clone(), d.areal, d.u_verdi));
             continue;
         };
-        // En etasjeskiller i den laveste etasjen over terreng er grensen mot kjelleren.
+        // En etasjeskiller like over kjelleren er grensen mot den uoppvarmede sonen. Høyden
+        // avgjør, ikke etasjetilknytningen, som kan være feil i eksporten.
+        let ved_kjellertaket = etasjekontekst
+            .forste_over_hoyde
+            .map(|h| (d.z - h).abs() < 0.6)
+            .unwrap_or(false);
         let (mot, sone) = if kjelleretasje.is_some()
             && !i_kjeller
-            && d.etasje == forste_over
+            && ved_kjellertaket
             && typ == FlateType::Gulv
+            && mot != Mot::Grunn
         {
             (Mot::Uoppvarmet, Some(kjellernavn.clone()))
         } else {
@@ -289,6 +363,17 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
         if d.u_verdi.is_none() {
             uten_uverdi.push(d.navn.clone());
         }
+        // Terrengmodellen sier hvor høyt bakken ligger akkurat der denne veggen står, så en
+        // skrånende tomt gir forskjellig høyde over bakken på hver side av huset.
+        // Høyden måles fra overkant mur, ikke fra gulvet over: dekket selv står ikke i bakken.
+        let over_bakken = d
+            .plass
+            .and_then(|(x, y, _, _, _)| terreng_ved(&terrengmodell, x, y))
+            .map(|z| (d.topp - z).clamp(0.0, kjellerdybde))
+            .unwrap_or(kjeller_over_terreng);
+        if i_kjeller && mot == Mot::Grunn && typ == FlateType::Vegg {
+            grunnmurshoyder.push(over_bakken);
+        }
         let mal = if i_kjeller {
             &mut kjellerflater
         } else {
@@ -307,9 +392,10 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             mot,
             b_faktor: None,
             absorptans: None,
-            omkrets: None,
-            dybde: (i_kjeller && mot == Mot::Grunn).then_some(kjellerdybde - kjeller_over_terreng),
-            over_terreng: (i_kjeller && mot == Mot::Grunn).then_some(kjeller_over_terreng),
+            omkrets: (typ == FlateType::Gulv && mot == Mot::Grunn && d.omkrets > 0.0)
+                .then_some(d.omkrets),
+            dybde: (i_kjeller && mot == Mot::Grunn).then_some(kjellerdybde - over_bakken),
+            over_terreng: (i_kjeller && mot == Mot::Grunn).then_some(over_bakken),
             sone,
             kommentar: d
                 .etasje
@@ -324,6 +410,9 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
 
     // ── vinduer og dører ────────────────────────────────────────────
     let mut vinduer: Vec<Vindu> = Vec::new();
+    let mut sette_vinduer: std::collections::HashSet<(String, (i64, i64, i64), i64)> =
+        Default::default();
+    let mut vindusdubletter = 0usize;
     for (r, e) in fil.av_type("IFCWINDOW").chain(fil.av_type("IFCDOOR")) {
         let dor = e.typ == "IFCDOOR";
         let hoyde = e.arg(8).and_then(|a| a.som_tall()).unwrap_or(0.0) * skala;
@@ -340,7 +429,9 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             dor_vert.get(&r)
         } else {
             vindu_vert.get(&r)
-        };
+        }
+        .map(|v| dublett_av.get(v).copied().unwrap_or(*v));
+        let vert = vert.as_ref();
         // Vinduer i innervegger hører ikke til klimaskjermen.
         let i_ytre_vegg = vert
             .and_then(|v| deler.iter().find(|d| d.nr == *v))
@@ -354,6 +445,25 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             ));
             continue;
         }
+        // Det samme vinduet i to kopier av den samme veggen er ett vindu.
+        let sted = e
+            .arg(5)
+            .and_then(|a| a.som_ref())
+            .and_then(|p| global_plassering(&fil, p, skala))
+            .map(|(x, y, z, _, _)| {
+                let cm = |v: f64| (v * 50.0).round() as i64;
+                (cm(x), cm(y), cm(z))
+            })
+            .unwrap_or_default();
+        let nokkel = (
+            konstruksjon(&navn_av(e, r, if dor { "Dør" } else { "Vindu" })),
+            sted,
+            (areal * 100.0).round() as i64,
+        );
+        if !sette_vinduer.insert(nokkel) {
+            vindusdubletter += 1;
+            continue;
+        }
         let asimut = vert
             .and_then(|v| asimut_for_vegg.get(v))
             .copied()
@@ -443,6 +553,44 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
             "{uten_geometri} bygningsdeler er utelatt fordi geometrien ikke ga noe areal."
         ));
     }
+    if !utelatt.is_empty() {
+        // Gruppert per konstruksjon, slik at listen er til å lese.
+        let mut grupper: Vec<(String, usize, f64)> = Vec::new();
+        for (navn, areal, _) in &utelatt {
+            let kort = navn.split(" #").next().unwrap_or(navn).trim().to_string();
+            match grupper.iter_mut().find(|(n, _, _)| *n == kort) {
+                Some((_, antall, sum)) => {
+                    *antall += 1;
+                    *sum += areal;
+                }
+                None => grupper.push((kort, 1, *areal)),
+            }
+        }
+        grupper.sort_by(|a, b| b.2.total_cmp(&a.2));
+        let liste: Vec<String> = grupper
+            .iter()
+            .take(10)
+            .map(|(navn, antall, sum)| {
+                if *antall > 1 {
+                    format!("{navn} ×{antall} ({sum:.0} m²)")
+                } else {
+                    format!("{navn} ({sum:.0} m²)")
+                }
+            })
+            .collect();
+        merknader.push(format!(
+            "{} bygningsdeler er ikke regnet med i klimaskjermen, som innervegger og dekker inne i bygningen: {}{}.",
+            utelatt.len(),
+            liste.join(", "),
+            if grupper.len() > liste.len() { " …" } else { "" }
+        ));
+    }
+    if dubletter + vindusdubletter > 0 {
+        merknader.push(format!(
+            "{} bygningsdeler ligger dobbelt i modellen, samme konstruksjon på samme sted, og er telt én gang. Det skjer når eksporten legger de samme delene i flere etasjer.",
+            dubletter + vindusdubletter
+        ));
+    }
     if !uten_uverdi.is_empty() {
         // Navnene gjør det tydelig hva som må rettes i modellen. Flere elementer av samme
         // konstruksjon nevnes én gang, med antallet.
@@ -561,7 +709,27 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
                     rom.join(", ")
                 )),
             });
-            let grunnmur = if terreng.is_some() {
+            let grunnmur = if !grunnmurshoyder.is_empty() && !terrengmodell.is_empty() {
+                let laveste = grunnmurshoyder
+                    .iter()
+                    .copied()
+                    .fold(f64::INFINITY, f64::min);
+                let hoyeste = grunnmurshoyder
+                    .iter()
+                    .copied()
+                    .fold(f64::NEG_INFINITY, f64::max);
+                let snitt = grunnmurshoyder.iter().sum::<f64>() / grunnmurshoyder.len() as f64;
+                format!(
+                    "Terrengmodellen i filen gir hver kjellervegg sin egen høyde over bakken: \
+                     {laveste:.2}–{hoyeste:.2} m, i snitt {snitt:.2} m. Resten av veggen er regnet nedgravd."
+                )
+            } else if terreng_over_gulvet {
+                format!(
+                    "Terrengmodellen ligger over gulvet i første etasje, så den er ikke brukt. \
+                     Kjellerveggene er regnet {kjellerdybde:.1} m under terreng uten noe over. Legg \
+                     terrengmodellen i bakkenivå, eller sett `over_terreng` i meter på veggene."
+                )
+            } else if terreng.is_some() {
                 format!(
                     "Etter terrenghøyden i modellen står grunnmuren {kjeller_over_terreng:.2} m over bakken og \
                      {:.2} m under.",
@@ -695,6 +863,7 @@ pub fn fra_tekst_med(tekst: &str, standardnavn: &str, valg: &Importvalg) -> Resu
         lufting: Lufting::default(),
         drift: Drift::default(),
         scenario: Vec::new(),
+        rapport: Rapport::default(),
     };
     Ok(Importrapport {
         bygning,
@@ -1085,6 +1254,45 @@ fn terrenghoyder(fil: &Fil, skala: f64) -> Option<(f64, f64)> {
     Some((referanse, terreng))
 }
 
+/// Punktene i terrengmodellen, i byggets koordinater, m.
+///
+/// Vectorworks legger terrenget som et `IfcGeographicElement` med typen TERRAIN, eller på
+/// tomta. Punktene brukes til å finne bakkenivået ved hver enkelt kjellervegg.
+fn terrengpunkter(fil: &Fil, skala: f64) -> Vec<[f64; 3]> {
+    let mut ut = Vec::new();
+    for (_, e) in fil
+        .av_type("IFCGEOGRAPHICELEMENT")
+        .chain(fil.av_type("IFCSITE"))
+    {
+        let (px, py, pz) = e
+            .arg(5)
+            .and_then(|a| a.som_ref())
+            .and_then(|p| global_plassering(fil, p, skala))
+            .map(|(x, y, z, _, _)| (x, y, z))
+            .unwrap_or((0.0, 0.0, 0.0));
+        for nett in ifcgeom::netter_for_produkt(fil, e.arg(6).and_then(|a| a.som_ref())) {
+            for p in &nett.punkter {
+                ut.push([p[0] * skala + px, p[1] * skala + py, p[2] * skala + pz]);
+            }
+        }
+    }
+    ut
+}
+
+/// Bakkenivået ved et punkt, som snittet av de nærmeste punktene i terrengmodellen, m.
+fn terreng_ved(punkter: &[[f64; 3]], x: f64, y: f64) -> Option<f64> {
+    if punkter.is_empty() {
+        return None;
+    }
+    let mut avstand: Vec<(f64, f64)> = punkter
+        .iter()
+        .map(|p| ((p[0] - x).powi(2) + (p[1] - y).powi(2), p[2]))
+        .collect();
+    avstand.sort_by(|a, b| a.0.total_cmp(&b.0));
+    let antall = avstand.len().min(8);
+    Some(avstand[..antall].iter().map(|(_, z)| z).sum::<f64>() / antall as f64)
+}
+
 /// Hvor mye av grunnmuren som står over bakken, m.
 ///
 /// Toppen av grunnmuren ligger ved gulvet i første etasje over kjelleren. Den står over
@@ -1110,6 +1318,12 @@ struct Del {
     plass: Option<(f64, f64, f64, f64, f64)>,
     areal: f64,
     normal: Option<[f64; 3]>,
+    /// Delens høyde over byggets nullpunkt, av geometrien, m.
+    z: f64,
+    /// Overkanten av delen over byggets nullpunkt, m. For en kjellervegg er det overkant mur.
+    topp: f64,
+    /// Omkretsen av delens omriss, m. Et gulv mot grunnen trenger den for B′.
+    omkrets: f64,
 }
 
 /// Oversetter en fritekstverdi fra modellen til en bygningskategori.
@@ -1257,12 +1471,13 @@ fn retning_av(d: &Del, cx: f64, cy: f64, sant_nord: f64) -> (f64, f64) {
 /// Avgjør om en bygningsdel hører til klimaskjermen, og hva den vender mot.
 /// Etasjeinndelingen som klassifiseringen trenger.
 struct Etasjekontekst {
-    /// Nederste etasje i modellen.
-    nederste: Option<usize>,
     /// Etasjen under terreng, dersom modellen har en.
     kjeller: Option<usize>,
     /// Laveste etasje over terreng, der etasjeskilleren mot kjelleren ligger.
     forste_over: Option<usize>,
+    /// Høyden på den etasjen, m. Geometrien veier tyngre enn etasjetilknytningen, som kan
+    /// være feil i eksporten.
+    forste_over_hoyde: Option<f64>,
 }
 
 fn klassifiser(
@@ -1297,20 +1512,26 @@ fn klassifiser(
         if d.ytre == Some(true) {
             return Some((FlateType::Gulv, Mot::Ute));
         }
-        // Mot grunnen bare i nederste etasje. Er etasjen ukjent, brukes høyden.
-        let nederst = match (d.etasje, e.nederste) {
-            (Some(a), Some(b)) => a == b,
-            _ => d
-                .plass
-                .map(|p| (p.2 - laveste).abs() < 0.5)
-                .unwrap_or(false),
-        };
-        if nederst || navn.contains("kjellergulv") {
+        // Høyden av geometrien avgjør, siden etasjetilknytningen i en eksport kan være feil.
+        // Et dekke som ligger på bakken sier det i navnet. Ellers er et dekke like under
+        // gulvet i første etasje himlingen over kjelleren, og det nederste dekket ligger mot
+        // grunnen. «Kjellergulv» er ikke nok til å si at dekket ligger på bakken: dekket over
+        // kjelleren bærer ofte det samme navnet.
+        let paa_grunnen = ["on grade", "på grunn", "paa grunn", "såle", "sale"];
+        if paa_grunnen.iter().any(|o| navn.contains(o)) {
             return Some((FlateType::Gulv, Mot::Grunn));
         }
-        // Dekket i laveste etasje over en kjeller er grensen mot den uoppvarmede sonen.
-        if e.kjeller.is_some() && d.etasje.is_some() && d.etasje == e.forste_over {
-            return Some((FlateType::Gulv, Mot::Uoppvarmet));
+        if e.kjeller.is_some() {
+            let ved_forste_over = e
+                .forste_over_hoyde
+                .map(|h| (d.z - h).abs() < 0.6)
+                .unwrap_or(false);
+            if ved_forste_over || (d.etasje.is_some() && d.etasje == e.forste_over) {
+                return Some((FlateType::Gulv, Mot::Uoppvarmet));
+            }
+        }
+        if (d.z - laveste).abs() < 0.5 {
+            return Some((FlateType::Gulv, Mot::Grunn));
         }
         // Dekker lenger opp er etasjeskillere inne i bygningen.
         return None;
@@ -1678,6 +1899,11 @@ mod tester {
     /// To yttervegger på 5 × 2,5 m med hver sin trekantgeometri, i millimeter.
     /// Sørveggen ligger ved y = −5 m, nordveggen ved y = +5 m.
     fn prove() -> String {
+        prove_med(&[(100, "Sorvegg", -5.0), (120, "Nordvegg", 5.0)])
+    }
+
+    /// Som `prove`, men med de veggene testen ber om: (entitetsnummer, navn, y i meter).
+    fn prove_med(vegger: &[(u64, &str, f64)]) -> String {
         let mut s = String::from(
             "ISO-10303-21;\nHEADER;ENDSEC;\nDATA;\n             #1= IFCSIUNIT(*,.LENGTHUNIT.,.MILLI.,.METRE.);\n             #2= IFCUNITASSIGNMENT((#1));\n             #3= IFCPROJECT('p',$,'Prosjekt',$,$,$,$,(#40),#2);\n             #4= IFCDIRECTION((0.,1.));\n             #40= IFCGEOMETRICREPRESENTATIONCONTEXT($,'Model',3,1.E-5,#50,#4);\n             #5= IFCSIUNIT(*,.LENGTHUNIT.,$,.METRE.);\n             #10= IFCBUILDING('b',$,'Testhus',$,$,#20,$,$,.ELEMENT.,$,$,$);\n             #20= IFCLOCALPLACEMENT($,#21);\n             #21= IFCAXIS2PLACEMENT3D(#22,$,$);\n             #22= IFCCARTESIANPOINT((0.,0.,0.));\n             #200= IFCPROPERTYSINGLEVALUE('ThermalTransmittance',$,IFCREAL(0.18),$);\n             #201= IFCPROPERTYSINGLEVALUE('IsExternal',$,IFCBOOLEAN(.T.),$);\n             #202= IFCPROPERTYSET('ps',$,'Pset_WallCommon',$,(#200,#201));\n             #300= IFCSPACE('s',$,'Stue',$,$,#20,$,'Stue',.ELEMENT.,.INTERNAL.,$);\n             #310= IFCQUANTITYAREA('NetFloorArea',$,$,100.0,$);\n             #311= IFCQUANTITYVOLUME('NetVolume',$,$,250.0,$);\n             #312= IFCELEMENTQUANTITY('q2',$,'BaseQuantities',$,$,(#310,#311));\n             #313= IFCRELDEFINESBYPROPERTIES('r3',$,$,$,(#300),#312);\n",
         );
@@ -1727,8 +1953,9 @@ mod tester {
                 p + 8
             ));
         };
-        vegg(100, "Sorvegg", -5.0);
-        vegg(120, "Nordvegg", 5.0);
+        for (nr, navn, y) in vegger {
+            vegg(*nr, navn, *y);
+        }
         s.push_str("ENDSEC;\nEND-ISO-10303-21;");
         s
     }
@@ -1774,6 +2001,24 @@ mod tester {
         );
     }
 
+    #[test]
+    fn samme_vegg_i_flere_etasjer_telles_en_gang() {
+        // Den samme veggen på nøyaktig samme sted to ganger, slik en eksport gjør når den
+        // legger de samme delene i flere etasjer.
+        let tekst = prove_med(&[
+            (100, "Sorvegg", -5.0),
+            (120, "Nordvegg", 5.0),
+            (140, "Sorvegg", -5.0),
+        ]);
+        let r = fra_tekst(&tekst, "prove").unwrap();
+        assert_eq!(r.bygning.flate.len(), 2, "flater: {:?}", r.bygning.flate);
+        assert!(
+            r.merknader.iter().any(|m| m.contains("dobbelt i modellen")),
+            "{:?}",
+            r.merknader
+        );
+    }
+
     #[test]
     fn vegger_faar_himmelretning_i_navnet() {
         let r = fra_tekst(&prove(), "prove").unwrap();
@@ -1921,6 +2166,20 @@ mod tester {
         assert!(r.merknader.iter().any(|m| m.contains("standardplassering")));
     }
 
+    #[test]
+    fn terrenget_leses_av_de_naermeste_punktene() {
+        // Et terreng som faller mot øst: bakken er høyere ved vestveggen enn ved østveggen.
+        let punkter: Vec<[f64; 3]> = (0..10)
+            .flat_map(|i| (0..10).map(move |j| [i as f64, j as f64, -1.0 - 0.2 * i as f64]))
+            .collect();
+        let vest = terreng_ved(&punkter, 0.5, 5.0).unwrap();
+        let ost = terreng_ved(&punkter, 8.5, 5.0).unwrap();
+        assert!(vest > ost, "vest {vest}, øst {ost}");
+        assert!((vest + 1.1).abs() < 0.2, "vest {vest}");
+        assert!((ost + 2.7).abs() < 0.2, "øst {ost}");
+        assert_eq!(terreng_ved(&[], 0.0, 0.0), None);
+    }
+
     #[test]
     fn grunnmur_over_terreng_av_hoydene() {
         // ±0 ligger 131,2 moh., terrenget 130,6 moh. og første etasje på ±0: 0,6 m over bakken.

src/inndata/ifcgeom.rs

@@ -27,6 +27,11 @@ pub struct Hovedflate {
     pub normal: [f64; 3],
     /// Utstrekning i flatens plan: (u_min, u_maks, v_min, v_maks), m.
     plan: [f64; 4],
+    /// Midlere høyde over delens eget nullpunkt, m. Sier hvilken etasje delen ligger i når
+    /// plasseringen i filen ikke gjør det.
+    pub hoyde: f64,
+    /// Øverste punkt over delens eget nullpunkt, m. For en kjellervegg er det overkant mur.
+    pub topp: f64,
 }
 
 impl Nett {
@@ -95,10 +100,23 @@ impl Nett {
         let (normal, sum) = grupper
             .into_iter()
             .max_by(|a, b| a.1.partial_cmp(&b.1).unwrap_or(std::cmp::Ordering::Equal))?;
+        let hoyde = if self.punkter.is_empty() {
+            0.0
+        } else {
+            self.punkter.iter().map(|p| p[2]).sum::<f64>() / self.punkter.len() as f64 * skala
+        };
+        let topp = self
+            .punkter
+            .iter()
+            .map(|p| p[2])
+            .fold(f64::NEG_INFINITY, f64::max)
+            * skala;
         Some(Hovedflate {
             areal: sum / 2.0,
             normal,
             plan: self.utstrekning(normal, skala),
+            hoyde,
+            topp: if topp.is_finite() { topp } else { 0.0 },
         })
     }
 
@@ -173,9 +191,21 @@ pub fn samlet_hovedflate(deler: &[Nett], skala: f64) -> Option<Hovedflate> {
             grupper.push(f);
         }
     }
-    let areal = grupper.iter().map(|g| g.areal).sum();
+    let areal: f64 = grupper.iter().map(|g| g.areal).sum();
+    // Arealvektet høyde, slik at et sammensatt dekke havner der mesteparten av det ligger.
+    let hoyde = if areal > 0.0 {
+        grupper.iter().map(|g| g.hoyde * g.areal).sum::<f64>() / areal
+    } else {
+        grupper[0].hoyde
+    };
+    let topp = grupper
+        .iter()
+        .map(|g| g.topp)
+        .fold(f64::NEG_INFINITY, f64::max);
     Some(Hovedflate {
         areal,
+        hoyde,
+        topp,
         ..grupper[0]
     })
 }
@@ -194,6 +224,22 @@ fn overlapper(a: &[f64; 4], b: &[f64; 4]) -> bool {
     dekning(a[0], a[1], b[0], b[1]) && dekning(a[2], a[3], b[2], b[3])
 }
 
+impl Hovedflate {
+    /// Omkretsen av flatens omriss, m, regnet av utstrekningen i flatens eget plan.
+    ///
+    /// Et gulv mot grunnen trenger omkretsen for B′ etter NS-EN ISO 13370. Omrisset regnes
+    /// som et rektangel, som stemmer godt for de fleste grunnflater.
+    pub fn omkrets(&self) -> f64 {
+        let bredde = self.plan[1] - self.plan[0];
+        let lengde = self.plan[3] - self.plan[2];
+        if bredde > 0.0 && lengde > 0.0 {
+            2.0 * (bredde + lengde)
+        } else {
+            0.0
+        }
+    }
+}
+
 /// Henter geometrien til et produkt via `Representation`, med én oppføring per geometridel.
 pub fn netter_for_produkt(fil: &Fil, representasjon: Option<u64>) -> Vec<Nett> {
     let mut deler = Vec::new();
@@ -546,6 +592,9 @@ mod tester {
         let h = n.hovedflate(1.0).unwrap();
         assert!((h.areal - 12.0).abs() < 1e-9, "areal ble {}", h.areal);
         assert!(h.normal[2].abs() > 0.99, "normal ble {:?}", h.normal);
+        // Midlere høyde er halve tykkelsen, og overkanten er tykkelsen.
+        assert!((h.hoyde - z / 2.0).abs() < 1e-9, "høyde ble {}", h.hoyde);
+        assert!((h.topp - z).abs() < 1e-9, "topp ble {}", h.topp);
     }
 
     /// Et hull i flaten skal trekkes fra, siden hullet mangler trekanter.

src/inndata/regneark.rs

@@ -215,6 +215,7 @@ pub fn fra_tekst(tekst: &str, standardnavn: &str) -> Result<Importrapport> {
         lufting: Lufting::default(),
         drift: Drift::default(),
         scenario: Vec::new(),
+        rapport: Rapport::default(),
     };
     Ok(Importrapport { bygning, merknader })
 }

src/modell/mod.rs

@@ -82,6 +82,26 @@ pub struct Bygning {
     pub drift: Drift,
     #[serde(default, skip_serializing_if = "Vec::is_empty")]
     pub scenario: Vec<Scenario>,
+    #[serde(default)]
+    pub rapport: Rapport,
+}
+
+/// Utseendet på rapporten, slik at den kan følge firmaets øvrige dokumenter.
+#[derive(Deserialize, Serialize, Clone, Debug, Default)]
+#[serde(deny_unknown_fields)]
+pub struct Rapport {
+    /// Logo på forsiden. Filen kopieres til utdatakatalogen ved siden av rapporten.
+    #[serde(default, skip_serializing_if = "Option::is_none")]
+    pub logo: Option<PathBuf>,
+    /// Aksentfarge, for eksempel «#880000». Utelatt: enoks egen.
+    #[serde(default, skip_serializing_if = "Option::is_none")]
+    pub farge: Option<String>,
+    /// Avsenderlinje nederst på hver side, for eksempel firma og organisasjonsnummer.
+    #[serde(default, skip_serializing_if = "Option::is_none")]
+    pub avsender: Option<String>,
+    /// Skrift for overskrifter. Utelatt: enoks egen.
+    #[serde(default, skip_serializing_if = "Option::is_none")]
+    pub skrift_overskrift: Option<String>,
 }
 
 #[derive(Deserialize, Serialize, Clone, Debug)]

src/rapport/typst_ut.rs

@@ -2,6 +2,7 @@
 
 use crate::kjor::Resultat;
 use crate::merking::skala::BOKSTAVER;
+use crate::modell::lost::Forutsetning;
 use crate::modell::{FlateType, Mot};
 use crate::rapport::svg;
 use crate::Result;
@@ -66,6 +67,12 @@ fn rad(celler: &[String]) -> String {
 pub fn skriv(r: &Resultat, katalog: &Path, scenarier: &[(String, Resultat)]) -> Result<()> {
     std::fs::create_dir_all(katalog)?;
     std::fs::write(katalog.join("stil.typ"), STIL)?;
+    // Logoen følger med, slik at rapporten kan kompileres for seg selv senere. Mangler
+    // filen, lages rapporten uten den.
+    if let (Some(logo), Some(navn)) = (&r.bygning.rapport.logo, logo_navn(r)) {
+        std::fs::copy(logo, katalog.join(navn))
+            .with_context(|| format!("kopierer logoen {}", logo.display()))?;
+    }
     std::fs::write(katalog.join("fig-maaned.svg"), svg::maanedsdiagram(r))?;
     std::fs::write(katalog.join("fig-varighet.svg"), svg::varighetskurve(r))?;
     std::fs::write(katalog.join("fig-karakter.svg"), svg::karakterstige(r))?;
@@ -100,15 +107,32 @@ fn kilde(r: &Resultat, scenarier: &[(String, Resultat)]) -> String {
     let mut s = String::new();
 
     s.push_str("#import \"stil.typ\": *\n\n");
-    s.push_str(&format!(
-        "#show: oppsett.with(tittel: \"{} — energirapport\", bunntekst: \"{}\")\n\n",
-        e(&l.navn),
-        e(&bunntekst(r))
-    ));
+    let rap = &r.bygning.rapport;
+    let mut valg = format!(
+        "tittel: \"{} — energirapport\", bunntekst: \"{}\"",
+        streng(&l.navn),
+        streng(&bunntekst(r))
+    );
+    if let Some(a) = &rap.avsender {
+        valg.push_str(&format!(", avsender: \"{}\"", streng(a)));
+    }
+    if let Some(f) = &rap.farge {
+        valg.push_str(&format!(", farge: rgb(\"{}\")", streng(f)));
+    }
+    if let Some(sk) = &rap.skrift_overskrift {
+        valg.push_str(&format!(", skrift: \"{}\"", streng(sk)));
+    }
+    s.push_str(&format!("#show: oppsett.with({valg})\n\n"));
 
     // ── forside ─────────────────────────────────────────────────────
+    if let Some(navn) = logo_navn(r) {
+        s.push_str(&format!(
+            "#align(right, image(\"{}\", height: 1.7cm))\n\n#v(-0.9cm)\n",
+            streng(&navn)
+        ));
+    }
     s.push_str(&format!(
-        "#v(1.2cm)\n#text(size: 26pt, weight: \"bold\")[Energirapport]\n\n\
+        "#v(1.2cm)\n#forsidetittel[Energirapport]\n\n\
          #v(-0.3em)\n#text(size: 15pt, fill: mid)[{}]\n\n",
         e(&l.navn)
     ));
@@ -414,7 +438,10 @@ fn kilde(r: &Resultat, scenarier: &[(String, Resultat)]) -> String {
 
     // ── inndata ─────────────────────────────────────────────────────
     s.push_str("#pagebreak()\n\n= Inndata\n\n== Bygningskropp\n\n");
-    s.push_str("#tabell(\n  kolonner: (1fr, auto, auto, auto, auto, auto),\n  justering: (left, left, right, right, right, left),\n  overskrift: (\"Bygningsdel\", \"Type\", \"Areal, m²\", \"U-verdi\", \"Orientering\", \"Mot\"),\n  rader: (\n");
+    s.push_str("#tabell(\n  kolonner: (1fr, auto, auto, auto, auto, auto, auto),\n  justering: (left, left, right, right, right, right, left),\n  overskrift: (\"Bygningsdel\", \"Type\", \"Antall\", \"Areal, m²\", \"U-verdi\", \"Orientering\", \"Mot\"),\n  rader: (\n");
+    // Like bygningsdeler står på én linje: modellen deler gjerne den samme konstruksjonen i
+    // mange like vinduer eller veggfelt, og da sier antallet mer enn én rad per stykk.
+    let mut samlet: Vec<(String, String, String, String, usize, f64)> = Vec::new();
     for f in &l.flater {
         let typ = if f.glass {
             "Vindu/dør"
@@ -430,15 +457,62 @@ fn kilde(r: &Resultat, scenarier: &[(String, Resultat)]) -> String {
             Mot::Grunn => "grunnen",
             Mot::Uoppvarmet => "uoppvarmet",
         };
+        let navn = f
+            .navn
+            .split(" #")
+            .next()
+            .unwrap_or(&f.navn)
+            .trim()
+            .to_string();
+        let nokkel = (
+            navn,
+            typ.to_string(),
+            tall(f.u_verdi, 2),
+            himmelretning(f.orientering, f.helning),
+            mot.to_string(),
+        );
+        match samlet.iter_mut().find(|(n, t, u, o, _, _)| {
+            (n.as_str(), t.as_str(), u.as_str(), o.as_str())
+                == (
+                    nokkel.0.as_str(),
+                    nokkel.1.as_str(),
+                    nokkel.2.as_str(),
+                    nokkel.3.as_str(),
+                )
+        }) {
+            Some((_, _, _, _, antall, areal)) => {
+                *antall += 1;
+                *areal += f.areal;
+            }
+            None => samlet.push((nokkel.0, nokkel.1, nokkel.2, nokkel.3, 1, f.areal)),
+        }
+        let _ = nokkel.4;
+    }
+    for (navn, typ, u, orientering, antall, areal) in &samlet {
+        let mot = l
+            .flater
+            .iter()
+            .find(|f| f.navn.split(" #").next().unwrap_or(&f.navn).trim() == navn)
+            .map(|f| match f.mot {
+                Mot::Ute => "det fri",
+                Mot::Grunn => "grunnen",
+                Mot::Uoppvarmet => "uoppvarmet",
+            })
+            .unwrap_or("det fri");
         s.push_str(&format!(
             "    {}\n",
             rad(&[
-                e(&f.navn),
-                typ.into(),
-                tall(f.areal, 1),
-                tall(f.u_verdi, 2),
-                himmelretning(f.orientering, f.helning),
-                mot.into()
+                e(navn),
+                typ.clone(),
+                if *antall > 1 {
+                    antall.to_string()
+                } else {
+                    String::new()
+                },
+                tall(*areal, 1),
+                u.clone(),
+                orientering.clone(),
+                mot.into(),
             ])
         ));
     }
@@ -473,14 +547,28 @@ fn kilde(r: &Resultat, scenarier: &[(String, Resultat)]) -> String {
     if l.forutsetninger.is_empty() {
         s.push_str("Alle inndata er oppgitt i bygningsbeskrivelsen.\n\n");
     } else {
-        s.push_str("#tabell(\n  kolonner: (auto, auto, 1fr),\n  justering: (left, left, left),\n  overskrift: (\"Felt\", \"Verdi\", \"Kilde\"),\n  rader: (\n");
-        for f in &l.forutsetninger {
+        s.push_str("#tabell(\n  kolonner: (1.25fr, 1fr, 1.15fr, auto, auto, auto, auto),\n  justering: (left, left, left, center, center, center, left),\n  overskrift: (\"Felt\", \"Verdi\", \"Gjelder\", \"Normert\", \"Byggeår\", \"Antatt\", \"Standard\"),\n  rader: (\n");
+        for f in grupper_forutsetninger(&l.forutsetninger) {
             s.push_str(&format!(
                 "    {}\n",
-                rad(&[e(&f.felt), e(&f.verdi), e(&f.kilde)])
+                rad(&[
+                    e(&f.felt),
+                    e(&f.verdi),
+                    e(&f.gjelder),
+                    kryss(f.normert),
+                    kryss(f.byggeaar),
+                    kryss(f.antatt),
+                    e(&f.standard),
+                ])
             ));
         }
         s.push_str("  ),\n)\n\n");
+        s.push_str(
+            "#merknad[*Normert* er standardverdier for bygningskategorien, som skal brukes i \
+             energimerket. *Byggeår* er typiske verdier for byggeperioden, brukt der modellen ikke \
+             oppgir noe. *Antatt* er satt av beregningen og bør kontrolleres. *Standard* viser \
+             hvilken standard verdien er regnet etter.]\n\n",
+        );
     }
     for m in &r.merknader {
         s.push_str(&format!("#merknad[{}]\n\n", e(m)));
@@ -530,14 +618,204 @@ fn kilde(r: &Resultat, scenarier: &[(String, Resultat)]) -> String {
     }
 
     s.push_str(&format!(
-        "\n#v(1em)\n#text(size: 8pt, fill: mid)[Beregnet med enok {} etter NS 3031:2025 (timesmetode, \
+        "\n#v(1em)\n#text(size: 8pt, fill: mid)[Beregnet {} med enok {} etter NS 3031:2025 (timesmetode, \
          NS-EN ISO 52016-1). Karakterskala fastsatt av Enova SF, gjeldende fra 1. januar 2026. \
          Klimadata: TMY for norske kommuner basert på CERRA 1991–2020 (CC-BY-4.0).]\n",
+        i_dag(),
         env!("CARGO_PKG_VERSION")
     ));
     s
 }
 
+/// Kilden uten tall, slik at «… av konstruksjonens 3,39 W/(m²K) og 1,29 m dybde» og den
+/// samme setningen for en annen vegg regnes som samme slags kilde.
+fn kildenokkel(kilde: &str) -> String {
+    let mut ut = String::with_capacity(kilde.len());
+    let mut i_tall = false;
+    for c in kilde.chars() {
+        if c.is_ascii_digit() {
+            if !i_tall {
+                ut.push('#');
+            }
+            i_tall = true;
+        } else {
+            i_tall = false;
+            ut.push(c);
+        }
+    }
+    ut
+}
+
+/// Tallet fremst i en verdi som «1.353 W/(m²K)», når verdien begynner med et tall.
+fn tallverdi(verdi: &str) -> Option<f64> {
+    let tall: String = verdi
+        .chars()
+        .take_while(|c| c.is_ascii_digit() || *c == '.' || *c == ',' || *c == '-')
+        .collect();
+    tall.replace(',', ".").parse().ok()
+}
+
+/// Slår to verdier med samme enhet sammen til et intervall, «1,21–1,39 W/(m²K)».
+fn slaa_sammen_intervall(a: &str, b: &str) -> String {
+    let enhet = a.trim_start_matches(|c: char| {
+        c.is_ascii_digit() || c == '.' || c == ',' || c == '-' || c == '–'
+    });
+    let mut tall: Vec<f64> = Vec::new();
+    for del in a.split('–').chain(b.split('–')) {
+        if let Some(t) = tallverdi(del.trim()) {
+            tall.push(t);
+        }
+    }
+    let minste = tall.iter().copied().fold(f64::INFINITY, f64::min);
+    let storste = tall.iter().copied().fold(f64::NEG_INFINITY, f64::max);
+    if (storste - minste).abs() < 5e-3 {
+        format!("{minste:.2}{enhet}")
+    } else {
+        format!("{minste:.2}–{storste:.2}{enhet}")
+    }
+}
+
+/// Norsk desimaltegn i tall, uten å røre tekst som «ISO 52016-1».
+fn komma(verdi: &str) -> String {
+    let mut ut = String::with_capacity(verdi.len());
+    let tegn: Vec<char> = verdi.chars().collect();
+    for (i, c) in tegn.iter().enumerate() {
+        let mellom_tall = i > 0
+            && i + 1 < tegn.len()
+            && tegn[i - 1].is_ascii_digit()
+            && tegn[i + 1].is_ascii_digit();
+        ut.push(if *c == '.' && mellom_tall { ',' } else { *c });
+    }
+    ut
+}
+
+fn kryss(på: bool) -> String {
+    if på {
+        "✓".into()
+    } else {
+        String::new()
+    }
+}
+
+/// En rad i forutsetningstabellen: like forutsetninger for mange bygningsdeler slås sammen.
+struct Forutsetningsrad {
+    felt: String,
+    verdi: String,
+    gjelder: String,
+    normert: bool,
+    byggeaar: bool,
+    antatt: bool,
+    standard: String,
+}
+
+/// Slår sammen forutsetninger som gjelder flere bygningsdeler, og deler kilden i kolonner.
+///
+/// «flate.Yttervegg nord.u_verdi» og «flate.Yttervegg sør.u_verdi» med samme verdi og kilde
+/// blir til én rad «flate.u_verdi» som gjelder 2 flater.
+fn grupper_forutsetninger(forutsetninger: &[Forutsetning]) -> Vec<Forutsetningsrad> {
+    let flertall = |prefiks: &str, antall: usize| match prefiks {
+        "flate" => format!("{antall} flater"),
+        "vindu" => format!("{antall} vinduer"),
+        "sone" => format!("{antall} soner"),
+        annet => format!("{antall} × {annet}"),
+    };
+    let mut rader: Vec<(String, String, String, Vec<String>, String)> = Vec::new();
+    for f in forutsetninger {
+        // «prefiks.navn.felt» deles i mønsteret «prefiks.felt» og navnet det gjelder.
+        let (prefiks, resten) = f.felt.split_once('.').unwrap_or(("", f.felt.as_str()));
+        let (navn, felt) = match resten.rsplit_once('.') {
+            Some((navn, felt)) => (navn.to_string(), felt.to_string()),
+            None => (String::new(), resten.to_string()),
+        };
+        let monster = if prefiks.is_empty() {
+            felt.clone()
+        } else {
+            format!("{prefiks}.{felt}")
+        };
+        match rader
+            .iter_mut()
+            .find(|(m, v, k, _, _)| *m == monster && *v == f.verdi && *k == f.kilde)
+        {
+            Some((_, _, _, navn_liste, _)) => navn_liste.push(navn),
+            None => rader.push((
+                monster,
+                f.verdi.clone(),
+                f.kilde.clone(),
+                vec![navn],
+                prefiks.to_string(),
+            )),
+        }
+    }
+    // Verdier som bare skiller seg litt, som en U-verdi mot grunnen regnet for hver vegg,
+    // samles til ett intervall i stedet for én rad per vegg.
+    let mut samlet: Vec<(String, String, String, Vec<String>, String)> = Vec::new();
+    for (felt, verdi, kilde, navn, prefiks) in rader {
+        // Kilden bærer ofte tallene for den enkelte veggen; de maskeres, slik at samme
+        // slags kilde kjennes igjen.
+        let like = samlet
+            .iter_mut()
+            .find(|(f, _, k, _, _)| *f == felt && kildenokkel(k) == kildenokkel(&kilde));
+        match like {
+            Some((_, v, _, n, _)) if tallverdi(v).is_some() && tallverdi(&verdi).is_some() => {
+                *v = slaa_sammen_intervall(v, &verdi);
+                n.extend(navn);
+            }
+            _ => samlet.push((felt, verdi, kilde, navn, prefiks)),
+        }
+    }
+    samlet
+        .into_iter()
+        .map(|(felt, verdi, kilde, navn, prefiks)| {
+            let gjelder = match navn.len() {
+                0 => String::new(),
+                1 if navn[0].is_empty() => String::new(),
+                1 => navn[0].clone(),
+                n => flertall(&prefiks, n),
+            };
+            let lav = kilde.to_lowercase();
+            let standard = [
+                "NS-EN ISO 13370",
+                "NS-EN ISO 13789",
+                "ISO 52016-1",
+                "NS 3031",
+            ]
+            .into_iter()
+            .find(|s| kilde.contains(s))
+            .unwrap_or("")
+            .to_string();
+            let normert = lav.contains("normert");
+            let byggeaar = lav.contains("typisk for");
+            Forutsetningsrad {
+                felt,
+                verdi: komma(&verdi),
+                gjelder,
+                normert,
+                byggeaar,
+                antatt: !normert && !byggeaar && standard.is_empty() || lav.contains("antatt"),
+                standard,
+            }
+        })
+        .collect()
+}
+
+/// Tekst i en Typst-strengliteral: bare omvendt skråstrek og anførselstegn skal ut.
+fn streng(s: &str) -> String {
+    s.replace('\\', "\\\\").replace('"', "\\\"")
+}
+
+/// Filnavnet på logoen, når den er oppgitt og finnes.
+fn logo_navn(r: &Resultat) -> Option<String> {
+    let logo = r.bygning.rapport.logo.as_ref()?;
+    if !logo.exists() {
+        eprintln!(
+            "  ! rapport.logo: fant ikke {}; rapporten lages uten logo.",
+            logo.display()
+        );
+        return None;
+    }
+    Some(logo.file_name()?.to_str()?.to_string())
+}
+
 fn bunntekst(r: &Resultat) -> String {
     let b = &r.bygning.bygning;
     let mut deler = Vec::new();
@@ -550,9 +828,34 @@ fn bunntekst(r: &Resultat) -> String {
     if let Some(e) = &b.energiraadgiver {
         deler.push(e.clone());
     }
+    deler.push(format!("enok {} · {}", env!("CARGO_PKG_VERSION"), i_dag()));
     deler.join(" · ")
 }
 
+/// Dagens dato som ISO-8601 i UTC.
+fn i_dag() -> String {
+    let sekunder = std::time::SystemTime::now()
+        .duration_since(std::time::UNIX_EPOCH)
+        .map(|d| d.as_secs() as i64)
+        .unwrap_or(0);
+    let (aar, maaned, dag) = dato_av_dagnummer(sekunder.div_euclid(86_400));
+    format!("{aar:04}-{maaned:02}-{dag:02}")
+}
+
+/// Kalenderdato av antall døgn siden 1970-01-01, etter Howard Hinnants algoritme.
+fn dato_av_dagnummer(dager: i64) -> (i64, i64, i64) {
+    let z = dager + 719_468;
+    let era = z.div_euclid(146_097);
+    let doe = z.rem_euclid(146_097);
+    let yoe = (doe - doe / 1460 + doe / 36_524 - doe / 146_096) / 365;
+    let doy = doe - (365 * yoe + yoe / 4 - yoe / 100);
+    let mp = (5 * doy + 2) / 153;
+    let dag = doy - (153 * mp + 2) / 5 + 1;
+    let maaned = if mp < 10 { mp + 3 } else { mp - 9 };
+    let aar = yoe + era * 400 + i64::from(maaned <= 2);
+    (aar, maaned, dag)
+}
+
 fn himmelretning(orientering: f64, helning: f64) -> String {
     if helning < 20.0 {
         return "horisontal".into();
@@ -566,3 +869,15 @@ fn himmelretning(orientering: f64, helning: f64) -> String {
     let i = (((orientering.rem_euclid(360.0)) + 22.5) / 45.0).floor() as usize % 8;
     retninger[i].into()
 }
+
+#[cfg(test)]
+mod tester {
+    use super::dato_av_dagnummer;
+
+    #[test]
+    fn dagnummer_gir_riktig_dato() {
+        assert_eq!(dato_av_dagnummer(0), (1970, 1, 1));
+        assert_eq!(dato_av_dagnummer(19_723), (2024, 1, 1));
+        assert_eq!(dato_av_dagnummer(20_351), (2025, 9, 20));
+    }
+}

typst/stil.typ

@@ -7,11 +7,32 @@
 #let lys         = rgb("#f4f1ee")
 #let kantlinje   = rgb("#ddd4cc")
 
+// Aksentfarge og overskriftsskrift kan settes av rapporten, slik at den kan følge
+// firmaets øvrige dokumenter. Verdiene under er enoks egne.
+#let aksent-valgt = state("aksent-valgt", aksent)
+#let skrift-valgt = state("skrift-valgt", none)
+
 #let font-heading = ("Libertinus Serif", "DejaVu Serif", "Noto Serif")
 #let font-body    = ("Libertinus Serif", "DejaVu Serif", "Noto Serif")
 #let font-tall    = ("DejaVu Sans Mono", "Liberation Mono")
 
-#let oppsett(tittel: "", undertittel: "", bunntekst: "", doc) = {
+/// Skriften rapporten har bedt om, ellers enoks egen.
+#let overskriftsskrift() = {
+  let valgt = skrift-valgt.get()
+  if valgt == none { font-heading } else { (valgt,) + font-heading }
+}
+
+#let oppsett(
+  tittel: "",
+  undertittel: "",
+  bunntekst: "",
+  avsender: "",
+  farge: none,
+  skrift: none,
+  doc,
+) = {
+  aksent-valgt.update(if farge == none { aksent } else { farge })
+  skrift-valgt.update(skrift)
   set page(
     paper: "a4",
     margin: (top: 2.4cm, bottom: 2.4cm, left: 2.2cm, right: 2.2cm),
@@ -20,32 +41,36 @@
         grid(
           columns: (1fr, auto),
           align: (left + horizon, right + horizon),
-          text(font: font-heading, size: 8pt, fill: mid)[#tittel],
+          text(font: overskriftsskrift(), size: 8pt, fill: mid)[#tittel],
           text(font: font-body, size: 8pt, fill: mid)[#counter(page).display()],
         )
         line(length: 100%, stroke: 0.4pt + kantlinje)
       }
     },
     footer: context {
-      if counter(page).get().first() > 1 and bunntekst != "" {
+      if counter(page).get().first() > 1 and (bunntekst != "" or avsender != "") {
         line(length: 100%, stroke: 0.4pt + kantlinje)
         v(3pt)
+        if avsender != "" {
+          text(font: font-body, size: 7.5pt, fill: mid)[#avsender]
+          linebreak()
+        }
         text(font: font-body, size: 7.5pt, fill: mid)[#bunntekst]
       }
     },
   )
   set text(font: font-body, size: 10pt, fill: moerk, lang: "nb")
   set par(justify: true, leading: 0.62em)
-  show heading: it => {
-    set text(font: font-heading, fill: aksent)
+  show heading: it => context {
+    set text(font: overskriftsskrift(), fill: aksent-valgt.get())
     block(above: 1.2em, below: 0.6em, it)
   }
-  show heading.where(level: 1): it => {
+  show heading.where(level: 1): it => context {
     set text(size: 15pt, weight: "bold")
     block(above: 1.6em, below: 0.7em)[
       #it.body
       #v(-0.45em)
-      #line(length: 100%, stroke: 1pt + aksent)
+      #line(length: 100%, stroke: 1pt + aksent-valgt.get())
     ]
   }
   show heading.where(level: 2): set text(size: 11.5pt, weight: "bold")
@@ -55,7 +80,8 @@
 }
 
 // Tabell med stripete rader og linje under overskriften.
-#let tabell(kolonner: (), overskrift: (), rader: (), justering: none, sum-rader: ()) = {
+#let tabell(kolonner: (), overskrift: (), rader: (), justering: none, sum-rader: ()) = context {
+  let aksent = aksent-valgt.get()
   let j = if justering == none { kolonner.map(_ => right) } else { justering }
   block(breakable: true, table(
     columns: kolonner,
@@ -71,6 +97,16 @@
   ))
 }
 
+// Tittelen på forsiden, i samme skrift og farge som overskriftene.
+#let forsidetittel(tekst) = context {
+  text(
+    font: overskriftsskrift(),
+    size: 26pt,
+    weight: "bold",
+    fill: aksent-valgt.get(),
+  )[#tekst]
+}
+
 // Stor karakterrute på forsiden.
 #let karakterrute(bokstav, verdi, farge) = {
   box(
@@ -99,3 +135,4 @@
   stroke: (left: 2pt + aksent-lys),
   text(size: 9pt)[#innhold],
 )
+