Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1097 1529 (N27E10 L= 33)   525    104        1 (1069/1490-1133/1575) -33.7 E12-E06 N25-N29
      2  682 1394 (N08E30 L= 13)   378    109        0 ( 631/1369- 743/1422)  50.2 E32-E26 N05-N11
      3 1154 1398 (N21E02 L= 41)   232     29        1 (1132/1381-1183/1418)   0.0 E03-W00 N19-N21
      4  999 1296 (N10E08 L= 35)   625    116        0 ( 951/1239-1052/1338)  66.8 E10-E06 N06-N14
      5 1836  985 (N16W56 L= 99)  2717    394        5 (1767/ 835-1866/1109) -40.9 W46-W62 N08-N22
      6  969 1090 (S02E05 L= 38)   211     59        0 ( 940/1071-1009/1103)  26.6 E06-E02 S03-N00
      7 1632  996 (N11W38 L= 81)   393    131        1 (1587/ 939-1660/1052) -24.0 W32-W41 N07-N12
      8  317  941 (S26E45 L=358)   710    145        1 ( 264/ 918- 372/ 972)  29.1 E49-E40 S28-S22
      9  714  809 (S24E13 L= 30)   362     95        0 ( 657/ 785- 758/ 831)   0.0 E16-E09 S25-S23
     10  406  704 (S39E35 L=  8)  1458    228        3 ( 320/ 615- 486/ 785) -25.0 E43-E27 S43-S35
     11 1303  724 (S13W24 L= 67)   551    154        0 (1269/ 645-1353/ 785) -84.3 W23-W26 S18-S08
     12  615  636 (S38E16 L= 27)   619    135        1 ( 551/ 616- 690/ 666)  10.3 E21-E10 S39-S35
     13 1098  634 (S24W15 L= 58)   341    139        0 (1028/ 619-1170/ 645)  18.4 W11-W20 S26-S22
     14 1496  388 (S26W53 L= 96)  1640    336        2 (1345/ 317-1639/ 453)  50.5 W45-W62 S35-S18
     15 1599  356 (S25W64 L=107)   665    100        0 (1554/ 323-1638/ 384)  60.3 W62-W66 S28-S21
  

    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