Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  486 1699 (N29E56 L= 36)   430     57        0 ( 456/1681- 517/1714) -11.3 E61-E51 N27-N29
      2  504 1577 (N20E46 L= 46)   938    190        1 ( 454/1504- 537/1658) -74.7 E50-E44 N14-N25
      3  639 1604 (N23E37 L= 56)   426    112        1 ( 615/1554- 663/1654) -82.9 E38-E34 N19-N27
      4  344 1607 (N21E65 L= 27)   780     78        1 ( 320/1574- 368/1647) -33.7 E70-E60 N18-N24
      5  968 1585 (N27E14 L= 79)   745    215        1 ( 869/1513-1036/1629) -19.7 E21-E07 N23-N29
      6  372 1516 (N15E55 L= 37)   877    114        2 ( 321/1488- 434/1547)  -8.1 E62-E48 N13-N16
      7  317 1439 (N09E57 L= 35)   362     85        1 ( 295/1398- 330/1484) -50.2 E59-E54 N06-N12
      8  348 1314 (N02E50 L= 43)   380     58        1 ( 318/1283- 376/1340) -26.6 E52-E46 N00-N03
      9  341 1143 (S08E47 L= 45)  1434    257        3 ( 289/1044- 403/1250)  65.2 E51-E42 S14-S01
     10  407 1075 (S12E41 L= 52)   372     97        1 ( 385/1038- 431/1111) -53.1 E42-E38 S13-S09
     11  345 1044 (S14E45 L= 47)   446     66        1 ( 319/1016- 368/1077)  36.9 E47-E43 S15-S12
     12 1838  937 (N04W58 L=150)  1161    219        3 (1814/ 829-1856/1034) -59.0 W55-W62 S01-N10
     13  497  972 (S17E33 L= 60)   317     47        0 ( 472/ 952- 525/ 998) -33.7 E34-E30 S17-S15
     14  199  859 (S26E61 L= 31)  1359    305        3 ( 142/ 732- 281/ 987) -47.0 E68-E53 S33-S18
     15  402  836 (S26E40 L= 52)   863    222        2 ( 364/ 745- 440/ 942)  65.2 E43-E36 S32-S19
     16  571  780 (S28E26 L= 66)  1068    319        2 ( 539/ 644- 606/ 934)  78.1 E28-E23 S36-S17
     17  982  765 (S22W02 L= 94)   200     71        0 ( 964/ 734-1003/ 796) -63.4 W00-W03 S24-S20
     18  718  671 (S32E14 L= 78)   253     63        0 ( 680/ 655- 752/ 691)  31.0 E17-E12 S33-S30
     19 1751  647 (S14W60 L=152)   344     93        1 (1723/ 607-1773/ 688)  80.5 W58-W60 S16-S10
     20  858  595 (S35E04 L= 89)   294     94        1 ( 841/ 546- 884/ 632)  90.0 E04-E02 S38-S32
  

    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