Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  396 1568 (N46E55 L=287)   553     75        1 ( 364/1536- 423/1592)  -8.7 E63-E50 N43-N48
      2 1444 1451 (N27W35 L= 17)   327    106        0 (1393/1429-1498/1477) -23.2 W32-W39 N24-N28
      3  687 1379 (N31E20 L=322)  1269    377        4 ( 554/1250- 820/1458) -38.3 E31-E10 N21-N36
      4 1350 1280 (N17W24 L=  6)   303     99        0 (1329/1231-1367/1327) -90.0 W23-W24 N14-N20
      5  744 1171 (N17E16 L=326)   214     72        0 ( 717/1143- 774/1198)  36.9 E18-E14 N15-N18
      6 1682 1146 (N05W46 L= 28)   840    172        4 (1625/1097-1752/1197)  18.4 W40-W52 N02-N06
      7 1859 1045 (S05W62 L= 44)   704    104        1 (1838/ 987-1871/1097)  81.9 W60-W64 S08-S01
      8 1831  908 (S12W58 L= 40)   420     75        1 (1797/ 877-1860/ 937)  15.9 W54-W61 S13-S10
      9 1514  739 (S18W29 L= 11)   277     96        0 (1501/ 691-1526/ 792) -80.5 W28-W30 S20-S14
     10  362  768 (S05E48 L=294)   299     57        2 ( 335/ 745- 386/ 786) -33.7 E50-E45 S06-S04
     11  756  719 (S11E20 L=322)   411    106        1 ( 721/ 678- 778/ 770)  56.3 E22-E18 S13-S07
     12  302  584 (S17E61 L=281)  2161    283        3 ( 268/ 455- 343/ 689)  58.0 E69-E53 S26-S10
     13 1129  670 (S17W03 L=345)   241    109        0 (1070/ 653-1169/ 689)   0.0 W00-W05 S18-S16
     14  882  659 (S16E13 L=329)   264    116        2 ( 841/ 629- 931/ 688) -21.8 E14-E09 S17-S13
     15 1206  594 (S23W07 L=349)   586    147        0 (1168/ 535-1258/ 658)  53.1 W04-W11 S27-S19
     16 1525  547 (S31W31 L= 13)  1175    154        3 (1454/ 494-1587/ 601)  29.1 W25-W36 S34-S28
     17 1619  501 (S37W42 L= 24)  1302    254        2 (1509/ 463-1719/ 570)  11.3 W31-W52 S38-S33
     18  410  457 (S26E56 L=286)   876    134        1 ( 376/ 412- 433/ 511)  35.0 E62-E50 S29-S22
     19 1232  325 (S45W08 L=350)  1816    263        4 (1155/ 244-1326/ 408)  36.3 W00-W15 S52-S38
     20  629  289 (S41E46 L=296)   944     92        0 ( 599/ 243- 664/ 328)  26.6 E55-E39 S45-S37
  

    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