Room & Dimension

version 1 by Sebastian Rahn

  • Home page
  • Beginning
  • Previous
  • Next



  • Section 1.5 - Calculate coordinates

    Every thing has a number called X-Axis.
    Every thing has a text called Y-Axis.

    Tmp_Height is a number that varies.

    To calculate coordinates:
    Choose row with Sector Room of the location of Compass in Table 997;
    Change Table_Location to Table Entry;
    Choose row 1 in Table_Location;
    Change Tmp_Width to Width Entry;
    Change Tmp to Height Entry;
    Change Tmp_Height to Height Entry;
    repeat with X running from 1 to Tmp
    begin;
    If tmp_Width > 17
    begin;
    Choose row with Sector Room of the location of Compass in Table 997;
    Change Table_Location to Table Entry;
    end if;
    choose row X in Table_Location;
    If Compass is LE Entry
    begin;
    Change Y-Axis of Compass to "LE";
    Change X-Axis of Compass to Number Entry;
    end if;
    If Tmp_Width > 2
    begin;
    If Compass is A1 Entry
    begin;
    Change Y-Axis of Compass to "A";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 3
    begin;
    If Compass is B2 Entry
    begin;
    Change Y-Axis of Compass to "B";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 4
    begin;
    If Compass is C3 Entry
    begin;
    Change Y-Axis of Compass to "C";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 5
    begin;
    If Compass is D4 Entry
    begin;
    Change Y-Axis of Compass to "D";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 6
    begin;
    If Compass is E5 Entry
    begin;
    Change Y-Axis of Compass to "E";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 7
    begin;
    If Compass is F6 Entry
    begin;
    Change Y-Axis of Compass to "F";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 8
    begin;
    If Compass is G7 Entry
    begin;
    Change Y-Axis of Compass to "G";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 9
    begin;
    If Compass is H8 Entry
    begin;
    Change Y-Axis of Compass to "H";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 10
    begin;
    If Compass is I9 Entry
    begin;
    Change Y-Axis of Compass to "I";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 11
    begin;
    If Compass is J10 Entry
    begin;
    Change Y-Axis of Compass to "J";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 12
    begin;
    If Compass is K11 Entry
    begin;
    Change Y-Axis of Compass to "K";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 13
    begin;
    If Compass is L12 Entry
    begin;
    Change Y-Axis of Compass to "L";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 14
    begin;
    If Compass is M13 Entry
    begin;
    Change Y-Axis of Compass to "M";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 15
    begin;
    If Compass is N14 Entry
    begin;
    Change Y-Axis of Compass to "N";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 16
    begin;
    If Compass is O15 Entry
    begin;
    Change Y-Axis of Compass to "O";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 17
    begin;
    If Compass is P16 Entry
    begin;
    Change Y-Axis of Compass to "P";
    Change X-Axis of Compass to Number Entry;
    end if;
    Choose row with Sector Room of the location of Compass in Table 997;
    Change Table_Location to Table 2 Entry;
    Choose row X in Table_Location;
    end if;
    If Tmp_Width > 18
    begin;
    If Compass is Q17 Entry
    begin;
    Change Y-Axis of Compass to "Q";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 19
    begin;
    If Compass is R18 Entry
    begin;
    Change Y-Axis of Compass to "R";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 20
    begin;
    If Compass is S19 Entry
    begin;
    Change Y-Axis of Compass to "S";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 21
    begin;
    If Compass is T20 Entry
    begin;
    Change Y-Axis of Compass to "T";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 22
    begin;
    If Compass is U21 Entry
    begin;
    Change Y-Axis of Compass to "U";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 23
    begin;
    If Compass is V22 Entry
    begin;
    Change Y-Axis of Compass to "V";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 24
    begin;
    If Compass is W23 Entry
    begin;
    Change Y-Axis of Compass to "W";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 25
    begin;
    If Compass is X24 Entry
    begin;
    Change Y-Axis of Compass to "X";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 26
    begin;
    If Compass is Y25 Entry
    begin;
    Change Y-Axis of Compass to "Y";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 27
    begin;
    If Compass is Z26 Entry
    begin;
    Change Y-Axis of Compass to "Z";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    If Tmp_Width > 1
    begin;
    If Compass is RE Entry
    begin;
    Change Y-Axis of Compass to "RE";
    Change X-Axis of Compass to Number Entry;
    end if;
    end if;
    end repeat.