Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  439 1614 (N47E54 L= 19)  2691    211        6 ( 376/1547- 506/1695) -12.0 E88-E41 N41-N53
      2  704 1640 (N48E24 L= 50)   447     96        2 ( 681/1591- 723/1676) -54.5 E26-E20 N44-N51
      3 1346 1598 (N39W32 L=105)   415     97        0 (1297/1584-1401/1610)   0.0 W27-W37 N38-N39
      4 1190 1558 (N38W18 L= 91)   327     84        2 (1172/1515-1205/1601)  81.9 W15-W19 N34-N41
      5 1577 1504 (N30W48 L=121)  1069    179        1 (1506/1436-1623/1555) -71.6 W43-W51 N24-N33
      6  906 1346 (N26E05 L= 68)   334     90        0 ( 888/1306- 928/1383) -78.7 E06-E04 N23-N28
      7 1740 1351 (N18W57 L=130)   563     55        1 (1712/1322-1769/1380) -31.0 W54-W59 N15-N19
      8  677 1231 (N20E21 L= 52)   415    236        0 ( 645/1167- 755/1271)  45.0 E23-E15 N15-N22
      9  360  993 (N06E45 L= 28)   635    138        1 ( 295/ 954- 417/1028)  10.3 E51-E40 N03-N08
     10  536  882 (S01E32 L= 41)   949    290        2 ( 505/ 765- 606/ 997)  58.4 E35-E26 S08-N05
     11 1338  845 (S08W18 L= 92)   621    143        0 (1298/ 797-1394/ 903) -54.5 W15-W21 S11-S04
     12 1748  828 (S14W50 L=124)   694    167        2 (1697/ 769-1800/ 897)  35.0 W45-W55 S17-S10
     13  290  700 (S12E57 L= 16)  2279    395        4 ( 241/ 581- 346/ 854)  45.0 E69-E49 S20-S02
     14 1242  781 (S12W12 L= 85)   266     74        1 (1217/ 748-1269/ 816)  76.0 W10-W13 S13-S09
     15 1299  758 (S14W15 L= 89)   204     51        1 (1278/ 739-1321/ 782)   0.0 W14-W16 S14-S12
     16 1546  652 (S23W34 L=107)   904    236        2 (1522/ 551-1578/ 756)  90.0 W32-W35 S30-S16
     17  780  680 (S15E18 L= 55)   382    159        0 ( 722/ 628- 815/ 706) -26.6 E22-E15 S18-S13
     18 1389  587 (S26W22 L= 95)   446    123        1 (1347/ 543-1428/ 637)  50.2 W18-W24 S28-S22
     19  516  572 (S21E40 L= 34)   406     74        1 ( 482/ 549- 553/ 591)   9.5 E42-E36 S22-S19
     20  905  522 (S26E12 L= 61)   248    108        0 ( 861/ 500- 952/ 548)  23.2 E15-E08 S27-S24
     21  382  489 (S27E57 L= 17)   650    156        0 ( 360/ 427- 425/ 532)  29.7 E64-E49 S31-S23
     22  477  370 (S36E55 L= 18)   655     86        0 ( 440/ 356- 526/ 388) -12.5 E60-E49 S37-S34
     23  887  360 (S39E17 L= 57)   379     75        1 ( 856/ 336- 922/ 383)  26.6 E19-E13 S40-S36
     24 1375  346 (S45W24 L= 98)   324     36        2 (1349/ 332-1402/ 362)   0.0 W21-W27 S46-S43
  

    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