Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1508 1715 (N36W63 L=161)   441     54        1 (1487/1686-1530/1739)  12.5 W58-W68 N34-N37
      2  623 1726 (N64E23 L= 76)   417     61        1 ( 590/1708- 657/1736)  -5.2 E28-E17 N62-N66
      3  785 1413 (N35E08 L= 91)   430    144        0 ( 720/1367- 847/1436) -41.2 E12-E03 N31-N38
      4 1832 1135 (S06W59 L=157)   506     94        0 (1817/1087-1850/1176)  68.2 W57-W60 S08-S03
      5 1893 1104 (S10W67 L=165)   909    108        2 (1859/1052-1928/1141)   8.7 W60-W74 S11-S08
      6  765 1093 (N16E14 L= 84)   239     86        0 ( 733/1067- 809/1125) -59.0 E15-E11 N13-N18
      7  196 1044 (N21E63 L= 35)   479     64        1 ( 165/1014- 215/1073) -26.6 E67-E60 N19-N22
      8 1806  961 (S15W53 L=151)   462    106        1 (1782/ 918-1824/1012)  68.2 W49-W55 S17-S12
      9 1321  893 (S07W15 L=113)   333     55        1 (1302/ 863-1351/ 923)  56.3 W13-W16 S08-S04
     10 1433  727 (S19W19 L=118)   579    221        0 (1383/ 651-1454/ 824)  55.0 W14-W21 S23-S13
     11 1757  557 (S42W52 L=150)   708     86        2 (1717/ 529-1793/ 598)  20.6 W45-W57 S44-S39
     12  764  497 (S20E28 L= 70)   239     70        0 ( 748/ 465- 774/ 535)  68.2 E29-E26 S22-S17
     13  588  464 (S20E42 L= 56)   461    150        0 ( 529/ 446- 641/ 501) -20.6 E45-E37 S21-S16
     14  696  259 (S37E48 L= 51)  1823    213        1 ( 661/ 161- 747/ 352)  25.3 E72-E36 S47-S30
  

    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