Xdiff = Xs - Xe
   X_fact = Xdiff / 480
   Xoff = 30 * X_fact
   X_offset = Xe - Xoff

   Ydiff = Ye - Ys
   Y_fact = Ydiff / 272
   Yoff = 30 * Y_fact
   Y_offset = Ys - Yoff

   Xo = X_offset
   Yo = Y_offset
   Xf = X_fact
   Yf = Y_fact

   Tx = Tx - X_offset
   Res = Tx / X_fact
   Touchx = Int(res)

   Ty = Ty - Y_offset
   Res = Ty / Y_fact
   Touchy = Int(res)

   If Touchx > 480 Or Touchy > 272 Then
      Touchx = 0
      Touchy = 0
      If Touch_test = 1 Then Lcd_tt_text "Error" , 200 , 50 , Red
   Else
      If Touch_test = 1 Then
         Lcd_tt_text "Read touch" , 170 , 50 , Red
         Call Lcd_fill_circle(touchx , Touchy , 10 , Red)
         Call Lcd_circle(touchx , Touchy , 40 , Red)
      End If
   End If

   Xdiff = Xs - Xe
   X_fact = Xdiff / 419                                     'podzielić na odległość między Xs a Xe  minus 1pix
   Xoff = 30 * X_fact                                       'razy współrzędna punku Xs
   X_offset = Xe - Xoff

   Ydiff = Ye - Ys
   Y_fact = Ydiff / 209                                     'podzielić na odległość między Ys a Ye  minus 1pix
   Yoff = 30 * Y_fact                                       'razy współrzędna punku Ys
   Y_offset = Ys - Yoff

   Xo = X_offset
   Yo = Y_offset
   Xf = X_fact
   Yf = Y_fact

   Tx = Tx - X_offset
   Res = Tx / X_fact
   Touchx = Int(res)

   Ty = Ty - Y_offset
   Res = Ty / Y_fact
   Touchy = Int(res)

   Touchx = 480 - Touchx
   Touchy = 272 - Touchy