Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  758 1770 (N31E45 L=256)   999    205        0 ( 713/1682- 819/1847) -61.9 E49-E40 N23-N38
      2  977 1772 (N38E31 L=270)   324     30        1 ( 951/1757-1005/1787)  33.7 E32-E28 N36-N39
      3 1002 1690 (N32E24 L=277)   651    141        1 ( 980/1617-1020/1749) -48.4 E27-E19 N27-N36
      4  525 1667 (N18E55 L=246)   514    104        0 ( 496/1625- 561/1710) -81.9 E56-E53 N14-N21
      5 1057 1354 (N13E07 L=294)  1269    323        3 (1029/1216-1081/1517) -59.5 E13-E02 N05-N22
      6  314 1120 (S19E49 L=252)   646    186        0 ( 269/1084- 362/1177)  40.6 E53-E45 S20-S14
      7  173  906 (S34E65 L=236)   673    126        0 ( 139/ 867- 221/ 953)  24.8 E71-E57 S36-S30
      8 1556  527 (S16W51 L=352)   384     56        1 (1531/ 503-1582/ 552)   0.0 W47-W52 S17-S15
      9 1624  478 (S16W60 L=  1)   490     59        2 (1591/ 458-1657/ 497)  26.6 W56-W63 S17-S14
     10 1616  416 (S20W65 L=  6)  2290    249        8 (1526/ 359-1723/ 497)  55.3 W59-W70 S25-S12
     11 1364  447 (S27W42 L=343)  1558    316        2 (1219/ 421-1507/ 488)  32.9 W32-W50 S32-S19
     12  740  246 (S67W15 L=316)  1336    125        4 ( 699/ 203- 790/ 294) -50.2 W08-W23 S72-S60
     13  916  257 (S56W29 L=330)   784     74        0 ( 890/ 215- 945/ 289) -41.2 W24-W34 S60-S53
  

    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