Post Reply 
Result justified?
06-07-2015, 11:09 PM
Post: #3
RE: Result justified?
Not sure if anything here will answer your question:

Code:

EXPORT KorTrans()
BEGIN
  LOCAL X,Y,φ,Xs,Ys;
  local black:=rgb(0,0,0);

//  Home variable settings
  HAngle:=1;  //  Set angle mode to degrees
  HDigits:=2; //  Set Digits to 2

  RECT_P();

  INPUT({{X,[0],{20,15,0}},
        {Y,[0],{20,15,1}},
        {φ,[0],{20,15,2}}},
        "Koordinatentransformation",
        {"X [KN]","Y [KN]","φ [°]"},
        {"","",""});

  Xs:=ROUND((X*COS(φ)-Y*SIN(φ)),2);  //  Angle mode is degrees
  Ys:=ROUND((X*SIN(φ)+Y*COS(φ)),2);

  TEXTOUT_P(Xs,150,25);  
  TEXTOUT_P(Ys,150,50);

//  Generate the right side vertical bar
  line_p(183,22,183,65);  
  line_p(184,22,184,65);
  line_p(185,22,185,65);

  FREEZE;
END;


Attached File(s) Thumbnail(s)
   
Find all posts by this user
Quote this message in a reply
Post Reply 


Messages In This Thread
Result justified? - Heino - 06-07-2015, 07:54 PM
RE: Result justified? - Heino - 06-07-2015, 07:58 PM
RE: Result justified? - DrD - 06-07-2015 11:09 PM
RE: Result justified? - Heino - 06-08-2015, 09:07 AM
RE: Result justified? - eried - 06-08-2015, 05:46 PM
RE: Result justified? - Heino - 06-08-2015, 07:28 PM
RE: Result justified? - DrD - 06-08-2015, 09:23 PM



User(s) browsing this thread: 1 Guest(s)