Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  576 1263 (N27E23 L=336)   212     92        0 ( 544/1236- 616/1297) -51.3 E24-E19 N24-N29
      2 1478 1107 (S03W28 L= 27)  1349    362        3 (1374/ 946-1526/1215) -79.4 W23-W30 S12-N04
      3 1688 1173 (S04W44 L= 43)   562     87        2 (1636/1145-1727/1206) -33.7 W40-W47 S06-S02
      4  529 1161 (N21E27 L=331)   410    153        0 ( 453/1147- 596/1181) -15.3 E33-E22 N19-N22
      5 1793 1089 (S12W52 L= 50)  1115    184        5 (1767/1004-1833/1166)  48.8 W48-W56 S15-S07
      6  866 1116 (N12E07 L=352)   354    147        1 ( 801/1094- 934/1152) -45.0 E10-E03 N09-N15
      7 1701 1071 (S10W43 L= 42)   750    198        2 (1646/1004-1760/1144)  22.6 W37-W49 S13-S07
      8 1846  846 (S27W55 L= 54)   969    153        3 (1793/ 821-1900/ 892) -26.6 W48-W63 S30-S23
      9 1676  715 (S31W37 L= 35)  1043    244        6 (1650/ 612-1696/ 854)  82.4 W34-W38 S37-S22
     10 1087  785 (S12E02 L=357)   605    129        5 (1031/ 754-1141/ 827) -45.0 E04-W01 S14-S09
     11 1144  651 (S21E02 L=357)   675    219        0 (1075/ 577-1189/ 745)  41.6 E07-W02 S24-S15
     12  639  644 (S10E32 L=327)   362    148        2 ( 571/ 613- 689/ 686)   5.7 E37-E27 S11-S08
     13 1726  553 (S44W44 L= 43)  3315    351       11 (1659/ 438-1803/ 640)  61.7 W36-W56 S52-S38
     14  754  445 (S25E32 L=326)  2214    553        6 ( 613/ 258- 939/ 599)  21.5 E53-E15 S35-S19
     15  411  425 (S19E60 L=298)   440     49        2 ( 393/ 396- 428/ 457)  38.7 E62-E57 S20-S16
  

    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