Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  965 1789 (N52E23 L=222)   466     91        3 ( 919/1774-1013/1805)  12.5 E27-E18 N50-N53
      2  363 1460 (N18E55 L=190)  1387    466        3 ( 296/1336- 470/1558) -28.6 E64-E41 N11-N23
      3  806 1480 (N25E22 L=223)   265    168        0 ( 779/1407- 827/1546) -71.6 E23-E20 N20-N29
      4 1620 1248 (N22W38 L=282)   260     51        2 (1605/1213-1635/1278) -90.0 W36-W38 N19-N24
      5  209 1213 (N01E64 L=181)   519     92        1 ( 191/1186- 232/1240)  -9.5 E66-E60 N00-N02
      6 1545 1181 (N17W32 L=276)   315    116        1 (1500/1132-1572/1225) -51.3 W28-W34 N13-N19
      7 1337 1175 (N14W17 L=262)   254     75        0 (1298/1160-1373/1190)  14.0 W15-W19 N12-N14
      8 1394 1091 (N09W22 L=267)   253     88        1 (1346/1072-1434/1109)   0.0 W18-W24 N08-N10
      9 1426  813 (S07W28 L=273)  2623    680        8 (1345/ 544-1520/1062) -72.1 W20-W35 S24-N07
     10  342  852 (S20E45 L=200)   515    161        0 ( 298/ 816- 410/ 901) -12.5 E49-E38 S21-S16
     11 1074  779 (S14W06 L=251)   734    296        1 ( 973/ 677-1202/ 867)  49.8 W01-W13 S21-S07
     12 1168  726 (S16W13 L=258)   369    108        2 (1125/ 705-1248/ 746)  20.6 W10-W18 S17-S14
     13 1220  483 (S31W23 L=267)   468     97        3 (1189/ 452-1262/ 512)  11.3 W20-W25 S33-S28
  

    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