Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  938 1683 (N39E23 L= 59)   341     53        1 ( 911/1659- 969/1707)  63.4 E24-E20 N36-N41
      2  521 1629 (N26E52 L= 29)   375     65        2 ( 505/1597- 534/1663) -33.7 E56-E49 N24-N28
      3 1278 1595 (N40W06 L= 87)   711    152        2 (1206/1557-1342/1617)  31.0 W00-W10 N35-N43
      4  580 1563 (N23E43 L= 39)   396     51        2 ( 554/1534- 605/1594) -68.2 E44-E41 N20-N25
      5 1004 1528 (N29E12 L= 69)   357    163        0 ( 944/1500-1068/1582) -10.3 E18-E07 N28-N31
      6  483 1531 (N19E50 L= 32)   860    175        2 ( 404/1505- 542/1577)  41.2 E56-E45 N16-N23
      7 1646 1354 (N32W38 L=120)   398     60        1 (1625/1327-1669/1386) -56.3 W36-W40 N30-N33
      8 1381 1256 (N19W18 L=100)   409    119        2 (1342/1225-1428/1294) -26.6 W14-W21 N17-N21
      9  205  959 (S20E60 L= 21)  2904    345        3 ( 119/ 827- 292/1097)  31.5 E84-E51 S29-S10
     10 1811 1027 (N14W56 L=138)   435     46        1 (1789/ 996-1826/1061)  76.0 W53-W57 N12-N16
     11 1130 1004 (S00W07 L= 88)   678    163        1 (1047/ 977-1202/1026)  18.4 W01-W10 S02-N01
     12 1170  829 (S10W12 L= 94)   240    125        0 (1125/ 811-1221/ 860)   9.5 W09-W15 S11-S08
     13  856  816 (S17E06 L= 75)   515    215        0 ( 758/ 789- 958/ 835)  22.6 E12-W00 S19-S13
     14 1392  627 (S18W32 L=114)  1487    464        2 (1212/ 493-1546/ 748)  56.3 W23-W39 S29-S07
     15 1777  645 (S09W65 L=146)  1786    189        1 (1737/ 563-1813/ 733) -79.7 W60-W68 S14-S03
     16  482  697 (S32E32 L= 50)   326     72        0 ( 443/ 671- 511/ 718)  33.7 E35-E29 S34-S30
     17  409  619 (S39E40 L= 42)   398     59        1 ( 386/ 592- 433/ 640) -45.0 E42-E36 S40-S36
     18 1710  583 (S14W60 L=142)   552    101        1 (1688/ 533-1742/ 625) -74.1 W59-W62 S17-S10
     19 1633  577 (S16W53 L=135)   420    103        0 (1604/ 543-1679/ 599)  38.7 W50-W56 S17-S13
     20  355  563 (S44E48 L= 33)   491     50        0 ( 329/ 547- 385/ 583)   0.0 E52-E44 S45-S42
  

    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