Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1619 1650 (N34W66 L=314)  1050     75        2 (1581/1626-1663/1669)  -3.8 W59-W75 N32-N35
      2  379 1546 (N47E55 L=193)  2027    270        3 ( 341/1426- 414/1656) -23.0 E85-E44 N38-N55
      3  772 1564 (N44E11 L=237)   251     53        0 ( 742/1544- 800/1583) -26.6 E14-E08 N42-N46
      4 1367 1428 (N25W30 L=278)   264     83        1 (1321/1411-1409/1439) -18.4 W26-W32 N23-N26
      5  592 1402 (N35E26 L=222)  1672    410        4 ( 409/1364- 769/1427) -11.0 E43-E12 N30-N37
      6 1052 1403 (N29W07 L=255)   386    185        1 ( 971/1385-1141/1416) -20.0 W02-W13 N26-N30
      7 1274 1273 (N17W19 L=267)   558    108        2 (1233/1222-1306/1327)  71.6 W17-W20 N14-N20
      8 1623 1260 (N11W44 L=292)   585    164        0 (1554/1216-1691/1280) -31.0 W38-W48 N06-N13
      9 1284 1121 (N08W17 L=265)   199     28        1 (1265/1097-1298/1145) -90.0 W15-W18 N06-N09
     10  200  995 (N12E62 L=186)  1352    239        2 ( 173/ 907- 224/1114)  69.0 E66-E59 N06-N19
     11 1921 1016 (S10W72 L=320)  2945    170        8 (1882/ 935-1955/1078)  30.3 W65-W82 S15-S06
     12  123 1004 (N12E75 L=173)  1674     96        1 (  89/ 980- 155/1034) -90.0 E89-E68 N10-N14
     13  715  812 (S03E22 L=226)   387    144        3 ( 669/ 773- 778/ 839) -15.9 E24-E17 S05-S01
     14  210  638 (S11E72 L=176)  5169    308        9 ( 142/ 539- 273/ 762) -60.3 E88-E65 S17-S02
     15  510  696 (S08E38 L=210)   391    107        1 ( 491/ 654- 527/ 752)  71.6 E40-E36 S10-S04
     16 1743  715 (S25W48 L=297)   433     79        0 (1720/ 679-1761/ 750) -45.0 W45-W51 S27-S22
     17  622  689 (S10E30 L=218)   228     66        2 ( 595/ 662- 642/ 711) -45.0 E31-E28 S11-S08
     18  574  660 (S11E34 L=214)   412    113        0 ( 549/ 630- 605/ 699) -90.0 E35-E31 S13-S08
     19 1642  638 (S28W39 L=287)   488    104        1 (1587/ 622-1688/ 660) -12.5 W34-W43 S29-S26
     20  590  607 (S15E34 L=214)   499    171        1 ( 535/ 578- 645/ 650)   6.3 E38-E29 S16-S12
     21  357  475 (S22E63 L=186)  1960    239        4 ( 337/ 374- 384/ 596)  35.3 E78-E53 S30-S13
     22  685  513 (S22E30 L=218)   883    163        3 ( 631/ 450- 737/ 573)  32.5 E36-E25 S25-S18
     23  788  516 (S23E23 L=225)   593    140        2 ( 728/ 476- 834/ 563)  21.8 E28-E18 S25-S20
     24 1705  468 (S44W54 L=302)   823     59        2 (1683/ 441-1726/ 504) -30.3 W49-W62 S47-S40
     25  989  163 (S58E25 L=223)   648     59        1 ( 956/ 146-1025/ 192)   0.0 E31-E22 S59-S53
  

    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