Topic: GRVECS Transformation Matrix

[Lee Mac]

ElpanovEvgeniy,

Spurred on by your LW_ARC... I thought I'd make this 

Enjoy   

Code: [Select]

[color=#990099];; Text Editor by Lee McDonnell (Lee Mac)[/color]
[color=#990099];; 04.06.2009[/color]

[color=RED]([/color][color=BLUE]defun[/color] c:MacEdit [color=RED]([/color][color=BLUE]/[/color] fLst tEnt elst gr dis ang[color=RED])[/color]
  [color=RED]([/color][color=BLUE]setq[/color] fLst [color=DARKRED]'[/color][color=RED]([/color][color=#ff00ff]"HEIGHT"[/color] [color=#ff00ff]"OBLIQUE"[/color][color=RED])[/color][color=RED])[/color]
  [color=RED]([/color][color=BLUE]or[/color] Mac$fun [color=RED]([/color][color=BLUE]setq[/color] Mac$fun [color=#009900]0[/color][color=RED])[/color][color=RED])[/color]
  [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]and[/color] [color=RED]([/color][color=BLUE]setq[/color] tEnt [color=RED]([/color][color=BLUE]car[/color] [color=RED]([/color][color=BLUE]entsel[/color] [color=#ff00ff]"\nSelect Text Entity: "[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
           [color=RED]([/color][color=BLUE]wcmatch[/color] [color=RED]([/color][color=BLUE]cdadr[/color] [color=RED]([/color][color=BLUE]setq[/color] elst [color=RED]([/color][color=BLUE]entget[/color] tEnt[color=RED])[/color][color=RED])[/color][color=RED])[/color] [color=#ff00ff]"*TEXT"[/color][color=RED])[/color]
    [color=RED]([/color][color=BLUE]princ[/color] [color=RED]([/color][color=BLUE]strcat[/color] [color=#ff00ff]"\n<< Mode: "[/color] [color=RED]([/color][color=BLUE]nth[/color] Mac$fun fLst[color=RED])[/color] [color=#ff00ff]" >>"[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
    [color=RED]([/color][color=BLUE]while[/color] [color=RED]([/color][color=BLUE]or[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=RED]([/color][color=BLUE]car[/color] [color=RED]([/color][color=BLUE]setq[/color] gr [color=RED]([/color][color=BLUE]grread[/color] [color=BLUE]t[/color] [color=#009900]5[/color] [color=#009900]0[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color] [color=#009900]5[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]and[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=RED]([/color][color=BLUE]car[/color] gr[color=RED])[/color] [color=#009900]2[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=#009900]9[/color] [color=RED]([/color][color=BLUE]cadr[/color] gr[color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
      [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]and[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=#009900]2[/color] [color=RED]([/color][color=BLUE]car[/color] gr[color=RED])[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=#009900]9[/color] [color=RED]([/color][color=BLUE]cadr[/color] gr[color=RED])[/color][color=RED])[/color][color=RED])[/color]
        [color=RED]([/color][color=BLUE]progn[/color]
          [color=RED]([/color][color=BLUE]setq[/color] Mac$fun [color=RED]([/color][color=BLUE]-[/color] [color=#009900]1[/color] Mac$fun[color=RED])[/color][color=RED])[/color]
          [color=RED]([/color][color=BLUE]princ[/color] [color=RED]([/color][color=BLUE]strcat[/color] [color=#ff00ff]"\n<< Mode: "[/color] [color=RED]([/color][color=BLUE]nth[/color] Mac$fun fLst[color=RED])[/color] [color=#ff00ff]" >>"[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
      [color=RED]([/color][color=BLUE]if[/color] [color=RED]([/color][color=BLUE]and[/color] [color=RED]([/color][color=BLUE]eq[/color] [color=#009900]5[/color] [color=RED]([/color][color=BLUE]car[/color] gr[color=RED])[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]listp[/color] [color=RED]([/color][color=BLUE]cadr[/color] gr[color=RED])[/color][color=RED])[/color][color=RED])[/color]
        [color=RED]([/color][color=BLUE]cond[/color] [color=RED]([/color][color=RED]([/color][color=BLUE]eq[/color] [color=#009900]0[/color] Mac$fun[color=RED])[/color]
               [color=RED]([/color][color=BLUE]setq[/color] dis [color=RED]([/color][color=BLUE]abs[/color] [color=RED]([/color][color=BLUE]-[/color] [color=RED]([/color][color=BLUE]cadadr[/color] gr[color=RED])[/color] [color=RED]([/color][color=BLUE]caddr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]10[/color] elst[color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]entmod[/color]
                 [color=RED]([/color][color=BLUE]subst[/color]
                   [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]40[/color] dis[color=RED])[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]40[/color] elst[color=RED])[/color] elst[color=RED])[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]entupd[/color] [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]-1[/color] elst[color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
              [color=RED]([/color][color=RED]([/color][color=BLUE]eq[/color] [color=#009900]1[/color] Mac$fun[color=RED])[/color]
               [color=RED]([/color][color=BLUE]setq[/color] ang [color=RED]([/color][color=BLUE]-[/color] [color=RED]([/color][color=BLUE]/[/color] [color=BLUE]pi[/color] [color=#009999]2.[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]angle[/color] [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]10[/color] elst[color=RED])[/color][color=RED])[/color] [color=RED]([/color][color=BLUE]cadr[/color] gr[color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]entmod[/color]
                 [color=RED]([/color][color=BLUE]subst[/color]
                   [color=RED]([/color][color=BLUE]cons[/color] [color=#009900]51[/color] ang[color=RED])[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]51[/color] elst[color=RED])[/color] elst[color=RED])[/color][color=RED])[/color]
               [color=RED]([/color][color=BLUE]entupd[/color] [color=RED]([/color][color=BLUE]cdr[/color] [color=RED]([/color][color=BLUE]assoc[/color] [color=#009900]-1[/color] elst[color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color][color=RED])[/color]
  [color=RED]([/color][color=BLUE]princ[/color][color=RED])[/color][color=RED])[/color]