Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1524 1463 (N20W44 L=339)   321     69        1 (1497/1433-1547/1497) -90.0 W43-W46 N17-N22
      2  922 1462 (N35W04 L=298)  1217    316        1 ( 792/1432-1086/1494) -16.7 E05-W15 N31-N38
      3 1276 1415 (N24W25 L=320)   894    292        1 (1156/1320-1366/1462) -56.3 W18-W28 N16-N28
      4 1254 1256 (N15W19 L=313)   619    196        0 (1214/1191-1310/1300)  56.3 W16-W22 N11-N18
      5 1799 1221 (S01W58 L=352)   550     82        3 (1769/1194-1832/1252)   0.0 W54-W62 S02-N00
      6 1703 1165 (S01W47 L=341)   373     86        1 (1673/1146-1735/1192) -45.0 W44-W49 S03-N00
      7 1772 1059 (S09W50 L=345)  1282    237        3 (1676/ 969-1865/1153)   5.4 W40-W61 S12-S04
      8  611 1072 (N18E25 L=270)   300     65        0 ( 586/1048- 648/1103) -45.0 E26-E22 N16-N19
      9  204 1015 (N20E61 L=233)   872    118        1 ( 175/ 966- 247/1064) -37.9 E65-E56 N16-N23
     10 1934 1024 (S17W72 L=  7)  1156     78        3 (1898/ 990-1955/1061) -51.3 W64-W79 S19-S14
     11  139  969 (N18E72 L=223)   716     70        1 ( 119/ 937- 161/1001)  53.1 E76-E67 N15-N19
     12  631  886 (N07E26 L=268)   686    180        0 ( 594/ 800- 668/ 965) -90.0 E27-E24 N01-N11
     13  323  900 (N12E50 L=245)   362    113        2 ( 292/ 859- 343/ 943)  38.7 E53-E47 N10-N14
     14  204  743 (N04E68 L=227)   619     64        1 ( 186/ 716- 226/ 773) -45.0 E70-E64 N02-N05
     15 1659  743 (S25W36 L=330)   348     77        1 (1636/ 721-1694/ 768)   0.0 W33-W39 S26-S23
     16  289  691 (S00E59 L=236)  1238    201        1 ( 242/ 616- 357/ 729)  11.3 E66-E51 S04-N02
     17 1167  634 (S19E00 L=294)   255     52        1 (1137/ 616-1203/ 649) -18.4 E01-W02 S19-S17
     18  263  549 (S09E71 L=223)  3483    176        6 ( 211/ 475- 317/ 611) -90.0 E82-E62 S14-S04
     19 1181  551 (S25E01 L=293)   301     61        1 (1163/ 519-1204/ 579)  45.0 E02-W01 S26-S22
  

    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