Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  898 1716 (N31E30 L=140)  1682    363        1 ( 821/1602- 991/1778)  86.2 E35-E22 N21-N36
      2  446 1717 (N22E67 L=102)   898     72        3 ( 425/1684- 475/1754) -36.9 E73-E64 N18-N24
      3 1290 1675 (N40E02 L=167)   915    244        0 (1183/1599-1356/1753) -17.4 E12-W04 N36-N43
      4  431 1661 (N17E62 L=107)  1503    212        3 ( 361/1631- 523/1693)  18.4 E73-E54 N14-N20
      5  502 1485 (N07E45 L=124)  1285      0       -1 ( 415/1439- 593/1594)  59.7 E50-E41 N03-N15
      6 1813 1400 (N40W51 L=220)   722    101        1 (1781/1351-1842/1440) -23.2 W46-W54 N37-N43
      7  593 1218 (S06E30 L=139)   218     27        1 ( 569/1199- 610/1237)  45.0 E31-E28 S07-S05
      8 1525 1186 (N15W25 L=194)   315     87        0 (1511/1142-1544/1228)  90.0 W24-W25 N12-N18
      9 1693 1056 (N13W40 L=209)   297     51        2 (1665/1027-1714/1085) -56.3 W37-W42 N11-N15
     10  854  867 (S20E06 L=164)   599    211        0 ( 764/ 791- 906/ 917) -20.0 E12-E01 S23-S18
     11  298  830 (S35E48 L=121)   901    184        0 ( 237/ 776- 345/ 910)  39.8 E56-E43 S39-S29
     12  468  759 (S36E31 L=138)   822    212        1 ( 431/ 675- 526/ 848) -51.3 E34-E25 S40-S30
     13 1603  718 (S08W44 L=213)   643    102        2 (1565/ 677-1634/ 766)  90.0 W40-W46 S10-S04
     14 1172  647 (S24W20 L=189)   197     50        1 (1150/ 622-1196/ 667)   0.0 W17-W21 S25-S22
     15 1472  447 (S26W49 L=218)   995    184        1 (1381/ 411-1555/ 494)  45.0 W43-W53 S29-S20
     16  672  309 (S64E03 L=166)  1512    156        4 ( 602/ 266- 738/ 360)  -2.9 E14-W06 S67-S60
     17 1112  325 (S45W34 L=203)   409     90        0 (1094/ 278-1138/ 360) -50.2 W31-W38 S48-S42
     18 1567  331 (S28W69 L=238)  1821    163        1 (1493/ 304-1638/ 353)  10.9 W59-W85 S31-S25
     19 1261  214 (S47W57 L=227)  2711    183        6 (1178/ 177-1351/ 277)  16.7 W46-W72 S50-S42
  

    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