Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  860 1810 (N37E41 L=138)   632     79        1 ( 820/1790- 893/1831)  -6.3 E45-E36 N35-N38
      2  816 1742 (N31E38 L=141)   500     59        1 ( 794/1712- 846/1766)  90.0 E40-E35 N28-N33
      3 1022 1487 (N20E13 L=165)   767    355        1 ( 954/1331-1087/1636) -39.8 E23-E04 N12-N27
      4 1643 1617 (N53W30 L=209)   539     41        1 (1615/1599-1672/1635)   7.1 W26-W35 N50-N55
      5  287 1538 (N06E70 L=109)   722    131        0 ( 258/1472- 317/1582) -82.9 E72-E67 N01-N09
      6  581 1528 (N11E41 L=137)   377     67        0 ( 547/1500- 608/1549)   0.0 E44-E39 N09-N12
      7  516 1354 (S00E39 L=140)   588    180        0 ( 495/1282- 535/1444) -71.6 E42-E37 S04-N05
      8  238 1402 (S03E66 L=112)   590     59        0 ( 210/1383- 272/1423)   0.0 E71-E61 S03-S01
      9  278 1279 (S09E56 L=122)   547    122        1 ( 263/1225- 296/1343) -49.4 E59-E52 S12-S05
     10 1403 1187 (N14W17 L=195)   506    155        1 (1363/1112-1423/1246) -60.3 W13-W19 N09-N16
     11  294 1053 (S22E49 L=130)   373     94        0 ( 273/1008- 322/1097) -45.0 E51-E45 S24-S19
     12  611  992 (S18E23 L=156)  1055    291        0 ( 486/ 907- 704/1074)  51.8 E30-E19 S25-S11
     13 1820  899 (N11W55 L=234)   976    207        1 (1770/ 822-1864/ 979)  74.7 W51-W59 N06-N17
     14  880  783 (S23E01 L=177)  1516    367        2 ( 699/ 742-1043/ 830)  33.7 E11-W07 S29-S16
     15 1821  727 (N03W63 L=241)   443     74        1 (1807/ 683-1839/ 759) -63.4 W60-W65 N00-N04
     16  408  671 (S43E35 L=144)   893    170        0 ( 333/ 632- 483/ 705)  29.4 E43-E27 S47-S38
     17 1551  625 (S12W44 L=223)   528    149        0 (1504/ 567-1590/ 695)  90.0 W42-W45 S15-S06
     18 1333  523 (S24W35 L=213)   477    118        0 (1277/ 497-1391/ 544)  39.8 W32-W38 S26-S21
     19 1734  477 (S13W71 L=249)  2534    123        2 (1689/ 427-1786/ 527)  81.9 W65-W78 S16-S09
     20 1325  418 (S30W41 L=219)   564    207        0 (1241/ 402-1423/ 450)  14.9 W33-W48 S32-S26
     21 1148  219 (S48W48 L=226)  1656    197        3 (1053/ 172-1224/ 266)   4.6 W35-W60 S51-S45
  

    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