Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  689 1600 (N36E32 L= 66)   394    114        2 ( 645/1553- 723/1640)  66.8 E34-E30 N32-N39
      2  307 1519 (N27E67 L= 31)  2852    218        6 ( 235/1449- 356/1591)  63.4 E77-E57 N21-N31
      3  397 1533 (N29E56 L= 42)   412     30        0 ( 370/1514- 418/1551)  26.6 E58-E53 N27-N30
      4 1274 1424 (N29W14 L=112)   880    273        1 (1196/1311-1326/1527) -60.3 W08-W17 N21-N35
      5 1012 1438 (N28E04 L= 94)  1252    256        3 ( 937/1327-1076/1511) -56.3 E09-W00 N20-N32
      6  371 1451 (N23E54 L= 44)   340     64        0 ( 353/1424- 389/1481)  76.0 E56-E52 N21-N25
      7 1584 1299 (N23W37 L=135)   398     74        1 (1556/1263-1607/1335) -63.4 W35-W39 N20-N24
      8 1851 1145 (N14W63 L=160)   674     97        2 (1835/1098-1870/1193)  80.5 W60-W65 N11-N17
      9 1879 1081 (N10W66 L=164)   519     73        5 (1850/1058-1903/1113)  26.6 W62-W70 N08-N12
     10  405 1040 (S02E41 L= 56)   251     24        1 ( 386/1020- 428/1057) -26.6 E42-E39 S03-N00
     11  195  938 (S10E62 L= 36)   541     85        2 ( 178/ 907- 223/ 980)  78.7 E64-E58 S12-S07
     12  416  919 (S09E40 L= 58)   373    150        0 ( 358/ 877- 477/ 953)  33.7 E44-E35 S12-S06
     13 1235  672 (S19W16 L=114)  3214    777        7 ( 944/ 511-1462/ 921)  44.0 E01-W28 S31-S01
     14  172  875 (S14E66 L= 31)   900     99        2 ( 143/ 839- 207/ 914) -18.4 E70-E61 S16-S12
     15  758  797 (S14E15 L= 82)   316    106        0 ( 700/ 784- 801/ 813)   8.1 E19-E12 S15-S12
     16  508  760 (S18E33 L= 65)   454    147        2 ( 455/ 720- 559/ 788) -20.6 E37-E29 S20-S16
     17 1791  727 (S12W60 L=158)   731     99        2 (1759/ 689-1829/ 756)  29.7 W57-W64 S14-S10
     18  333  625 (S29E52 L= 46)  1746    262        3 ( 254/ 536- 440/ 680)  20.6 E71-E39 S37-S24
     19 1728  575 (S22W60 L=157)  1963    256        3 (1667/ 534-1802/ 618)  23.2 W52-W70 S25-S19
     20  619  421 (S42E29 L= 69)  1031    144        2 ( 561/ 380- 681/ 467)  26.6 E36-E22 S46-S37
     21  768  277 (S54E18 L= 80)   638    105        1 ( 722/ 251- 814/ 304)  14.0 E24-E12 S57-S50
  

    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