Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  436 1418 (N17E47 L=171)   660    203        0 ( 414/1337- 449/1506) -70.0 E50-E43 N11-N22
      2 1330 1450 (N31W15 L=233)   275     70        2 (1297/1422-1364/1473)  31.0 W13-W18 N29-N33
      3 1169 1393 (N25W05 L=222)   332    146        1 (1151/1327-1189/1465)  90.0 W03-W05 N20-N30
      4 1440 1416 (N31W24 L=242)   431     98        1 (1397/1371-1483/1450) -29.7 W20-W27 N28-N32
      5  264 1169 (S00E56 L=162)   419     68        2 ( 243/1137- 284/1198)  90.0 E58-E53 S02-N01
      6 1793 1163 (N19W54 L=272)   364     81        1 (1773/1135-1821/1186)  21.8 W51-W56 N16-N20
      7 1817 1105 (N15W56 L=274)   994    150        2 (1779/1052-1844/1174)  69.4 W52-W59 N11-N19
      8 1746  847 (S01W53 L=271)  4634    820        9 (1664/ 562-1818/1131) -57.5 W41-W65 S18-N15
      9  223  873 (S19E57 L=161)  2856    412        7 ( 172/ 749- 284/1005)   4.1 E63-E50 S27-S10
     10  691  758 (S20E18 L=200)   317    103        0 ( 644/ 724- 747/ 797) -20.6 E21-E13 S21-S18
     11 1514  718 (S12W36 L=254)  1409    339        4 (1392/ 639-1620/ 796)  31.0 W29-W44 S18-S06
     12 1536  652 (S16W40 L=258)   670    158        1 (1487/ 612-1601/ 684)  39.8 W36-W44 S18-S13
     13 1374  556 (S24W31 L=249)   639    208        1 (1352/ 481-1410/ 626) -66.0 W27-W35 S28-S19
     14 1522  419 (S31W48 L=266)   392     67        1 (1494/ 399-1548/ 444)  26.6 W45-W50 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