Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  964 1829 (N64E06 L=350)   405     62        0 ( 940/1799- 984/1848) -50.2 E09-E03 N60-N66
      2 1710 1413 (N26W56 L= 53)  1441    379        3 (1619/1323-1784/1553) -69.4 W49-W62 N19-N36
      3  360 1436 (N30E54 L=302)   668    168        1 ( 309/1385- 406/1468)  35.5 E58-E49 N25-N31
      4 1365 1377 (N25W24 L= 21)   404    185        0 (1289/1316-1428/1408) -33.7 W19-W28 N21-N27
      5 1570 1342 (N22W40 L= 36)   295     65        1 (1540/1311-1591/1372)  45.0 W36-W41 N20-N24
      6  318 1325 (N22E54 L=302)   491    102        0 ( 293/1289- 360/1368) -24.0 E58-E49 N19-N24
      7 1721  795 (S13W50 L= 46)  1237    281        1 (1663/ 661-1773/ 878)  60.3 W46-W54 S21-S07
      8 1844  768 (S16W65 L= 62)   496     80        1 (1826/ 735-1864/ 803)  63.4 W62-W68 S17-S13
      9 1788  777 (S14W57 L= 54)   813     91        3 (1754/ 747-1824/ 802) -12.5 W53-W62 S16-S12
     10 1469  699 (S18W30 L= 26)   581    141        1 (1413/ 662-1535/ 738)  26.6 W25-W34 S19-S15
     11  524  677 (S18E35 L=322)   341     76        1 ( 514/ 636- 537/ 727)  63.4 E36-E33 S20-S14
     12 1789  618 (S25W64 L= 61)  1340    171        3 (1731/ 588-1848/ 659)  -9.9 W54-W77 S27-S21
     13  878  461 (S33E12 L=345)   967    157        2 ( 825/ 399- 920/ 538)  84.8 E15-E09 S38-S27
     14  999  359 (S42E03 L=353)  2366    481        6 ( 836/ 318-1198/ 416)  -5.9 E16-W13 S45-S36
     15  610  325 (S45E41 L=316)   441     50        0 ( 596/ 296- 624/ 358)  40.6 E44-E37 S47-S41
  

    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