Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1383 1851 (N50W73 L=166)   706     63        1 (1357/1828-1409/1870)   0.0 W64-W85 N48-N50
      2 1769 1473 (N16W69 L=162)   681     76        1 (1732/1445-1800/1498) -29.7 W64-W72 N13-N18
      3 1518 1428 (N20W42 L=135)   503     92        0 (1494/1389-1545/1458)  26.6 W39-W45 N18-N22
      4 1722 1385 (N13W57 L=150)   621    118        2 (1693/1325-1745/1438)  56.3 W55-W60 N09-N15
      5  592 1388 (N36E24 L= 68)   289    101        0 ( 569/1339- 616/1434)  56.3 E26-E22 N33-N39
      6 1005 1222 (N19W02 L= 95)   204     75        2 ( 982/1197-1034/1261) -68.2 W01-W03 N16-N21
      7  150 1108 (N23E70 L= 22)  1483    214        2 ( 111/1010- 173/1196) -38.2 E82-E65 N16-N27
      8 1684 1100 (S02W44 L=137)   487    131        2 (1648/1053-1734/1154) -63.4 W41-W47 S05-N01
      9 1922 1050 (S12W71 L=164)  2863    190        4 (1889/ 966-1949/1123)  60.9 W64-W80 S17-S07
     10 1564  917 (S10W32 L=125)   316    105        0 (1553/ 869-1578/ 972)  71.6 W30-W32 S12-S06
     11 1218  809 (S09W08 L=100)  1108    409        2 (1120/ 706-1302/ 968) -71.6 W04-W11 S17-N01
     12 1818  880 (S19W54 L=147)  1208    105        3 (1778/ 836-1875/ 920)   0.0 W49-W62 S21-S16
     13 1482  873 (S11W25 L=118)   249     47        1 (1460/ 854-1508/ 897) -45.0 W24-W27 S12-S09
     14 1609  861 (S15W34 L=127)   531    103        2 (1572/ 827-1663/ 896)  -8.1 W31-W38 S16-S12
     15  321  836 (N05E51 L= 42)   445     83        1 ( 287/ 807- 361/ 863)  15.9 E54-E47 N03-N06
     16  296  582 (S11E63 L= 29)  2949    190        5 ( 255/ 503- 360/ 667)  50.2 E73-E57 S16-S04
     17  678  541 (S17E31 L= 61)   399     87        0 ( 659/ 490- 695/ 585)  71.6 E32-E29 S20-S14
     18 1418  518 (S33W17 L=110)   809    123        3 (1351/ 491-1473/ 555) -24.0 W12-W21 S35-S30
     19  429  530 (S15E51 L= 41)   395     56        3 ( 402/ 505- 452/ 552) -33.7 E53-E49 S16-S13
     20  457  464 (S20E53 L= 40)   727    105        3 ( 434/ 406- 482/ 508)  41.2 E56-E48 S23-S16
     21  976  450 (S28E15 L= 78)   624     90        0 ( 953/ 396-1002/ 495)  50.2 E17-E11 S32-S25
     22 1536  349 (S52W31 L=124)   615     53        3 (1505/ 327-1566/ 370)   0.0 W27-W35 S54-S49
     23  599  328 (S32E49 L= 44)  1322    203        1 ( 507/ 303- 696/ 347)  -9.5 E60-E40 S34-S29
  

    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