Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1172 1669 (N41W33 L=239)   461     72        0 (1131/1652-1211/1684) -26.6 W29-W36 N38-N42
      2 1691 1498 (N14W61 L=267)   504     94        1 (1670/1470-1737/1532) -59.0 W58-W65 N11-N16
      3 1444 1497 (N22W41 L=247)   257     39        1 (1419/1480-1470/1519) -71.6 W39-W42 N20-N23
      4 1279 1399 (N21W26 L=232)   901    366        0 (1131/1315-1429/1450) -48.8 W17-W32 N12-N28
      5  970 1229 (N20W02 L=208)  2223    517        5 ( 765/1165-1188/1264) -31.3 E10-W13 N11-N26
      6  397 1170 (N30E39 L=166)   282    104        1 ( 364/1129- 433/1209) -50.2 E42-E36 N26-N32
      7 1752 1006 (S14W46 L=252)   349     55        1 (1734/ 974-1779/1030)  45.0 W44-W49 S15-S12
      8 1177  965 (N00W07 L=213)   505    115        0 (1156/ 905-1202/1016)  45.0 W04-W09 S02-N02
      9 1762  896 (S21W45 L=251)   369     73        0 (1736/ 861-1782/ 922) -78.7 W43-W47 S23-S18
     10 1798  848 (S25W49 L=255)   883     97        1 (1754/ 814-1843/ 885)   5.7 W44-W54 S27-S23
     11 1730  498 (S50W46 L=252)   949     78        1 (1687/ 479-1770/ 523) -11.3 W38-W55 S52-S46
     12 1490  457 (S42W17 L=223)  1124    192        2 (1408/ 404-1562/ 515)   8.1 W09-W23 S44-S38
     13 1556  369 (S53W24 L=230)   468     53        0 (1526/ 353-1588/ 387)  -7.1 W20-W28 S55-S51
  

    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