Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1349 1833 (N50W64 L=167)  1195    114        2 (1293/1804-1394/1868)   0.0 W52-W80 N48-N51
      2 1744 1390 (N13W60 L=164)  1085    214        2 (1658/1348-1826/1444) -31.0 W53-W69 N08-N17
      3 1319 1337 (N20W25 L=129)   864    326        2 (1203/1270-1427/1411)  11.9 W15-W34 N16-N21
      4  469 1351 (N35E35 L= 69)   276    101        0 ( 440/1311- 495/1396)  51.3 E37-E33 N33-N38
      5  847 1165 (N18E08 L= 96)   317     98        1 ( 812/1119- 883/1203) -90.0 E10-E06 N14-N20
      6 1874 1040 (S11W63 L=167)  7462    352       13 (1796/ 890-1947/1196)  83.7 W52-W79 S20-S01
      7 1047  743 (S10E03 L=100)  1365    439        5 ( 935/ 620-1123/ 915) -87.0 E07-W00 S18-N01
      8 1713  836 (S18W43 L=147)   378     71        0 (1688/ 811-1740/ 869)  26.6 W40-W45 S19-S16
      9  213  828 (N05E63 L= 41)   494     67        0 ( 190/ 797- 240/ 857)  26.6 E66-E59 N03-N06
     10 1437  808 (S14W22 L=126)   432     89        2 (1411/ 769-1464/ 854)  53.1 W19-W23 S15-S10
     11 1325  808 (S12W14 L=118)   274     53        1 (1306/ 783-1349/ 839) -56.3 W13-W15 S13-S09
     12  528  597 (S12E40 L= 64)  1064    298        0 ( 499/ 480- 565/ 718)  72.6 E44-E35 S19-S03
     13 1746  664 (S31W48 L=152)   488     69        0 (1716/ 629-1772/ 691)  18.4 W44-W50 S33-S29
     14 1145  588 (S22E00 L=104)   642    187        1 (1120/ 501-1169/ 673)  74.7 E03-W02 S27-S16
     15  228  595 (S10E73 L= 31)   827    134        0 ( 196/ 552- 266/ 655) -60.3 E76-E69 S12-S05
     16 1263  476 (S32W06 L=109)   963    141        3 (1194/ 447-1309/ 531)   0.0 W00-W09 S34-S29
     17  357  445 (S21E66 L= 38)  1124    106        3 ( 339/ 392- 376/ 497)  39.3 E74-E60 S25-S16
     18  824  431 (S27E25 L= 79)   743    104        2 ( 802/ 375- 850/ 477)  45.0 E29-E22 S31-S23
     19 1444  319 (S52W21 L=125)   737     89        0 (1405/ 294-1486/ 347)   0.0 W16-W25 S54-S49
     20  479  319 (S31E64 L= 40)   739     94        0 ( 443/ 302- 532/ 339)   3.2 E74-E56 S33-S29
  

    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