Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1069 1506 (N29W11 L=116)  1032    315        0 ( 948/1401-1168/1601) -58.0 W05-W15 N20-N37
      2  728 1438 (N30E12 L= 92)  1315    285        3 ( 652/1319- 821/1547)  37.6 E18-E04 N23-N36
      3 1551 1500 (N20W44 L=149)   930    106        4 (1501/1450-1593/1537) -51.3 W40-W47 N16-N22
      4 1351 1487 (N22W29 L=134)   771    224        1 (1251/1447-1458/1526) -33.7 W23-W35 N18-N26
      5  432 1355 (N30E35 L= 69)  1385    292        5 ( 324/1307- 579/1395) -23.5 E46-E23 N24-N34
      6 1736 1285 (N04W51 L=156)   294     75        0 (1709/1250-1756/1320) -63.4 W49-W53 N02-N06
      7 1067 1226 (N12W06 L=110)   747    270        3 ( 956/1161-1134/1308)  28.6 E01-W10 N08-N15
      8 1745 1147 (S04W49 L=153)   297     97        0 (1736/1095-1754/1195)  71.6 W47-W50 S06-N00
      9 1828 1077 (S09W56 L=160)  1170    208        1 (1789/ 996-1868/1158)  48.4 W50-W61 S13-S04
     10 1901 1021 (S14W64 L=169)  1099    150        2 (1873/ 951-1924/1086)  58.0 W59-W67 S17-S09
     11  685  969 (N03E21 L= 84)   504    156        0 ( 608/ 952- 757/ 988) -12.5 E25-E16 N00-N03
     12 1702  939 (S15W42 L=147)   315     74        0 (1678/ 911-1732/ 961)  33.7 W40-W45 S16-S13
     13  726  889 (S02E20 L= 85)   267     86        0 ( 702/ 850- 750/ 928)  45.0 E21-E17 S04-N00
     14  903  900 (S05E09 L= 96)   359    164        0 ( 834/ 851- 950/ 925) -39.8 E12-E06 S08-S02
     15  428  765 (S05E42 L= 63)  1042    302        2 ( 352/ 625- 517/ 860) -78.7 E46-E38 S14-N01
     16 1517  786 (S21W27 L=132)  1329    273        1 (1411/ 718-1636/ 856)  16.4 W19-W36 S24-S18
     17  313  708 (S07E53 L= 51)  1810    435        9 ( 263/ 513- 375/ 850)  68.2 E57-E47 S19-N01
     18  696  759 (S10E24 L= 81)   654    256        1 ( 597/ 728- 792/ 810) -28.6 E29-E18 S12-S05
     19 1649  727 (S27W37 L=142)   305     54        1 (1611/ 710-1684/ 741) -26.6 W34-W40 S28-S25
     20  510  445 (S26E48 L= 57)   973    205        0 ( 438/ 378- 593/ 518)  15.9 E59-E38 S28-S22
     21 1412  306 (S55W19 L=124)   940    143        0 (1344/ 281-1486/ 339)   3.6 W11-W27 S56-S52
  

    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