Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1056 1538 (N28E01 L=358)   396     88        2 (1027/1505-1094/1566) -26.6 E03-W01 N25-N29
      2 1758 1411 (N25W51 L= 51)  1806    318        5 (1687/1322-1868/1491) -29.4 W45-W62 N20-N30
      3 1645 1406 (N24W41 L= 40)   355     78        1 (1609/1374-1677/1425) -18.4 W37-W43 N21-N24
      4 1385 1263 (N12W21 L= 20)   287    108        0 (1344/1239-1435/1299) -18.4 W18-W24 N10-N13
      5 1476 1245 (N12W27 L= 26)   303    143        1 (1436/1196-1503/1291) -71.6 W24-W28 N08-N14
      6 1715 1120 (N06W45 L= 44)  1228    310        7 (1637/1062-1786/1212) -28.3 W38-W51 N03-N11
      7 1111 1144 (N03W05 L=  4)   259     64        2 (1070/1121-1148/1169)  36.9 W02-W06 N01-N04
      8  391 1101 (S02E42 L=318)   282     57        0 ( 373/1069- 408/1134) -63.4 E43-E40 S04-N00
      9 1477 1098 (N03W27 L= 27)   313    117        0 (1421/1066-1524/1133)  35.5 W23-W30 N00-N05
     10  213  900 (S14E58 L=302)  2599    448       10 ( 181/ 697- 254/1079)  70.8 E63-E53 S26-S03
     11  841  986 (S08E11 L=349)   307     57        2 ( 825/ 948- 859/1028)  90.0 E11-E09 S10-S05
     12 1286  923 (S09W16 L= 16)   478    275        0 (1155/ 884-1422/ 970)  23.6 W08-W24 S12-S05
     13  471  886 (S15E35 L=324)   243     92        1 ( 455/ 841- 490/ 937)  80.5 E36-E33 S17-S11
     14  685  868 (S15E20 L=339)   485    128        2 ( 638/ 843- 756/ 903)  14.0 E23-E15 S17-S13
     15 1734  736 (S16W52 L= 51)  1550    408       10 (1657/ 604-1823/ 871)  64.8 W45-W57 S24-S07
     16  967  812 (S18E02 L=357)   278     99        2 ( 917/ 790-1023/ 856) -26.6 E05-W01 S18-S15
     17 1133  714 (S23W09 L=  8)   726    280        1 (1059/ 621-1207/ 824)  61.7 W04-W12 S28-S15
     18 1428  782 (S16W27 L= 27)   323    107        0 (1397/ 745-1474/ 804)  11.3 W25-W30 S18-S14
     19  503  606 (S33E36 L=324)   757    274        3 ( 468/ 510- 539/ 705)  65.2 E40-E32 S39-S26
     20 1299  556 (S32W22 L= 22)  2774    634        5 (1004/ 429-1582/ 689)  30.1 W02-W40 S42-S20
  

    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