Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1136 1684 (N46E04 L=119)  1424    288        5 (1091/1605-1180/1774) -70.3 E07-W01 N39-N54
      2  611 1721 (N39E47 L= 76)   458    109        0 ( 589/1685- 633/1748) -26.6 E51-E43 N36-N40
      3  521 1544 (N25E45 L= 78)  1986    332        5 ( 399/1473- 622/1668)  54.5 E53-E40 N19-N35
      4 1482 1580 (N44W28 L=151)   718    156        0 (1419/1559-1534/1608)  26.6 W21-W33 N41-N47
      5  552 1415 (N17E38 L= 85)   521    146        1 ( 492/1378- 594/1472)  50.2 E41-E35 N14-N20
      6 1464 1424 (N32W25 L=148)   392    109        0 (1439/1376-1480/1466) -90.0 W22-W26 N28-N34
      7  920 1301 (N15E11 L=112)   287    107        0 ( 865/1289- 977/1315)   7.1 E14-E06 N14-N16
      8  686 1253 (N09E24 L= 98)   308     89        1 ( 665/1219- 710/1287) -53.1 E25-E22 N06-N11
      9 1173 1218 (N14W06 L=129)   565    128        1 (1111/1180-1211/1267)  26.6 W02-W08 N10-N16
     10 1107 1163 (N10W03 L=126)   211     52        1 (1077/1141-1133/1178) -18.4 W01-W04 N08-N10
     11 1263 1044 (N05W14 L=137)   510    147        1 (1217/ 970-1293/1105) -49.4 W10-W16 N00-N08
     12  231  968 (S14E56 L= 67)   769    206        0 ( 203/ 876- 245/1063)  80.5 E58-E54 S20-S08
     13  384 1007 (S10E42 L= 81)   404    113        2 ( 341/ 982- 419/1023)   0.0 E45-E39 S11-S09
     14 1631  918 (N02W41 L=164)   566    109        2 (1611/ 868-1660/ 971) -51.3 W39-W44 N00-N05
     15  806  895 (S11E11 L=111)   379    171        0 ( 717/ 877- 882/ 918)  16.7 E17-E07 S11-S08
     16 1173  799 (S11W12 L=135)   727    172        1 (1124/ 729-1215/ 885) -60.9 W09-W15 S15-S06
     17 1607  741 (S09W43 L=166)   377    103        0 (1582/ 681-1641/ 784)  74.1 W41-W44 S12-S05
     18 1714  686 (S11W54 L=177)   420     66        1 (1689/ 650-1738/ 715)  63.4 W52-W55 S12-S08
     19  675  565 (S34E18 L=105)   305     66        2 ( 643/ 548- 706/ 586)  21.8 E20-E15 S35-S32
  

    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