Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1584 1574 (N43W26 L= 12)   950    121        4 (1537/1539-1626/1602)  -6.3 W21-W30 N40-N45
      2 1664 1523 (N42W34 L= 20)   428     94        2 (1633/1504-1688/1544)  35.5 W30-W37 N39-N44
      3  971 1449 (N16E13 L=333)   452    155        0 ( 942/1376- 995/1523) -53.1 E16-E09 N12-N20
      4  256 1436 (N03E66 L=280)  2574    293        3 ( 220/1334- 313/1515) -50.7 E73-E58 S03-N08
      5 1748 1453 (N40W42 L= 29)   759    136        2 (1715/1417-1776/1495)  54.5 W38-W45 N36-N43
      6 1827 1228 (N27W50 L= 36)   525     88        1 (1806/1182-1847/1261) -53.1 W48-W52 N24-N28
      7  254 1221 (S10E57 L=289)   338     71        2 ( 237/1189- 268/1250)  76.0 E59-E55 S12-S08
      8 1431 1128 (N08W21 L=  7)   228     58        0 (1412/1090-1446/1165) -53.1 W19-W22 N06-N10
      9 1896 1055 (N19W60 L= 46)   497     70        0 (1876/1031-1917/1080)  59.0 W57-W62 N16-N21
     10 1748  974 (N09W47 L= 33)   722    154        1 (1689/ 931-1796/1015)   0.0 W41-W52 N07-N10
     11  588  948 (S21E25 L=321)   366    108        0 ( 562/ 892- 607/1004)  90.0 E26-E23 S24-S17
     12 1144  878 (S13W10 L=356)   516    141        0 (1072/ 806-1201/ 944)  74.7 W07-W12 S18-S07
     13 1650  697 (S09W48 L= 34)  1529    302        1 (1525/ 593-1751/ 818)  64.8 W42-W53 S17-N00
     14 1346  573 (S24W32 L= 18)   916    170        1 (1273/ 539-1410/ 617)   5.7 W26-W36 S26-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