00001 #!./FileReader
00002 %0-15,2,2;
00003 #
00004 # External curved track 0,1,8,9
00005 @C0=0.3630;
00006 #
00007 # Internal straight track 3,5,12,14
00008 @S1=0.2830;
00009 #
00010 # Internal curved track 4,6,11,13
00011 @C1=0.2855;
00012 #
00013 # Straight switch path
00014 @S2=0.1250;
00015 #
00016 # Curved switch path
00017 @C2=0.1258;
00018 #
00019 #
00020 $0:(C0),1,1,L(1),R(15),S(-1);
00021 $1:(C0),1,1,L(2),R(0),S(-1);
00022 #
00023 $2:(S2,C2),2,1,L(3,4),R(1),S(2,3);
00024 $3:(S1),1,1,L(5),R(2),S(-1,2);
00025 $4:(C1),1,1,L(6),R(2),S(-1,3);
00026 #
00027 $5:(S1),1,1,L(7),R(3),S(5,-1);
00028 $6:(C1),1,1,L(7),R(4),S(6,-1);
00029 $7:(S2,C2),1,2,L(8),R(5,6),S(1,2);
00030 #
00031 $8:(C0),1,1,L(9),R(7),S(-1);
00032 $9:(C0),1,1,L(10),R(8),S(-1);
00033 #
00034 $10:(S2,C2),2,1,L(12,11),R(9),S(6,7);
00035 $11:(C1),1,1,L(13),R(10),S(-1,7);
00036 $12:(S1),1,1,L(14),R(10),S(-1,6);
00037 #
00038 $13:(C1),1,1,L(15),R(11),S(5,-1);
00039 $14:(S1),1,1,L(15),R(12),S(4,-1);
00040 $15:(S2,C2),1,2,L(0),R(14,13),S(4,5);
00041 #
00042 # A straight = 1
00043 # A curved = 2
00044 # B straight = 4
00045 # B curved = 8
00046 # E straight = 16
00047 # E curved = 32
00048 # F straight = 64
00049 # F curved = 128
