Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1257 1669 (N37W30 L=238)   285     24        0 (1237/1645-1279/1688)  26.6 W28-W32 N35-N37
      2  896 1459 (N29E01 L=206)   677    180        1 ( 843/1401- 978/1494)  26.6 E04-W04 N25-N30
      3 1529 1466 (N19W42 L=249)   335     51        0 (1497/1450-1562/1485) -26.6 W39-W43 N17-N20
      4  722 1404 (N28E13 L=194)   793    185        1 ( 640/1363- 800/1452)   9.5 E19-E07 N26-N30
      5  389 1360 (N31E40 L=167)  1451    272        3 ( 263/1331- 518/1392) -14.5 E55-E28 N27-N35
      6 1888 1072 (S10W64 L=272)  2130    190        4 (1828/1006-1927/1156)  31.6 W56-W71 S13-S05
      7 1823  948 (S17W55 L=263)   528     71        1 (1791/ 922-1852/ 972) -33.7 W51-W58 S18-S14
      8 1743  796 (S25W47 L=254)  1322    277        0 (1663/ 711-1806/ 923)  40.2 W39-W53 S29-S17
      9 1472  871 (S15W25 L=233)   288     65        1 (1435/ 852-1508/ 891)   0.0 W22-W27 S16-S14
     10  947  848 (S08E07 L=200)   418    110        0 ( 912/ 799- 997/ 877)  26.6 E10-E04 S10-S06
     11 1627  792 (S23W36 L=244)   350     73        0 (1613/ 753-1648/ 835) -68.2 W35-W38 S25-S20
     12  569  564 (S20E38 L=169)   839    290        1 ( 461/ 507- 637/ 676)  21.8 E49-E29 S22-S13
     13  265  625 (S11E63 L=144)   578     47        0 ( 248/ 595- 283/ 652)  33.7 E66-E59 S13-S09
     14  421  489 (S22E54 L=153)   525     92        2 ( 396/ 447- 442/ 533)  78.7 E57-E50 S24-S19
     15  326  483 (S21E66 L=141)  1822    134        6 ( 279/ 432- 369/ 526) -56.3 E73-E59 S24-S18
  

    OPENR, u, binfile, /COMP, /GET_LUN
    head = FLTARR(6) ;[xsize,ysize,radius,hh,mm,ss]
    READU, u, head
    data = INTARR(FIX(head[0]),FIX(head[1]))
    READU, u, data
    FREE_LUN, u
    

• each filament has the value of Fil_ID
• all values are in pixel

  c = WHERE(data EQ Fil_ID, area)
  f = '(2(A,I6))'
  PRINT, FORM=f, "Area of Fil_ID", Fil_ID," =", area 

  data = ROTATE(data,7)
  Solar_y = 2048-Solar_y