Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  378 1586 (N16E60 L=223)  2062    191        7 ( 331/1510- 419/1663) -47.7 E68-E55 N10-N21
      2 1144 1597 (N30E06 L=278)   398    141        0 (1105/1545-1190/1659)  78.7 E07-E04 N26-N36
      3 1295 1566 (N32W05 L=288)   746    194        0 (1241/1472-1344/1643) -48.0 W00-W09 N26-N36
      4  697 1522 (N16E31 L=252)   874    186        1 ( 656/1470- 766/1597) -35.0 E36-E25 N13-N20
      5 1374 1214 (N11W16 L=300)   693    209        1 (1338/1121-1411/1314) -85.6 W14-W17 N05-N18
      6 1518 1199 (N14W26 L=309)   388    136        2 (1499/1133-1533/1260) -74.1 W24-W27 N10-N17
      7 1711 1054 (N11W43 L=326)   912    153        1 (1656/ 986-1753/1119)  71.6 W39-W45 N05-N14
      8 1406 1014 (N01W22 L=306)   459    155        1 (1343/ 977-1464/1068) -12.5 W17-W26 S01-N02
      9 1870  980 (N11W60 L=343)   710     99        1 (1843/ 931-1888/1028) -51.3 W56-W63 N08-N13
     10 1233  847 (S13W16 L=299)   202    120        0 (1188/ 820-1291/ 865)  33.7 W13-W19 S15-S10
     11 1339  608 (S24W30 L=313)  1124    346        0 (1202/ 511-1462/ 707)  59.5 W24-W34 S32-S14
     12  884  636 (S33E00 L=283)   284    129        0 ( 814/ 625- 946/ 652)  29.7 E04-W03 S34-S30
     13 1614  580 (S18W51 L=334)   954    281        1 (1497/ 507-1731/ 612)  40.9 W45-W60 S25-S12
     14 1369  350 (S38W47 L=330)   399     68        0 (1335/ 334-1407/ 370)  18.4 W43-W50 S39-S36
  

    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