Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  857 1580 (N38E01 L=107)   371    110        1 ( 814/1542- 908/1603)  -9.5 E03-W03 N35-N39
      2 1420 1343 (N13W30 L=138)   585    157        0 (1345/1297-1503/1380) -37.9 W25-W34 N08-N16
      3 1323 1268 (N10W22 L=130)   196     67        0 (1310/1229-1337/1305) -90.0 W21-W22 N07-N12
      4 1789 1252 (N01W56 L=164)   559    107        1 (1762/1212-1822/1298) -78.7 W54-W60 S01-N04
      5  849 1177 (N13E08 L=100)   191     83        0 ( 830/1144- 881/1222) -78.7 E08-E06 N10-N15
      6 1624 1073 (S06W38 L=146)   880    258        3 (1559/ 946-1658/1193)  56.3 W31-W41 S12-N00
      7 1807 1137 (S06W55 L=163)   562    213        1 (1741/1109-1868/1164) -18.4 W49-W61 S08-S03
      8 1863 1003 (S15W59 L=167)  1908    333       10 (1816/ 916-1900/1087) -90.0 W53-W63 S20-S09
      9  444 1045 (N12E36 L= 72)   640    192        2 ( 366/1021- 530/1072)  -9.5 E41-E29 N09-N13
     10 1400 1034 (S05W22 L=130)   496    155        3 (1344/ 993-1467/1070) -35.5 W19-W26 S08-S02
     11 1773 1032 (S11W50 L=158)   347     48        0 (1756/1002-1794/1064)  71.6 W48-W51 S12-S09
     12 1715  974 (S14W44 L=152)   262     87        3 (1698/ 947-1743/1005) -53.1 W42-W46 S15-S11
     13  830  945 (S00E13 L= 95)   224     77        1 ( 806/ 908- 856/ 980) -63.4 E13-E11 S02-N02
     14  615  926 (N02E26 L= 82)   218     55        2 ( 595/ 894- 639/ 948)  45.0 E27-E24 N00-N03
     15 1759  908 (S18W47 L=155)   474    100        2 (1718/ 881-1799/ 939)   0.0 W43-W51 S19-S16
     16 1753  804 (S25W46 L=154)  1258    390        3 (1619/ 773-1857/ 871)   2.7 W34-W56 S26-S22
     17 1286  762 (S19W11 L=119)   293    100        3 (1263/ 722-1312/ 796) -68.2 W10-W12 S21-S16
     18 1780  691 (S33W49 L=157)  1929    354        2 (1651/ 602-1880/ 792)  17.7 W37-W59 S36-S27
     19  861  671 (S17E16 L= 92)   255    103        0 ( 814/ 636- 894/ 693) -31.0 E19-E14 S19-S15
     20  255  605 (S11E65 L= 43)   535    112        1 ( 234/ 577- 276/ 636)  23.2 E68-E60 S12-S09
     21  310  533 (S16E62 L= 46)  1470    253        2 ( 270/ 446- 352/ 598)  73.3 E66-E58 S22-S12
  

    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