Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1087 1835 (N53W45 L=280)   553     61        0 (1071/1793-1101/1869)  28.6 W39-W51 N49-N55
      2 1381 1821 (N39W65 L=301)   654     56        2 (1352/1788-1403/1850)  15.3 W60-W72 N37-N40
      3 1018 1812 (N54W37 L=272)   784     80        2 ( 980/1784-1054/1848)   5.2 W31-W43 N51-N56
      4 1617 1545 (N17W57 L=292)  2301    347        8 (1520/1395-1696/1645)  76.8 W49-W64 N06-N23
      5 1741 1475 (N09W64 L=299)   755     90        4 (1713/1443-1779/1509) -71.6 W59-W68 N05-N11
      6 1124 1393 (N24W17 L=252)   324    111        1 (1104/1348-1145/1450)  63.4 W14-W18 N21-N27
      7  705 1397 (N36E10 L=225)  1537    457        1 ( 487/1355- 897/1426) -22.5 E27-W02 N28-N40
      8 1496 1312 (N08W36 L=271)   311     98        0 (1448/1291-1529/1346)   0.0 W32-W39 N07-N09
      9  944 1173 (N16E01 L=235)   545    248        0 ( 826/1147-1051/1211) -13.0 E07-W06 N14-N18
     10 1166 1105 (N07W10 L=245)   255     93        0 (1130/1077-1196/1137) -63.4 W08-W11 N04-N09
     11  595 1102 (N21E24 L=211)   765    213        2 ( 497/1071- 702/1124) -15.9 E30-E16 N19-N23
     12 1728 1023 (S14W44 L=279)   276     70        0 (1697/1007-1759/1048) -11.3 W41-W46 S15-S12
     13  235  969 (N21E57 L=178)   447    107        1 ( 211/ 926- 270/1015) -50.2 E59-E53 N18-N24
     14  564  982 (N15E28 L=207)   496    187        0 ( 504/ 930- 645/1003)   5.2 E33-E22 N13-N16
     15  159  874 (N17E69 L=166)  1125    132        1 ( 101/ 826- 207/ 906) -16.4 E81-E62 N13-N19
     16 1863  839 (S31W56 L=291)  1338    179        1 (1792/ 788-1933/ 905)   0.0 W46-W69 S32-S28
     17 1422  736 (S21W15 L=250)   283    114        0 (1394/ 688-1454/ 783)  33.7 W12-W18 S23-S19
     18 1571  480 (S44W22 L=258)  3340    637        4 (1311/ 315-1754/ 668)  11.3 E03-W42 S49-S37
     19 1225  640 (S21W01 L=236)   202     37        2 (1204/ 617-1246/ 658) -90.0 W00-W02 S22-S19
     20  614  412 (S19E45 L=190)   406     76        0 ( 601/ 374- 628/ 457)  39.8 E47-E41 S21-S16
     21 1101  183 (S52E30 L=205)   749     88        1 (1060/ 162-1153/ 206) -29.7 E34-E25 S53-S48
  

    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