Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1474 1704 (N51W11 L=274)   619    120        1 (1417/1683-1519/1720)  20.0 W05-W16 N48-N53
      2  724 1638 (N21E37 L=227)   309    106        2 ( 694/1605- 764/1671) -26.6 E38-E32 N19-N23
      3 1006 1406 (N14E11 L=252)   755    317        1 ( 950/1282-1066/1532) -38.2 E18-E04 N07-N20
      4 1421 1478 (N30W12 L=275)   382     76        1 (1391/1447-1457/1506)  -9.5 W08-W14 N27-N32
      5  271 1113 (S19E52 L=211)  1956    460        7 ( 189/ 995- 340/1229)  65.0 E58-E47 S27-S11
      6  203 1137 (S19E59 L=204)   735    138        3 ( 165/1083- 229/1181)  66.8 E62-E57 S22-S15
      7  246  925 (S31E51 L=212)   499    137        1 ( 209/ 908- 296/ 947)   0.0 E55-E46 S31-S29
      8  794  921 (S19E10 L=253)   986    346        3 ( 648/ 887- 963/ 944)  17.5 E19-W00 S22-S15
      9  517  900 (S27E28 L=235)   477    173        0 ( 447/ 872- 597/ 933)  26.6 E33-E23 S28-S22
     10 1660  869 (N03W42 L=306)   264     74        1 (1634/ 833-1688/ 908)  78.7 W41-W43 N00-N05
     11 1078  739 (S21W11 L=274)  1517    521        2 ( 819/ 636-1281/ 814)  14.9 E04-W26 S29-S16
     12 1531  724 (S09W38 L=302)   235    114        0 (1510/ 662-1546/ 765) -45.0 W35-W40 S12-S07
     13 1476  525 (S21W44 L=307)   340    120        0 (1449/ 486-1501/ 564) -23.2 W40-W47 S22-S19
     14 1182  425 (S36W31 L=294)   380    103        1 (1151/ 390-1216/ 467) -23.2 W27-W34 S37-S33
  

    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