Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1593 1590 (N20W57 L= 31)  1972    304        8 (1457/1512-1717/1658) -47.0 W49-W66 N12-N27
      2 1029 1520 (N33W15 L=349)   239     80        0 ( 995/1495-1076/1541)   0.0 W12-W18 N31-N33
      3 1257 1491 (N24W28 L=  2)   666    191        0 (1181/1465-1346/1514) -37.9 W22-W32 N20-N27
      4 1666 1447 (N10W54 L= 28)   493    103        1 (1630/1401-1704/1483) -71.6 W51-W56 N06-N12
      5 1742 1348 (N02W56 L= 30)  1319    242        1 (1686/1280-1793/1417)  14.9 W48-W63 N00-N05
      6 1778 1164 (S09W52 L= 26)   424     94        1 (1731/1138-1811/1199)   0.0 W47-W56 S09-S07
      7 1539 1072 (S06W31 L=  5)   299     48        1 (1514/1043-1556/1102)  63.4 W29-W32 S08-S04
      8  223 1042 (N24E56 L=278)  1789    260        4 ( 115/1003- 330/1074)  -7.9 E73-E44 N21-N27
      9 1115 1028 (N03W05 L=339)   273     69        1 (1081/1005-1160/1048)   0.0 W02-W07 N01-N03
     10 1459  924 (S12W22 L=356)   386    115        3 (1432/ 876-1481/ 966)  45.0 W19-W24 S14-S09
     11 1630  693 (S32W30 L=  4)  1959    293        5 (1592/ 570-1660/ 812)  65.0 W26-W34 S39-S23
     12 1706  604 (S41W38 L= 12)   593     57        2 (1669/ 585-1740/ 624) -12.5 W33-W42 S42-S38
     13  353  420 (S15E70 L=264)  3347    230        6 ( 291/ 341- 418/ 511)  72.9 E78-E64 S21-S08
     14 1058  374 (S35E18 L=316)   487    111        0 (1040/ 330-1082/ 429)  66.8 E20-E14 S38-S31
  

    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