Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  636 1797 (N38E60 L=143)   979    101        0 ( 595/1765- 679/1842)  -6.8 E77-E52 N35-N40
      2  614 1676 (N28E48 L=155)  1080    201        2 ( 527/1634- 698/1725)  45.0 E54-E44 N24-N33
      3 1439 1534 (N40W17 L=220)  1227    225        2 (1368/1451-1478/1615) -42.0 W09-W20 N33-N44
      4  901 1510 (N24E20 L=184)   439    211        0 ( 835/1431- 957/1575) -24.8 E26-E13 N20-N27
      5  329 1535 (N14E66 L=137)   660     85        0 ( 307/1496- 360/1571)  80.5 E68-E64 N10-N16
      6 1361 1359 (N25W14 L=217)  1694    661        1 (1192/1085-1481/1558) -41.5 E02-W26 N11-N35
      7  903 1407 (N18E16 L=187)   232     42        0 ( 885/1380- 924/1430)  90.0 E17-E14 N15-N19
      8  928 1348 (N14E13 L=190)   872    293        4 ( 799/1307-1053/1387)   3.4 E21-E04 N12-N16
      9 1284 1326 (N21W09 L=212)   213     91        0 (1260/1281-1297/1360) -53.1 W06-W10 N18-N23
     10 1702 1218 (N25W42 L=245)  1193    254        2 (1663/1142-1781/1272) -54.5 W38-W50 N20-N28
     11  306 1140 (S10E51 L=152)  1247    316        1 ( 262/1012- 349/1258) -54.5 E57-E45 S17-S03
     12  220 1117 (S13E60 L=143)  2098    289        7 ( 182/ 991- 259/1225) -70.3 E65-E54 S20-S06
     13 1891 1028 (N18W66 L=270)  1072    155        0 (1876/ 953-1908/1104)  90.0 W63-W70 N13-N23
     14  361  964 (S20E43 L=160)   789    200        3 ( 300/ 899- 397/1042)  63.4 E48-E40 S24-S14
     15 1281  707 (S15W23 L=226)   225     55        1 (1257/ 681-1299/ 739) -63.4 W21-W24 S16-S12
     16 1154  694 (S19W16 L=219)   406    141        1 (1083/ 677-1208/ 721)  23.2 W11-W18 S20-S16
     17  502  630 (S38E28 L=175)  2110    324        4 ( 362/ 571- 632/ 704)  -2.2 E42-E16 S41-S35
     18  290  667 (S41E53 L=150)  1236    115        1 ( 231/ 646- 346/ 697)  11.3 E64-E44 S43-S38
     19  503  475 (S50E30 L=174)   313     47        1 ( 479/ 459- 531/ 494)  -9.5 E32-E26 S51-S48
     20  803  376 (S49W02 L=205)   683    148        0 ( 757/ 336- 873/ 431) -18.4 E03-W09 S51-S45
     21 1227  342 (S39W36 L=240)   374     56        0 (1195/ 322-1255/ 360)  11.3 W33-W39 S40-S37
  

    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