Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1189 1554 (N30W15 L=132)  1472    351        0 (1053/1455-1307/1645) -43.0 W06-W21 N22-N37
      2 1439 1585 (N31W35 L=152)   767    186        1 (1367/1533-1522/1632) -37.9 W29-W39 N27-N34
      3  842 1575 (N34E09 L=108)   327     44        0 ( 812/1558- 877/1592) -11.3 E11-E06 N32-N35
      4  545 1472 (N29E31 L= 86)   409    137        1 ( 480/1440- 602/1495)  11.3 E36-E26 N27-N30
      5  428 1358 (N22E39 L= 78)   958    160        1 ( 395/1305- 489/1419) -53.1 E42-E33 N18-N26
      6  878 1347 (N18E07 L=110)   615    178        3 ( 802/1300- 926/1398)  26.6 E12-E04 N15-N21
      7  173 1345 (N24E69 L= 48)  1815    107        3 ( 137/1294- 200/1397)  63.4 E75-E64 N20-N27
      8 1802 1155 (N02W55 L=172)   772    102        0 (1754/1134-1851/1174)   5.7 W50-W60 N00-N03
      9 1812  822 (S18W57 L=174)   759    124        2 (1764/ 772-1849/ 874)  40.6 W52-W60 S20-S14
     10  782  820 (S13E16 L=101)   214     49        1 ( 754/ 801- 809/ 837)  14.0 E18-E14 S13-S11
     11 1703  610 (S31W50 L=168)  4149    577        4 (1512/ 443-1889/ 761)  31.2 W36-W71 S42-S21
     12  843  632 (S25E14 L=103)   597    161        0 ( 823/ 566- 888/ 707) -78.7 E15-E12 S29-S19
     13  496  505 (S30E44 L= 73)   350    110        0 ( 470/ 473- 541/ 523) -11.3 E46-E39 S32-S29
     14 1392  471 (S39W25 L=142)   679    124        1 (1355/ 413-1421/ 521) -53.1 W21-W28 S43-S35
     15 1393  252 (S58W36 L=153)   403     37        1 (1372/ 237-1418/ 274)  -7.1 W32-W40 S60-S56
  

    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