Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1644 1488 (N15W55 L= 85)   346    167        1 (1589/1465-1674/1515)  -6.3 W49-W58 N13-N16
      2  237 1243 (N37E53 L=337)   367    111        0 ( 205/1227- 273/1257) -23.2 E56-E49 N35-N38
      3 1224 1207 (N12W16 L= 46)   492    154        1 (1137/1163-1298/1235) -41.2 W11-W19 N08-N15
      4 1819 1087 (S12W54 L= 84)   683    117        2 (1801/1034-1837/1147)  66.8 W51-W56 S15-S08
      5 1853  920 (S23W54 L= 84)  2248    450        4 (1763/ 746-1897/1121)  39.0 W42-W64 S31-S12
      6  724 1098 (N18E16 L= 14)   193     38        1 ( 704/1075- 750/1120) -45.0 E17-E14 N16-N19
      7 1243 1049 (N03W13 L= 43)   250     89        1 (1210/1009-1272/1091)  31.0 W10-W15 N01-N04
      8  407  962 (N17E41 L=349)   486    154        4 ( 383/ 908- 442/1019)  63.4 E42-E37 N14-N20
      9 1713  877 (S20W40 L= 70)   446    169        1 (1669/ 827-1756/ 925)  26.6 W35-W43 S22-S17
     10  193  872 (N15E63 L=327)   557    110        0 ( 166/ 827- 219/ 911) -59.0 E65-E60 N12-N17
     11  424  841 (N10E42 L=348)   657    208        3 ( 366/ 791- 474/ 900)  21.8 E47-E36 N06-N12
     12  975  672 (S12E12 L= 18)   420    123        1 ( 946/ 618- 999/ 740)  45.0 E14-E08 S14-S07
     13 1555  541 (S38W23 L= 53)   593    118        2 (1504/ 501-1604/ 585)  12.5 W18-W27 S39-S35
     14  400  466 (S13E59 L=331)   738     84        2 ( 365/ 436- 441/ 496) -45.0 E61-E55 S14-S10
     15  482  350 (S22E59 L=331)   644    171        1 ( 446/ 329- 515/ 388)  16.7 E63-E53 S23-S19
  

    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