Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  846 1815 (N62W23 L=356)   341     66        0 ( 827/1778- 863/1839)  40.6 W18-W26 N58-N64
      2 1320 1773 (N39W52 L= 25)   887    128        2 (1242/1753-1384/1786) -24.4 W46-W58 N36-N42
      3  642 1713 (N61E07 L=326)   328     31        2 ( 621/1692- 667/1735) -18.4 E09-E03 N59-N63
      4 1661 1655 (N20W71 L= 43)   562     75        1 (1632/1626-1700/1680) -51.3 W68-W73 N17-N22
      5 1313 1630 (N31W39 L= 12)   550    135        1 (1250/1597-1372/1673)   0.0 W33-W45 N30-N32
      6 1359 1544 (N25W37 L= 10)   594    151        0 (1280/1526-1430/1562) -26.6 W31-W41 N22-N27
      7  861 1532 (N40W05 L=338)   453    108        1 ( 825/1502- 904/1551)   0.0 W01-W08 N37-N41
      8 1402 1431 (N18W34 L=  7)   246     96        0 (1382/1385-1425/1475)  71.6 W33-W35 N14-N20
      9  420 1384 (N43E34 L=299)   684    111        1 ( 369/1349- 476/1425) -28.6 E39-E28 N39-N46
     10 1039 1323 (N22W09 L=342)   612    204        0 ( 966/1267-1105/1354) -40.6 W04-W12 N17-N25
     11 1813 1259 (S04W58 L= 31)   812     90        2 (1784/1207-1846/1302)  18.4 W53-W64 S06-S02
     12  154 1025 (N26E66 L=267)  1384    187        2 ( 109/ 947- 216/1096) -32.0 E74-E58 N20-N30
     13 1598  947 (S14W31 L=  4)   276     45        0 (1574/ 925-1615/ 974)  18.4 W29-W32 S15-S12
     14 1683  889 (S20W37 L=  9)   327     97        0 (1642/ 872-1731/ 910) -29.7 W33-W40 S21-S17
     15 1328  710 (S19W09 L=342)   707    212        0 (1271/ 610-1366/ 793)  48.4 W03-W12 S23-S14
     16  770  648 (S08E24 L=308)   758    211        0 ( 743/ 553- 807/ 750)  48.0 E28-E19 S13-S03
     17 1755  565 (S45W44 L= 16)   492     59        1 (1720/ 552-1789/ 587) -20.0 W38-W49 S47-S42
     18  768  438 (S21E33 L=300)   259     89        0 ( 755/ 392- 790/ 478)  45.0 E35-E29 S23-S18
     19  859  276 (S34E36 L=296)  2713    436        5 ( 691/ 189-1028/ 396)   8.5 E58-E18 S38-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