Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  763 1823 (N62E38 L= 12)   721    101        1 ( 714/1804- 812/1839)  -8.1 E49-E28 N59-N63
      2 1077 1712 (N51W04 L= 55)   327     42        1 (1057/1683-1100/1730)  53.1 W02-W06 N48-N52
      3 1729 1401 (N26W57 L=108)   520     92        0 (1695/1377-1778/1416)  -5.7 W53-W63 N24-N27
      4 1025 1346 (N24E00 L= 50)   674    280        0 ( 937/1281-1144/1406) -24.8 E06-W07 N19-N27
      5 1711  852 (S08W48 L= 99)   999    200        3 (1619/ 825-1780/ 884)  -3.8 W40-W55 S09-S05
      6 1190  721 (S15W11 L= 61)   585    213        2 (1160/ 659-1227/ 816) -78.7 W08-W13 S19-S09
      7 1757  772 (S13W54 L=105)   441    144        1 (1720/ 745-1801/ 812)  23.2 W50-W58 S14-S10
      8 1287  733 (S15W17 L= 67)   458    153        1 (1216/ 697-1323/ 779)  35.5 W12-W19 S16-S11
      9  631  689 (S18E26 L= 24)  1000    204        3 ( 563/ 622- 714/ 732)  28.3 E32-E19 S22-S15
     10  336  537 (S30E58 L=352)  1542    227        3 ( 311/ 463- 365/ 663)  56.3 E68-E52 S36-S21
     11  252  594 (S27E68 L=342)  1600    105        2 ( 221/ 544- 275/ 635)  80.5 E74-E62 S30-S23
     12 1273  572 (S26W18 L= 68)  1072    441        3 (1099/ 532-1452/ 627)  11.3 W05-W30 S28-S21
     13 1591  547 (S28W44 L= 94)   443    108        0 (1550/ 515-1634/ 592)  50.2 W40-W46 S30-S24
  

    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