Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  687 1645 (N46E29 L=166)   327     47        0 ( 669/1613- 701/1673) -68.2 E30-E26 N43-N48
      2 1221 1649 (N45W20 L=214)   273     85        0 (1184/1635-1260/1669) -26.6 W16-W22 N43-N46
      3 1382 1547 (N36W30 L=224)   445     59        2 (1350/1517-1411/1572) -63.4 W28-W32 N34-N38
      4  181 1336 (N23E75 L=120)   764     79        2 ( 149/1312- 206/1356)   9.5 E82-E69 N21-N24
      5  376 1294 (N21E47 L=147)   633    150        1 ( 328/1240- 407/1326) -29.7 E51-E42 N18-N23
      6 1024 1254 (N18W01 L=195)   230    128        0 ( 988/1206-1064/1304) -63.4 E01-W03 N15-N21
      7  256 1217 (N16E58 L=136)   983    128        1 ( 233/1155- 278/1271)  90.0 E60-E54 N12-N19
      8 1611 1028 (N02W39 L=233)   301     88        0 (1565/1008-1640/1052)  21.8 W35-W41 N00-N03
      9  746  956 (N00E17 L=177)   232     34        1 ( 722/ 938- 769/ 977)   0.0 E18-E15 N00-N01
     10  868  848 (S06E10 L=184)   790    202        2 ( 789/ 786- 940/ 920) -41.6 E14-E05 S10-S01
     11 1502  866 (S08W30 L=224)   442    121        0 (1469/ 828-1525/ 899)  53.1 W28-W32 S09-S05
     12 1346  770 (S13W20 L=214)   537    160        3 (1294/ 715-1372/ 834)  60.3 W16-W21 S16-S08
     13  569  772 (S11E30 L=164)   221     70        0 ( 534/ 761- 608/ 785) -11.3 E32-E27 S11-S09
     14  560  666 (S18E33 L=162)  2596    497       11 ( 417/ 525- 714/ 775) -40.1 E42-E23 S27-S10
     15  917  590 (S23E08 L=186)  1160    282        0 ( 839/ 485-1012/ 672)  45.0 E14-E01 S30-S17
     16 1507  586 (S26W33 L=227)  1002    250        3 (1420/ 529-1624/ 644)  21.8 W26-W42 S29-S22
     17  573  560 (S25E34 L=160)   299     47        1 ( 556/ 533- 590/ 589) -90.0 E35-E32 S26-S22
     18 1502  496 (S32W35 L=229)  1115    181        2 (1441/ 429-1548/ 565)  59.0 W31-W37 S37-S27
     19  783  380 (S39E22 L=173)   575     97        2 ( 732/ 351- 823/ 412) -26.6 E24-E18 S41-S36
     20 1231  320 (S46W16 L=210)   960    115        3 (1182/ 280-1284/ 351) -21.8 W10-W20 S49-S42
     21  853  222 (S54E22 L=172)   460     54        2 ( 824/ 199- 877/ 247)  15.9 E25-E18 S57-S51
     22 1028  197 (S58E04 L=190)   405     36        2 (1007/ 178-1053/ 217)  18.4 E06-W00 S60-S55
  

    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