Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1222 1465 (N32W11 L=208)  1514    452        2 (1092/1330-1391/1561) -30.6 W01-W23 N23-N38
      2  513 1389 (N21E39 L=158)   680    181        0 ( 480/1325- 566/1465) -36.0 E44-E33 N17-N26
      3 1700 1315 (N24W49 L=246)   418     78        2 (1681/1271-1714/1350) -90.0 W48-W51 N21-N26
      4 1692 1157 (N14W46 L=243)   360     69        1 (1665/1128-1720/1182) -31.0 W43-W48 N12-N15
      5 1864 1125 (N12W65 L=263)   917    113        3 (1840/1065-1888/1178)  54.5 W61-W70 N08-N15
      6  876 1095 (N06E10 L=188)   438    190        1 ( 836/1055- 929/1150) -51.3 E12-E06 N03-N08
      7 1749  856 (S05W53 L=250)   499     17        0 (1723/ 835-1772/ 879)  14.0 W50-W55 S05-S03
      8 1112  709 (S17W08 L=205)   267     69        0 (1077/ 690-1148/ 726)   0.0 W05-W09 S18-S15
      9 1311  643 (S20W22 L=219)   265     82        0 (1281/ 614-1345/ 684)  59.0 W19-W23 S22-S17
     10 1829  655 (S17W71 L=268)   649     42        1 (1801/ 635-1847/ 677) -10.3 W65-W76 S18-S15
     11 1480  644 (S19W34 L=231)   306     34        1 (1458/ 623-1507/ 669)  71.6 W32-W36 S20-S17
     12 1682  606 (S21W53 L=250)   361     29        0 (1667/ 580-1696/ 630)  71.6 W51-W54 S22-S19
     13  363  567 (S33E52 L=146)   681     76        1 ( 319/ 553- 406/ 588)   0.0 E57-E46 S33-S30
     14 1066  477 (S33W07 L=204)   247     66        0 (1032/ 461-1100/ 495)  21.8 W04-W09 S34-S31
     15 1203  411 (S37W19 L=216)   420    106        1 (1152/ 391-1252/ 429)  15.9 W15-W22 S39-S35
  

    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