Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  866 1807 (N37E40 L=138)   584     40        0 ( 836/1788- 896/1827)  -8.1 E43-E36 N35-N38
      2  822 1739 (N31E37 L=141)   462     49        1 ( 801/1709- 849/1762) -63.4 E39-E34 N28-N32
      3  992 1562 (N24E18 L=160)   349    170        0 ( 965/1481-1035/1631) -35.0 E22-E12 N19-N27
      4 1650 1614 (N53W31 L=209)   458     43        1 (1623/1595-1677/1630)  20.6 W27-W35 N50-N54
      5  287 1529 (N06E69 L=109)   708    114        0 ( 260/1466- 313/1577) -74.1 E71-E66 N01-N08
      6  587 1525 (N11E41 L=137)   371     61        1 ( 553/1497- 616/1546)   0.0 E43-E38 N09-N12
      7  496 1436 (N04E44 L=135)   304     59        1 ( 469/1416- 520/1460)  45.0 E45-E41 N02-N05
      8  242 1402 (S03E66 L=112)   578     65        1 ( 214/1385- 277/1422)   0.0 E71-E61 S03-S01
      9  520 1333 (S01E38 L=140)   503    151        0 ( 499/1267- 534/1411) -69.4 E40-E36 S05-N03
     10  283 1258 (S11E55 L=123)   314     61        0 ( 270/1223- 300/1293) -38.7 E57-E52 S12-S08
     11 1411 1170 (N13W18 L=196)   462    190        1 (1374/1075-1429/1238) -66.0 W13-W19 N07-N16
     12  298 1055 (S22E49 L=130)   343     84        1 ( 279/1014- 320/1096) -38.7 E50-E45 S23-S19
     13  619  987 (S18E22 L=156)   987    260        1 ( 500/ 905- 702/1065)  52.4 E29-E18 S25-S11
     14 1853  925 (N14W58 L=236)   421     65        2 (1840/ 889-1871/ 952)  76.0 W56-W60 N11-N15
     15 1789  853 (N08W54 L=232)   385     55        0 (1775/ 818-1801/ 886) -45.0 W51-W55 N06-N09
     16 1856  820 (N09W62 L=240)   431     25        1 (1838/ 799-1875/ 842)  90.0 W60-W65 N07-N09
     17  927  785 (S21W01 L=179)  1465    382        2 ( 765/ 740-1120/ 829)  39.5 E07-W10 S28-S14
     18  410  668 (S43E34 L=144)   586    170        1 ( 350/ 624- 492/ 704)  31.0 E41-E26 S47-S38
     19 1557  622 (S12W45 L=223)   464    151        0 (1512/ 561-1597/ 692)  90.0 W43-W46 S15-S06
     20 1341  520 (S24W35 L=214)   452    114        0 (1286/ 496-1399/ 539)  45.0 W32-W38 S26-S21
     21 1727  472 (S13W70 L=248)  1577    128        4 (1689/ 424-1779/ 519)  49.4 W66-W77 S16-S09
     22 1273  418 (S32W37 L=215)   264     66        0 (1247/ 398-1308/ 446)   0.0 W34-W40 S32-S30
     23 1126  229 (S49W45 L=223)  1846    299        2 ( 992/ 168-1226/ 311)   1.7 W27-W61 S50-S45
  

    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