Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  451 1648 (N36E60 L= 66)   845    100        1 ( 415/1612- 491/1685)  74.1 E62-E57 N32-N39
      2 1108 1594 (N39W00 L=126)   910    164        2 (1041/1551-1199/1633) -18.4 E05-W07 N36-N41
      3  625 1490 (N27E33 L= 92)  1184    203        4 ( 566/1413- 685/1554) -31.6 E40-E27 N22-N30
      4  904 1380 (N23E11 L=114)   341    114        1 ( 862/1337- 933/1431)  66.8 E13-E09 N19-N26
      5 1212 1365 (N24W09 L=135)   269     73        2 (1193/1331-1231/1409) -78.7 W08-W10 N22-N27
      6  180 1051 (S05E64 L= 61)  1702    191        6 ( 136/ 977- 212/1117) -69.4 E71-E59 S09-S01
      7 1405 1000 (N03W24 L=149)   202     82        0 (1372/ 968-1437/1025) -31.0 W21-W26 N01-N04
      8  803  737 (S18E12 L=114)  2799    688        8 ( 552/ 563-1008/ 960)  45.0 E30-W00 S32-S02
      9  247  895 (S14E56 L= 70)   548     88        1 ( 227/ 853- 267/ 933)  59.0 E57-E53 S16-S11
     10 1674  733 (S11W48 L=173)   590    119        1 (1645/ 681-1699/ 786)  90.0 W45-W50 S14-S07
     11 1483  751 (S11W32 L=158)   347     64        2 (1461/ 720-1508/ 782)  90.0 W30-W34 S13-S09
     12 1789  699 (S13W61 L=187)   555     61        1 (1755/ 687-1826/ 713)   6.3 W57-W66 S13-S11
     13 1617  455 (S30W55 L=181)  2341    411        2 (1481/ 390-1750/ 566)  34.4 W42-W65 S35-S21
     14  358  482 (S41E56 L= 69)  1682    154        1 ( 312/ 425- 413/ 531)  18.4 E78-E45 S47-S36
     15  559  324 (S53E40 L= 85)   501     64        1 ( 533/ 309- 595/ 348)  10.3 E45-E34 S54-S50
  

    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