Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  482 1668 (N17E57 L= 22)   678    195        0 ( 441/1601- 511/1738) -63.4 E62-E55 N12-N22
      2  397 1620 (N13E62 L= 17)  1394    280        6 ( 363/1566- 443/1663) -28.6 E67-E55 N09-N15
      3  796 1621 (N22E32 L= 47)   353    123        1 ( 758/1578- 832/1662) -26.6 E36-E28 N19-N23
      4  350 1510 (N05E60 L= 19)  1001    222        4 ( 310/1463- 417/1567)  24.0 E64-E53 N01-N08
      5 1239 1369 (N19W02 L= 82)   876    288        2 (1211/1246-1272/1501) -65.0 E01-W07 N11-N27
      6  230 1326 (S08E64 L= 15)   928    141        1 ( 207/1288- 251/1394) -49.4 E67-E59 S10-S03
      7 1584 1369 (N30W25 L=104)   286     54        1 (1559/1347-1609/1392) -14.0 W22-W27 N28-N31
      8  742 1280 (N00E23 L= 57)   516    157        1 ( 665/1239- 824/1303)   5.2 E27-E16 S01-N01
      9 1431 1213 (N15W18 L= 97)   515    140        0 (1409/1146-1452/1291) -58.0 W14-W20 N11-N19
     10  167  960 (S31E60 L= 20)  1547    370        2 (  89/ 938- 246/ 980)  13.2 E68-E51 S32-S28
     11 1246  926 (S06W15 L= 94)   490    102        1 (1223/ 869-1270/ 979) -71.6 W12-W16 S08-S02
     12  671  885 (S24E17 L= 62)   773    162        1 ( 606/ 815- 717/ 951)  74.7 E19-E14 S29-S18
     13 1830  856 (N09W58 L=137)   578     95        0 (1813/ 807-1845/ 899) -59.0 W54-W61 N06-N11
     14  424  759 (S38E33 L= 46)  1417    302        3 ( 320/ 723- 545/ 808)  20.2 E42-E23 S42-S33
     15 1824  690 (N01W66 L=145)  1380    318        2 (1777/ 661-1891/ 747)  17.4 W59-W77 S01-N04
     16  916  612 (S33W06 L= 86)   993    268        1 ( 837/ 537-1033/ 726)  73.6 W02-W09 S39-S22
     17 1257  605 (S22W27 L=106)   488    125        0 (1184/ 574-1312/ 654)  60.3 W23-W28 S26-S18
     18 1526  599 (S14W44 L=123)   400    148        2 (1476/ 575-1579/ 638)   6.3 W38-W47 S15-S12
     19 1275  462 (S30W35 L=114)   428     70        1 (1239/ 441-1318/ 483)  36.9 W32-W37 S31-S27
     20 1425  314 (S32W54 L=133)   454     65        1 (1391/ 302-1458/ 335)  21.8 W51-W56 S34-S30
  

    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