Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  970 1769 (N53W28 L=276)   566     83        1 ( 938/1736-1006/1802) -80.5 W24-W31 N50-N56
      2  901 1753 (N55W22 L=270)   692     91        2 ( 870/1711- 929/1790)  49.4 W17-W26 N51-N58
      3 1309 1764 (N39W52 L=300)   517     55        1 (1273/1736-1340/1782) -18.4 W48-W55 N37-N40
      4 1509 1736 (N30W65 L=313)   504     56        0 (1488/1706-1529/1762)  38.7 W62-W68 N27-N31
      5  830 1703 (N53W12 L=260)   307     41        2 ( 807/1677- 846/1725) -90.0 W10-W14 N51-N55
      6 1143 1529 (N31W24 L=272)   279    100        0 (1091/1516-1190/1542) -31.0 W20-W26 N29-N32
      7 1632 1483 (N13W54 L=302)   905    149        4 (1565/1442-1690/1530) -45.0 W50-W58 N09-N17
      8 1552 1418 (N12W44 L=292)   803    174        1 (1502/1336-1581/1481)  78.7 W41-W47 N07-N17
      9  573 1325 (N35E21 L=227)  1707    431        3 ( 381/1265- 772/1358) -25.0 E38-E08 N26-N40
     10 1332 1231 (N09W23 L=271)   209    136        0 (1284/1199-1368/1286)   8.1 W19-W26 N07-N11
     11  748 1083 (N17E14 L=234)   491    232        0 ( 645/1064- 859/1118) -12.1 E20-E06 N14-N19
     12  960 1036 (N09E03 L=245)   355    109        1 ( 914/ 999-1005/1076) -63.4 E05-E01 N05-N11
     13  383 1009 (N21E41 L=206)  1113    347        1 ( 239/ 924- 517/1050)   2.2 E56-E30 N18-N22
     14  212  974 (N22E60 L=188)   360     84        0 ( 195/ 937- 228/1013)  63.4 E61-E57 N20-N24
     15 1591  939 (S15W31 L=279)   388    130        1 (1537/ 905-1631/ 986)  -7.1 W27-W35 S16-S12
     16  141  933 (N21E71 L=177)  1092    114        2 ( 102/ 898- 185/ 976) -21.8 E79-E64 N17-N23
     17  424  926 (N15E40 L=208)   382    125        0 ( 365/ 912- 484/ 941) -18.4 E44-E35 N13-N16
     18 1823  834 (S29W51 L=299)  1779    233        3 (1755/ 767-1869/ 939)  24.8 W42-W57 S32-S23
     19  692  817 (N03E24 L=224)   295     80        0 ( 660/ 781- 717/ 851)  26.6 E27-E21 N01-N04
     20 1511  456 (S44W16 L=264)  1947    412        4 (1346/ 342-1632/ 585)  13.6 W00-W29 S47-S37
     21  489  362 (S20E60 L=188)   800     70        2 ( 469/ 322- 510/ 402)  40.6 E63-E55 S22-S16
     22 1245  287 (S47E11 L=237)   530     99        1 (1203/ 255-1286/ 306)   6.3 E15-E06 S49-S45
     23 1007  142 (S52E43 L=205)   852     91        1 ( 967/ 124-1052/ 161) -38.7 E48-E37 S55-S48
  

    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