Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1741 (N48W38 L=182)  1850    348        2 (1092/1704-1401/1772) -21.8 W25-W50 N41-N52
      2 1595 1716 (N36W74 L=218)   851     63        0 (1570/1687-1624/1736)   3.0 W66-W85 N34-N36
      3 1141 1616 (N41W22 L=167)   273     60        0 (1118/1594-1183/1629) -11.3 W20-W25 N39-N42
      4 1322 1604 (N36W35 L=180)   521    101        2 (1281/1578-1369/1625) -51.3 W32-W39 N33-N38
      5 1616 1383 (N16W47 L=192)   931    262        1 (1504/1334-1707/1411) -25.0 W38-W54 N11-N19
      6 1327 1186 (N11W21 L=166)   808    253        1 (1225/1142-1426/1228) -17.1 W15-W28 N07-N14
      7 1878 1085 (S07W64 L=209)  3856    305       11 (1813/ 985-1930/1172)  20.2 W54-W74 S12-S02
      8  315 1048 (N17E49 L= 95)   663    123        1 ( 284/ 994- 346/1106) -60.3 E52-E46 N13-N20
      9  719 1026 (N11E19 L=126)   390    117        0 ( 691/ 974- 738/1083)  56.3 E21-E16 N08-N14
     10 1330 1016 (N01W18 L=163)   621    247        0 (1222/ 985-1444/1034)  -4.1 W11-W25 S01-N02
     11 1780  969 (S11W51 L=196)   375     48        1 (1763/ 944-1801/ 996) -76.0 W49-W53 S13-S09
     12 1540  910 (S09W30 L=175)  1187    188        6 (1456/ 859-1625/ 974)  -9.5 W24-W36 S11-S06
     13  849  939 (N04E12 L=133)   238     56        1 ( 825/ 916- 877/ 967) -56.3 E13-E10 N02-N05
     14 1424  857 (S10W22 L=166)   496    111        2 (1387/ 807-1458/ 898)  80.5 W19-W24 S13-S07
     15 1363  840 (S10W18 L=162)   339     51        2 (1344/ 806-1383/ 877)  78.7 W16-W18 S12-S07
     16  343  743 (S02E51 L= 93)  1418    310        2 ( 303/ 640- 380/ 872)  85.9 E56-E47 S08-N06
     17 1530  819 (S15W29 L=173)   611    152        2 (1495/ 736-1557/ 870)  54.5 W25-W31 S19-S11
     18  500  579 (S14E43 L=102)  1654    285        4 ( 428/ 497- 580/ 691) -66.8 E46-E39 S19-S05
     19  586  624 (S12E35 L=110)   378     67        1 ( 557/ 603- 621/ 656) -45.0 E36-E32 S13-S09
     20  711  635 (S12E26 L=118)   225     54        0 ( 680/ 620- 735/ 651)  14.0 E28-E24 S13-S11
     21 1585  598 (S31W32 L=177)  1066    154        2 (1529/ 530-1632/ 650)  33.7 W27-W36 S34-S27
     22  342  599 (S11E57 L= 88)   457     72        1 ( 318/ 565- 365/ 628)  78.7 E59-E54 S13-S08
     23  751  516 (S21E27 L=118)   244     55        2 ( 721/ 490- 781/ 533)   0.0 E28-E24 S22-S19
     24  590  445 (S24E42 L=103)   312     67        0 ( 574/ 416- 606/ 480)  38.7 E44-E38 S25-S21
     25  397  378 (S27E68 L= 76)   740     51        0 ( 374/ 351- 418/ 401) -90.0 E71-E65 S29-S25
     26  718  369 (S31E35 L=109)   360     48        1 ( 689/ 356- 754/ 386)   0.0 E37-E32 S32-S29
     27 1362  242 (S58W14 L=159)   460     43        0 (1337/ 224-1389/ 258)   9.5 W11-W17 S59-S55
     28 1097  222 (S52E14 L=131)   759     67        1 (1067/ 191-1125/ 250) -63.4 E16-E10 S54-S47
  

    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