Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  867 1454 (N31W00 L=291)   229     70        0 ( 827/1437- 909/1467) -11.3 E02-W03 N30-N32
      2 1313 1272 (N10W22 L=313)   704    181        2 (1229/1239-1406/1305) -21.8 W17-W27 N07-N12
      3  920 1211 (N15E02 L=288)  1223    324        1 ( 757/1170-1073/1243)  -9.0 E12-W07 N10-N18
      4 1000 1115 (N08W00 L=291)   212     76        0 ( 970/1076-1034/1154)  36.9 E01-W03 N06-N09
      5 1778 1003 (S16W49 L=339)   581    107        1 (1756/ 948-1797/1059)  50.2 W45-W51 S18-S12
      6  169  995 (N18E61 L=229)  1142    278        1 ( 110/ 955- 229/1022)  -4.1 E68-E54 N15-N19
      7  452  950 (N10E37 L=254)   477    145        0 ( 396/ 878- 503/1014) -66.0 E39-E34 N05-N14
      8  309  851 (N07E50 L=240)   583     91        1 ( 290/ 806- 342/ 890)  59.0 E52-E47 N04-N09
      9 1253  854 (S12W09 L=300)   215     51        0 (1229/ 826-1280/ 877)  45.0 W07-W11 S13-S10
     10 1257  646 (S24W06 L=296)   976    228        1 (1183/ 542-1326/ 730)  36.9 E01-W11 S29-S19
     11  515  647 (S08E40 L=250)   286     55        1 ( 496/ 624- 537/ 677) -90.0 E41-E38 S10-S06
     12  664  583 (S15E32 L=258)   645    156        3 ( 598/ 525- 734/ 641) -60.9 E35-E28 S20-S10
     13  460  606 (S10E46 L=245)   706    133        2 ( 415/ 575- 508/ 636)  -7.1 E49-E41 S12-S07
     14  340  528 (S12E60 L=230)  2509    432       12 ( 275/ 469- 409/ 604) -56.3 E66-E54 S16-S07
     15  455  535 (S14E49 L=241)   400     81        2 ( 433/ 507- 483/ 560)  21.8 E51-E46 S15-S12
     16  626  496 (S20E38 L=252)   920    265        1 ( 518/ 412- 674/ 537) -56.3 E44-E33 S25-S15
     17 1111  346 (S42E13 L=278)   488    110        1 (1087/ 301-1130/ 384)  76.0 E14-E10 S45-S37
     18  800  260 (S40E39 L=251)   361     73        0 ( 783/ 231- 823/ 288)  68.2 E41-E36 S42-S37
     19 1022  211 (S50E28 L=263)   790    143        1 ( 994/ 170-1064/ 248)  22.6 E33-E21 S53-S47
  

    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