Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1429 1702 (N35W54 L=296)  1280    208        1 (1346/1661-1521/1725) -33.7 W46-W60 N30-N38
      2  405 1478 (N49E42 L=200)   474     75        0 ( 381/1449- 438/1516) -32.0 E46-E36 N46-N51
      3 1681 1411 (N12W54 L=296)   414     89        1 (1641/1371-1717/1440) -56.3 W51-W56 N08-N14
      4 1394 1278 (N13W28 L=270)  1143    281        2 (1350/1144-1452/1391)  86.4 W25-W32 N03-N19
      5  759 1075 (N16E15 L=227)  1191    509        1 ( 642/ 889- 877/1222) -73.7 E20-E09 N02-N26
      6 1816 1162 (S06W57 L=299)   357     28        1 (1799/1138-1838/1185) -76.0 W55-W59 S07-S03
      7  130  916 (N16E74 L=168)  1456     90        2 (  97/ 886- 159/ 959) -78.7 E82-E68 N13-N18
      8 1009  886 (S00E04 L=238)  1127    382        1 ( 919/ 746-1150/ 945)  18.4 E11-W04 S06-N03
      9 1818  817 (S26W52 L=294)   857     85        2 (1785/ 775-1840/ 862) -80.5 W47-W54 S29-S23
     10  356  586 (S06E56 L=186)  2481    428        4 ( 262/ 453- 444/ 718) -80.0 E64-E50 S15-N02
     11 1693  547 (S41W39 L=281)  2084    363        3 (1565/ 449-1793/ 673)  18.4 W26-W50 S46-S35
     12  301  519 (S10E67 L=175)  6065    353       11 ( 205/ 382- 386/ 670)  73.3 E77-E58 S20-N00
     13  512  590 (S08E43 L=199)   982    142        2 ( 483/ 531- 564/ 656) -76.0 E45-E39 S12-S03
     14  885  496 (S21E21 L=221)   637    114        1 ( 853/ 448- 909/ 556)  60.3 E23-E18 S24-S17
     15  758  483 (S19E30 L=212)   370     97        2 ( 717/ 447- 797/ 518)  20.6 E33-E25 S21-S17
     16  541  391 (S22E51 L=191)  1705    295        4 ( 468/ 270- 604/ 494)  22.6 E75-E39 S30-S15
     17 1083  419 (S31E12 L=230)   234     73        0 (1061/ 396-1116/ 450) -78.7 E12-E10 S33-S28
     18  428  417 (S18E60 L=182)   608     67        2 ( 394/ 394- 449/ 444) -21.8 E63-E56 S20-S16
     19 1260  202 (S57E08 L=234)   501     67        1 (1237/ 180-1283/ 238)  69.4 E10-E05 S61-S53
  

    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