Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1173 1645 (N44W09 L=264)   374     87        1 (1149/1607-1210/1666)  53.1 W06-W11 N41-N46
      2 1437 1606 (N43W32 L=287)  1678    281        3 (1294/1581-1552/1635)  -2.3 W18-W44 N40-N45
      3  459 1507 (N29E47 L=208)   370     66        0 ( 441/1479- 482/1534)  76.0 E49-E44 N27-N31
      4  400 1424 (N24E49 L=206)   388     53        2 ( 370/1403- 427/1445)  21.8 E51-E46 N22-N25
      5 1877 1313 (N23W73 L=328)   811     95        1 (1847/1267-1897/1346) -71.6 W68-W77 N19-N25
      6 1372 1135 (N11W21 L=277)  1971    402        4 (1309/ 950-1413/1326) -77.2 W17-W24 N00-N22
      7  643 1099 (N05E24 L=231)  1347    372        2 ( 588/ 959- 696/1270) -74.5 E29-E20 S03-N15
      8  856 1197 (N12E11 L=244)   515    218        2 ( 797/1130- 945/1265)  45.0 E14-E06 N07-N16
      9  281  904 (S09E52 L=203)   804    146        0 ( 258/ 836- 308/ 978) -77.5 E54-E49 S13-S04
     10  928  849 (S09E05 L=250)   615    209        0 ( 901/ 746- 951/ 937)  90.0 E06-E03 S15-S03
     11  866  660 (S21E09 L=247)   623    154        0 ( 817/ 609- 935/ 703)  40.6 E11-E04 S24-S17
     12 1520  640 (S20W36 L=291)   315    108        0 (1486/ 619-1567/ 678) -14.0 W32-W40 S20-S17
     13  836  532 (S30E11 L=245)   339     68        1 ( 820/ 496- 854/ 577) -80.5 E11-E09 S32-S26
     14  659  258 (S55E35 L=220)  1057     91        2 ( 619/ 224- 697/ 291) -23.2 E40-E29 S59-S51
     15  732  267 (S53E25 L=231)   433     36        1 ( 716/ 245- 754/ 291)  68.2 E27-E21 S56-S51
  

    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