Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1249 1807 (N52E02 L=287)   431     41        0 (1223/1794-1281/1823)  36.9 E04-W00 N49-N53
      2  693 1788 (N36E45 L=244)   415     53        0 ( 675/1763- 713/1815) -33.7 E48-E41 N34-N38
      3  694 1683 (N28E38 L=251)   314     41        1 ( 665/1668- 722/1703)   0.0 E39-E34 N27-N29
      4 1134 1622 (N32E05 L=283)   370    120        0 (1121/1557-1147/1681) -66.0 E07-E03 N27-N36
      5  531 1624 (N22E47 L=242)   361     71        0 ( 495/1604- 569/1637)   0.0 E50-E43 N20-N22
      6 1763 1271 (N24W46 L=335)   559    106        3 (1722/1249-1801/1311)  32.0 W42-W50 N21-N27
      7 1149 1268 (N10W03 L=292)   189     63        0 (1129/1234-1172/1303)  76.0 W01-W03 N07-N11
      8 1043 1223 (N05E03 L=286)   240     66        1 (1019/1197-1077/1243)  45.0 E03-W00 N03-N06
      9  952  759 (S23W01 L=290)   287    101        1 ( 910/ 742- 998/ 785)  26.6 E02-W03 S24-S21
     10 1012  555 (S35W10 L=298)   517    182        0 ( 945/ 536-1123/ 587)  31.0 W05-W15 S37-S30
     11  674  523 (S44E15 L=274)   553    103        2 ( 633/ 488- 708/ 558) -15.9 E19-E12 S46-S41
     12 1203  233 (S52W44 L=333)   482     55        0 (1183/ 196-1225/ 261) -45.0 W41-W49 S55-S49
     13 1246  142 (S57W67 L=356)   633     77        1 (1210/ 118-1277/ 169)  76.0 W60-W78 S58-S54
  

    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