functions  example  fin  message

tt1[x_, 
        y_] := {{1, 0, 0}, {0, 1, 0}, {x, y, 1}}
rr1[ψ_] := {{Cos[ψ], Sin[ψ], 0}, {-Sin[ψ], 
          Cos[ψ], 0}, {0, 0, 1}}
ss1[a_, b_] := {{a, 0, 0}, {0, b, 0}, {0, 0, 1}}

\(\(\(zh01[d0_, n_] := 
      Table[Join[d0[\([i]\)], {1}], {i, n}] (*to\ add\ 1*) 

    zh10[d1_, n_] := 
      Table[Drop[d1[\([i]\)], \(-1\)], {i, 
          n}]\)\(\ \)\( (*to\ remove\ 1*) \)\)\)

zu0 = 
      Show[Graphics[Text["SST", {0.1, 0}]], 
        PlotRange ->  {{-10, 50}, {-20, 50}}]

bye-bye

paran = {n1 ->  {{5, 10}, {8, 25}, {10, 40}, {20, 40}, {29, 
                39}, {30, 34}, {25, 28}, {16, 26}, {12, 25}, {16, 24}, {22, 
                22}, {25, 18}, {18, 10}, {7, 10}}, 
          n2 ->  {{24, 5}, {28, 6}, {32, 12}, {35, 16}, {36, 21}, {35, 
                16}, {32, 12}, {31, 17}, {28, 21}}, 
          n3 ->  {{44, 11}, {40, 11}, {38, 15}, {39, 18}, {43, 
                21}, {46, 19}, {44, 16}, {41, 
                16}}};
nod1 = Join[n1, n2, n3] /. paran
nd1 = Length[nod1]

noda = 
        Join[nod1, 
          Table[nod1[[i]] + {52, 0}, {i, 
              nd1}]];
nd = Length[noda]

Table[
      Length[Join[n1, n2] /. paran] + i, {i, Length[n3 /. paran]}]

parae = {e1 -> Table[i, {i, Length[n1 /. paran]}], 
          e2 -> 
            Table[Length[n1 /. paran] + i, {i, Length[n2 /. paran]}], 
          e3 -> 
            Table[Length[Join[n1, n2] /. paran] + i, {i, 
                Length[n3 /. paran]}], 
          e4 -> Table[nd1 + i, {i, Length[n1 /. paran]}], 
          e5 -> 
            Table[nd1 + Length[n1 /. paran] + i, {i, Length[n2 /. paran]}], 
          e6 -> 
            Table[nd1 + Length[Join[n1, n2] /. paran] + i, {i, 
                Length[n3 /. paran]}]};
elea = {e1, e2, e3, e4, e5, e6} /. parae
ne = Length[elea]
nl := je ->  Length[ele[[i]]]

dat = 
      Table[noda[[elea[[i, j]]]], {i, ne}, {j, 
          Length[elea[[i]]]}]

Table[
      Graphics[{Hue[0.9], Thickness[0.02], Line[dat[[i]]]}], {i, 
        ne}]
Show[%, AspectRatio -> Automatic]

film fin

ta = 
        rr1[30 °] . ss1[1, 1] . 
          tt1[0, 0];
noda1 = zh01[noda, nd] . ta;
nodat = zh10[noda1, nd];
datt = 
        Table[noda[[elea[[i, j]]]], {i, ne}, {j, 
            Length[elea[[i]]]}];
Table[
      Graphics[{Hue[0.9], Thickness[0.02], Line[dat[[i]]]}], {i, 
        ne}]

dfin[x_, y_, ψ_, a_, 
        b_]:={ta = rr1[ψ] . ss1[a, b] . tt1[x, y]; 
        noda1 = zh01[noda, nd] . ta; 
        nodat = zh10[noda1, nd]; 
datt = 
          Table[nodat[[elea[[i, j]]]], {i, ne}, {j, 
              Length[elea[[i]]]}]; 
Table[
          Graphics[{Hue[0.9], Thickness[0.015], Line[datt[[i]]]}], {i, 
            ne}]}

dfin[0, 0, 30  °, 1, 1]
Show[%]

film fin bye-bye

zuall = 
      Table[Show[zu0, 
          dfin[0, 0, 30 ° Sin[2 Pi t], 0.5, 0.5]], {t, 0, 1, 
          0.05}]

zuall = 
      Table[Show[dfin[0, 0, 30 ° Sin[2 Pi t], 0.5, 0.5], 
          zu0], {t, 0, 1, 0.05}]