Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1598 1533 (N19W55 L=233)  2323    485        2 (1435/1395-1765/1616) -54.5 W44-W64 N06-N27
      2 1601 1403 (N12W48 L=226)   327     86        1 (1550/1380-1637/1414) -23.2 W43-W50 N10-N13
      3 1179 1398 (N24W20 L=198)   248     72        1 (1137/1381-1218/1413) -45.0 W17-W21 N22-N26
      4 1180 1192 (N13W13 L=191)   189     99        0 (1137/1162-1224/1212)   0.0 W09-W16 N11-N13
      5  223 1020 (N24E59 L=119)  1226    252        0 ( 185/ 941- 287/1132) -59.7 E63-E52 N18-N30
      6  324 1032 (N23E47 L=131)   379     92        0 ( 304/ 984- 356/1074) -63.4 E49-E44 N19-N25
      7 1819  989 (S18W53 L=231)   436     70        0 (1793/ 962-1852/1015)   8.1 W49-W57 S18-S16
      8 1516  930 (S11W26 L=205)   439    100        1 (1492/ 880-1539/ 979) -90.0 W25-W27 S14-S07
      9  177  843 (N13E68 L=110)  1116    205        4 ( 136/ 795- 229/ 884) -29.1 E76-E61 N10-N15
     10  178  744 (N07E72 L=106)  1150    113        2 ( 153/ 687- 204/ 788) -80.5 E77-E67 N03-N10
     11 1169  650 (S18E01 L=177)   228     52        0 (1150/ 621-1188/ 679)  56.3 E02-W00 S19-S16
     12 1808  629 (S42W53 L=231)   984     64        1 (1767/ 608-1848/ 646) -17.4 W46-W63 S44-S39
     13 1694  543 (S44W38 L=216)   508     49        1 (1671/ 524-1723/ 561)   0.0 W35-W42 S45-S41
     14  614  400 (S21E45 L=133)   311     84        0 ( 598/ 370- 635/ 443)  71.6 E47-E43 S23-S17
  

    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