Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  746 1826 (N62E41 L= 11)   960    114        1 ( 698/1803- 802/1850)  -8.7 E56-E30 N59-N64
      2 1063 1708 (N51W03 L= 55)   303     46        0 (1046/1680-1083/1728)  53.1 W01-W04 N48-N52
      3  555 1614 (N42E43 L=  9)   394     76        0 ( 540/1576- 571/1649) -56.3 E46-E40 N38-N44
      4  415 1474 (N31E50 L=  2)   451     96        1 ( 384/1438- 446/1516) -32.0 E55-E46 N28-N33
      5  970 1362 (N25E04 L= 48)   492    177        1 ( 905/1299-1035/1416) -36.9 E08-W00 N20-N28
      6 1704 1399 (N26W54 L=106)   431     57        1 (1677/1374-1740/1414)  -8.1 W51-W58 N24-N27
      7 1744  857 (S08W51 L=104)   489     39        2 (1718/ 829-1769/ 877)  45.0 W48-W54 S09-S06
      8 1637  846 (S08W42 L= 94)   448    116        0 (1593/ 827-1679/ 871)   0.0 W38-W45 S09-S06
      9 1819  836 (S09W60 L=113)   492     62        1 (1799/ 807-1838/ 864)  53.1 W57-W62 S11-S07
     10 1205  728 (S15W12 L= 64)  1143    290        6 (1128/ 660-1294/ 809) -15.3 W06-W17 S19-S09
     11  605  684 (S19E28 L= 24)  1142    220        2 ( 536/ 599- 687/ 729)  39.3 E33-E22 S24-S15
     12 1202  573 (S25W13 L= 65)   987    371        1 (1069/ 534-1339/ 635)   3.0 W03-W22 S28-S21
     13 1571  545 (S28W42 L= 95)   459    106        0 (1531/ 514-1613/ 587)  45.0 W39-W44 S30-S25
     14  325  499 (S34E64 L=349)   766     72        3 ( 306/ 472- 348/ 530)  45.0 E69-E58 S35-S31
  

    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