Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1226 1619 (N34W34 L=307)  2060    582        5 (1046/1537-1473/1678) -42.3 W23-W45 N21-N42
      2  734 1653 (N53W01 L=274)   375     49        1 ( 711/1629- 764/1677)  11.3 E02-W03 N51-N55
      3 1637 1620 (N20W65 L=339)   481     66        0 (1603/1595-1665/1643) -63.4 W63-W68 N17-N21
      4  414 1547 (N56E38 L=235)  1014    121        1 ( 371/1499- 468/1572)  -7.6 E46-E30 N52-N58
      5 1805 1461 (N06W72 L=345)   659     63        0 (1777/1439-1829/1487)   0.0 W66-W79 N04-N06
      6 1566 1437 (N13W46 L=320)   284     37        0 (1541/1424-1595/1456) -33.7 W44-W48 N11-N14
      7  870 1344 (N28E00 L=273)   230    116        0 ( 814/1320- 920/1360) -38.7 E03-W02 N25-N29
      8  704 1267 (N28E13 L=261)   264    118        0 ( 668/1218- 724/1324)  39.8 E16-E10 N26-N31
      9  346 1200 (N33E43 L=231)   975    308        1 ( 234/1127- 476/1257) -27.5 E56-E31 N26-N39
     10 1831 1098 (S14W56 L=329)   891    143        0 (1813/1031-1850/1176)  53.1 W52-W60 S17-S09
     11  973 1033 (N08E03 L=271)   279    159        0 ( 912/1003-1035/1091)   7.1 E06-W02 N07-N09
     12  392  938 (N17E42 L=231)   333    117        0 ( 339/ 924- 449/ 960) -18.4 E46-E37 N14-N18
     13  221  928 (N19E59 L=214)   786    149        0 ( 154/ 887- 269/ 955) -19.7 E68-E54 N16-N21
     14 1774  858 (S26W45 L=318)   533    150        2 (1728/ 780-1808/ 913)  21.8 W39-W49 S28-S22
     15  191  844 (N15E65 L=208)   618     95        1 ( 151/ 814- 240/ 876) -20.0 E71-E59 N12-N16
     16 1562  679 (S29W24 L=297)  1144    212        1 (1487/ 608-1614/ 775)  26.6 W17-W29 S32-S24
     17 1807  632 (S43W51 L=325)  1685    153        1 (1751/ 589-1850/ 694)  15.3 W42-W60 S46-S38
     18 1691  624 (S38W35 L=309)   694    107        1 (1657/ 581-1716/ 681)  56.3 W31-W38 S40-S34
     19  863  600 (S13E21 L=252)   247    109        0 ( 817/ 578- 919/ 613)  -8.1 E24-E17 S14-S12
     20 1240  311 (S45E10 L=264)  1408    255        2 (1126/ 248-1331/ 387)   8.5 E20-W00 S47-S41
  

    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