mirror of
https://github.com/SHOGGOTH-SECTOR/sica-fondt.git
synced 2026-08-01 16:40:24 +00:00
Delete soul-tarot.ads
This commit is contained in:
GitHub
parent
e6204218c5
commit
c0f53b993d
@ -1,200 +0,0 @@
|
|||||||
-- Silicon Dawn Tarot encoding alphabet — 56-card identity system.
|
|
||||||
-- Thoth/Golden-Dawn rooted; Silicon Dawn (Egypt Urnash) retitlings applied.
|
|
||||||
--
|
|
||||||
-- Alphabet breakdown:
|
|
||||||
-- 31 Major Arcana (25 standard + 6 Silicon Dawn unique)
|
|
||||||
-- 20 Court/99 (4 suits × 5 positions: 99, King, Queen, Chevalier, P)
|
|
||||||
-- 5 (VOID) suit (Queen, King, Chevalier, Progeny, 0)
|
|
||||||
-- ──────────────
|
|
||||||
-- 56 total
|
|
||||||
--
|
|
||||||
-- Numbered minors (Ace–10) are in the deck but outside the encoding alphabet.
|
|
||||||
with Mafiabot_Types; use Mafiabot_Types;
|
|
||||||
|
|
||||||
package Soul.Tarot
|
|
||||||
with SPARK_Mode => On
|
|
||||||
is
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Major Arcana — 31 cards
|
|
||||||
|
|
||||||
type Major_Arcana is (
|
|
||||||
-- Standard 22 (0–XXI), Thoth-aligned titles
|
|
||||||
The_Fool, -- 0
|
|
||||||
The_Magician, -- I
|
|
||||||
The_High_Priestess, -- II
|
|
||||||
The_Empress, -- III
|
|
||||||
The_Emperor, -- IV
|
|
||||||
The_Hierophant, -- V
|
|
||||||
The_Lovers, -- VI
|
|
||||||
The_Chariot, -- VII
|
|
||||||
Adjustment, -- VIII (Thoth: Adjustment = Justice)
|
|
||||||
The_Hermit, -- IX
|
|
||||||
Fortune, -- X (Thoth: Fortune = Wheel)
|
|
||||||
Lust, -- XI (Thoth: Lust = Strength)
|
|
||||||
The_Hanged_Man, -- XII
|
|
||||||
Death, -- XIII
|
|
||||||
Art, -- XIV (Thoth: Art = Temperance)
|
|
||||||
The_Devil, -- XV
|
|
||||||
The_Tower, -- XVI
|
|
||||||
The_Star, -- XVII
|
|
||||||
The_Moon, -- XVIII
|
|
||||||
The_Sun, -- XIX
|
|
||||||
The_Aeon, -- XX (Thoth: Aeon = Judgement)
|
|
||||||
The_Universe, -- XXI (Thoth: Universe = World)
|
|
||||||
-- Silicon Dawn additions — 9 unique cards
|
|
||||||
SD_Maya, -- 8.5 (between VIII and IX)
|
|
||||||
SD_History, -- SD unique
|
|
||||||
SD_Virus, -- SD unique
|
|
||||||
SD_Achievement, -- SD unique
|
|
||||||
SD_Digital, -- SD unique
|
|
||||||
SD_Vulture_Mother, -- SD retitling of Death position (kept as alias)
|
|
||||||
SD_She_Is_Legend, -- SD retitling of Adjustment
|
|
||||||
SD_Schrodinger, -- SD unique
|
|
||||||
SD_Singularity -- SD unique
|
|
||||||
);
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Standard suits — court tier per suit: 99 > King > Queen > Chevalier > P
|
|
||||||
|
|
||||||
type Suit is (Wands, Cups, Swords, Pentacles);
|
|
||||||
|
|
||||||
-- P slot is Princess or Prince, gendered OPPOSITE to the element's gender.
|
|
||||||
-- (Silicon Dawn swapped mapping: Pentacles=Fire, Wands=Earth.)
|
|
||||||
type Court_Rank is (Ninety_Nine, King, Queen, Chevalier, P);
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- (VOID) suit — 5 cards: Queen > King > Chevalier > Progeny > Zero
|
|
||||||
|
|
||||||
type Void_Card is (Void_Queen, Void_King, Void_Chevalier, Void_Progeny,
|
|
||||||
Void_Zero);
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Unified card discriminated record
|
|
||||||
|
|
||||||
type Card_Kind is (Major, Court, Void_Suit);
|
|
||||||
|
|
||||||
type Card (Kind : Card_Kind := Major) is record
|
|
||||||
case Kind is
|
|
||||||
when Major => Major_Value : Major_Arcana := The_Fool;
|
|
||||||
when Court => Suit_Value : Suit := Wands;
|
|
||||||
Rank_Value : Court_Rank := Ninety_Nine;
|
|
||||||
when Void_Suit => Void_Value : Void_Card := Void_Zero;
|
|
||||||
end case;
|
|
||||||
end record;
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Full 56-card encoding alphabet
|
|
||||||
|
|
||||||
Total_Alphabet : constant := 56;
|
|
||||||
type Alphabet_Index is range 1 .. Total_Alphabet;
|
|
||||||
type Alphabet is array (Alphabet_Index) of Card;
|
|
||||||
|
|
||||||
-- The canonical alphabet (built at elaboration time)
|
|
||||||
Full_Alphabet : constant Alphabet;
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Big-Three — immutable personality anchors (Sun / Moon / Ascendant)
|
|
||||||
|
|
||||||
type Big_Three is record
|
|
||||||
Sun : Card;
|
|
||||||
Moon : Card;
|
|
||||||
Ascendant : Card;
|
|
||||||
end record;
|
|
||||||
|
|
||||||
-- Validate that three cards are distinct (Big-3 must not repeat)
|
|
||||||
function Big_Three_Distinct (B3 : Big_Three) return Boolean;
|
|
||||||
|
|
||||||
-- -----------------------------------------------------------------------
|
|
||||||
-- Working deck — 56 slots; entries may be "absent" (flagged by a sentinel)
|
|
||||||
|
|
||||||
type Slot_State is (Present, Absent);
|
|
||||||
|
|
||||||
type Deck_Slot is record
|
|
||||||
State : Slot_State := Absent;
|
|
||||||
Value : Card;
|
|
||||||
end record;
|
|
||||||
|
|
||||||
type Deck_Index is range 1 .. Total_Alphabet;
|
|
||||||
type Deck is array (Deck_Index) of Deck_Slot;
|
|
||||||
|
|
||||||
-- Build a full, ordered deck from the canonical alphabet
|
|
||||||
function Full_Deck return Deck;
|
|
||||||
|
|
||||||
-- Remove the three Big-3 cards from a deck (returns dynamic 53-card pool)
|
|
||||||
procedure Remove_Big_Three
|
|
||||||
(D : in out Deck;
|
|
||||||
B3 : in Big_Three;
|
|
||||||
Status : out Operation_Status);
|
|
||||||
|
|
||||||
-- Count present cards
|
|
||||||
function Present_Count (D : Deck) return Natural;
|
|
||||||
|
|
||||||
private
|
|
||||||
|
|
||||||
-- Build the canonical 56-card alphabet at compile time.
|
|
||||||
-- Order: 31 Majors, then 20 Court (suit-major order), then 5 VOID.
|
|
||||||
Full_Alphabet : constant Alphabet :=
|
|
||||||
(
|
|
||||||
-- Majors 1..31
|
|
||||||
1 => (Kind => Major, Major_Value => The_Fool),
|
|
||||||
2 => (Kind => Major, Major_Value => The_Magician),
|
|
||||||
3 => (Kind => Major, Major_Value => The_High_Priestess),
|
|
||||||
4 => (Kind => Major, Major_Value => The_Empress),
|
|
||||||
5 => (Kind => Major, Major_Value => The_Emperor),
|
|
||||||
6 => (Kind => Major, Major_Value => The_Hierophant),
|
|
||||||
7 => (Kind => Major, Major_Value => The_Lovers),
|
|
||||||
8 => (Kind => Major, Major_Value => The_Chariot),
|
|
||||||
9 => (Kind => Major, Major_Value => Adjustment),
|
|
||||||
10 => (Kind => Major, Major_Value => The_Hermit),
|
|
||||||
11 => (Kind => Major, Major_Value => Fortune),
|
|
||||||
12 => (Kind => Major, Major_Value => Lust),
|
|
||||||
13 => (Kind => Major, Major_Value => The_Hanged_Man),
|
|
||||||
14 => (Kind => Major, Major_Value => Death),
|
|
||||||
15 => (Kind => Major, Major_Value => Art),
|
|
||||||
16 => (Kind => Major, Major_Value => The_Devil),
|
|
||||||
17 => (Kind => Major, Major_Value => The_Tower),
|
|
||||||
18 => (Kind => Major, Major_Value => The_Star),
|
|
||||||
19 => (Kind => Major, Major_Value => The_Moon),
|
|
||||||
20 => (Kind => Major, Major_Value => The_Sun),
|
|
||||||
21 => (Kind => Major, Major_Value => The_Aeon),
|
|
||||||
22 => (Kind => Major, Major_Value => The_Universe),
|
|
||||||
23 => (Kind => Major, Major_Value => SD_Maya),
|
|
||||||
24 => (Kind => Major, Major_Value => SD_History),
|
|
||||||
25 => (Kind => Major, Major_Value => SD_Virus),
|
|
||||||
26 => (Kind => Major, Major_Value => SD_Achievement),
|
|
||||||
27 => (Kind => Major, Major_Value => SD_Digital),
|
|
||||||
28 => (Kind => Major, Major_Value => SD_Vulture_Mother),
|
|
||||||
29 => (Kind => Major, Major_Value => SD_She_Is_Legend),
|
|
||||||
30 => (Kind => Major, Major_Value => SD_Schrodinger),
|
|
||||||
31 => (Kind => Major, Major_Value => SD_Singularity),
|
|
||||||
-- Court cards 32..51 (Wands, Cups, Swords, Pentacles × 5 ranks)
|
|
||||||
32 => (Kind => Court, Suit_Value => Wands, Rank_Value => Ninety_Nine),
|
|
||||||
33 => (Kind => Court, Suit_Value => Wands, Rank_Value => King),
|
|
||||||
34 => (Kind => Court, Suit_Value => Wands, Rank_Value => Queen),
|
|
||||||
35 => (Kind => Court, Suit_Value => Wands, Rank_Value => Chevalier),
|
|
||||||
36 => (Kind => Court, Suit_Value => Wands, Rank_Value => P),
|
|
||||||
37 => (Kind => Court, Suit_Value => Cups, Rank_Value => Ninety_Nine),
|
|
||||||
38 => (Kind => Court, Suit_Value => Cups, Rank_Value => King),
|
|
||||||
39 => (Kind => Court, Suit_Value => Cups, Rank_Value => Queen),
|
|
||||||
40 => (Kind => Court, Suit_Value => Cups, Rank_Value => Chevalier),
|
|
||||||
41 => (Kind => Court, Suit_Value => Cups, Rank_Value => P),
|
|
||||||
42 => (Kind => Court, Suit_Value => Swords, Rank_Value => Ninety_Nine),
|
|
||||||
43 => (Kind => Court, Suit_Value => Swords, Rank_Value => King),
|
|
||||||
44 => (Kind => Court, Suit_Value => Swords, Rank_Value => Queen),
|
|
||||||
45 => (Kind => Court, Suit_Value => Swords, Rank_Value => Chevalier),
|
|
||||||
46 => (Kind => Court, Suit_Value => Swords, Rank_Value => P),
|
|
||||||
47 => (Kind => Court, Suit_Value => Pentacles, Rank_Value => Ninety_Nine),
|
|
||||||
48 => (Kind => Court, Suit_Value => Pentacles, Rank_Value => King),
|
|
||||||
49 => (Kind => Court, Suit_Value => Pentacles, Rank_Value => Queen),
|
|
||||||
50 => (Kind => Court, Suit_Value => Pentacles, Rank_Value => Chevalier),
|
|
||||||
51 => (Kind => Court, Suit_Value => Pentacles, Rank_Value => P),
|
|
||||||
-- VOID 52..56
|
|
||||||
52 => (Kind => Void_Suit, Void_Value => Void_Queen),
|
|
||||||
53 => (Kind => Void_Suit, Void_Value => Void_King),
|
|
||||||
54 => (Kind => Void_Suit, Void_Value => Void_Chevalier),
|
|
||||||
55 => (Kind => Void_Suit, Void_Value => Void_Progeny),
|
|
||||||
56 => (Kind => Void_Suit, Void_Value => Void_Zero)
|
|
||||||
);
|
|
||||||
|
|
||||||
end Soul.Tarot;
|
|
||||||
Loading…
x
Reference in New Issue
Block a user