Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1426 1325 (N13W32 L=342)   235     26        0 (1403/1307-1446/1346)   0.0 W30-W33 N11-N13
      2 1266 1322 (N17W22 L=333)   264     76        0 (1224/1309-1309/1334) -36.9 W19-W24 N15-N18
      3  268 1047 (N25E51 L=260)   560    160        0 ( 223/1007- 315/1086) -36.9 E54-E46 N22-N28
      4 1332  977 (S04W16 L=326)   448    152        1 (1270/ 938-1388/1000) -14.0 W11-W19 S06-S02
      5  456  925 (N15E37 L=273)   364     89        0 ( 418/ 904- 498/ 947)   0.0 E40-E33 N13-N15
      6  643  918 (N10E25 L=286)   644    192        0 ( 555/ 893- 731/ 941) -28.6 E30-E19 N06-N13
      7 1272  907 (S06W11 L=321)   192     30        1 (1255/ 886-1291/ 931)  71.6 W09-W12 S07-S04
      8 1488  886 (S13W23 L=334)   296     90        0 (1449/ 869-1535/ 909) -38.7 W21-W26 S15-S11
      9 1485  734 (S22W20 L=330)   375    102        0 (1431/ 707-1535/ 765)   0.0 W15-W23 S22-S21
     10  185  739 (N08E70 L=240)   882    196        1 ( 140/ 724- 221/ 753)   0.0 E78-E64 N06-N08
     11 1149  676 (S16E02 L=308)   628     91        1 (1112/ 639-1195/ 723) -74.1 E04-W00 S19-S12
     12 1023  489 (S24E15 L=295)   746    213        2 ( 983/ 405-1052/ 586)  45.0 E20-E10 S28-S18
     13  350  483 (S10E64 L=247)  2060    314        5 ( 272/ 431- 413/ 540) -24.8 E71-E57 S13-S05
     14  625  311 (S26E50 L=261)  1091    242        1 ( 604/ 246- 651/ 376)  39.3 E54-E43 S31-S22
  

    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