Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  882 1827 (N53E14 L=  5)   337     53        1 ( 860/1805- 901/1847)  63.4 E15-E11 N51-N55
      2  804 1539 (N29E15 L=  3)   889    151        3 ( 720/1471- 883/1601) -33.7 E21-E08 N24-N33
      3  156 1311 (N17E67 L=311)   920    116        2 ( 137/1275- 179/1349) -78.7 E69-E64 N14-N19
      4  934 1262 (N11E05 L= 13)   179     73        0 ( 891/1251- 973/1275) -11.3 E07-E02 N10-N11
      5  507 1057 (S01E32 L=346)   231     50        0 ( 479/1037- 533/1074) -14.0 E34-E30 S01-N00
      6  459  886 (S11E37 L=342)   922    228        0 ( 431/ 782- 484/ 998)  69.0 E39-E34 S16-S03
      7  306  860 (S12E49 L=329)   286     50        1 ( 282/ 835- 331/ 881)   0.0 E51-E46 S13-S10
      8  228  788 (S15E58 L=320)  1495    235        5 ( 190/ 726- 261/ 855) -82.9 E61-E54 S19-S11
      9 1436  825 (S15W26 L= 44)   320    105        0 (1377/ 806-1480/ 854)   0.0 W22-W29 S16-S13
     10 1757  727 (S20W53 L= 71)   416     63        1 (1739/ 690-1775/ 769)  78.7 W51-W53 S22-S17
     11  812  672 (S24E14 L=  4)   431     87        1 ( 793/ 630- 842/ 723) -90.0 E15-E12 S27-S21
     12 1130  634 (S27W07 L= 25)   266     91        0 (1100/ 598-1148/ 690)  80.5 W04-W08 S29-S23
     13  290  599 (S27E56 L=322)   501     70        1 ( 275/ 566- 310/ 636)  78.7 E58-E54 S29-S24
     14  512  570 (S30E38 L=341)   546    141        0 ( 472/ 526- 553/ 625)  36.9 E41-E33 S33-S26
     15  267  538 (S31E61 L=317)   530    116        0 ( 247/ 513- 294/ 560)  15.9 E64-E57 S32-S29
  

    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