Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  463 1661 (N37E59 L=302)  1787    183        2 ( 425/1594- 501/1739) -15.7 E81-E49 N32-N41
      2  669 1607 (N35E34 L=327)  1586    259        4 ( 576/1566- 801/1643)  -2.9 E42-E22 N31-N37
      3  568 1467 (N25E37 L=324)   386    126        0 ( 554/1413- 595/1527) -74.1 E38-E35 N21-N28
      4  653 1425 (N23E29 L=332)   570    202        0 ( 599/1354- 678/1517)  90.0 E31-E27 N17-N29
      5 1251 1388 (N26W12 L= 13)   360    157        0 (1215/1340-1320/1418)  29.7 W09-W16 N22-N28
      6 1730 1299 (N24W50 L= 51)   385     87        1 (1712/1255-1746/1340) -78.7 W48-W51 N21-N26
      7 1475 1190 (N15W28 L= 29)   223     86        0 (1430/1181-1514/1199)   0.0 W24-W30 N14-N16
      8 1783 1080 (N11W53 L= 54)   472    138        0 (1762/1006-1809/1135) -63.4 W51-W56 N06-N14
      9 1167 1035 (N03W09 L= 10)   186     57        0 (1136/1024-1205/1045)  14.0 W06-W10 N02-N04
     10 1456  989 (N03W27 L= 28)   458    153        0 (1403/ 948-1523/1013)  20.6 W24-W32 N00-N04
     11  161  924 (S13E67 L=294)   608     77        5 ( 137/ 885- 188/ 962) -51.3 E70-E62 S15-S10
     12  252  860 (S16E55 L=306)   450     50        2 ( 238/ 824- 273/ 891) -90.0 E56-E52 S18-S13
     13 1767  699 (S13W58 L= 59)  3216    385        5 (1641/ 586-1856/ 858)  52.1 W49-W65 S20-S02
     14  447  590 (S32E40 L=321)  1139    195        2 ( 383/ 511- 529/ 638)  29.1 E49-E31 S38-S27
  

    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