Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1237 1808 (N45W46 L=319)  2268    300        4 (1126/1738-1339/1884)   4.8 W31-W67 N41-N47
      2 1501 1417 (N14W39 L=312)  1495    274        1 (1396/1353-1620/1496) -52.4 W34-W45 N07-N20
      3  302 1465 (N47E51 L=223)   511     63        0 ( 272/1446- 345/1478) -14.0 E56-E44 N45-N48
      4  590 1307 (N29E21 L=253)  1707    387        2 ( 423/1257- 774/1338) -25.6 E34-E09 N22-N35
      5 1033 1256 (N16W06 L=279)   471    228        1 ( 939/1210-1123/1317)   9.5 W00-W12 N15-N17
      6  778 1010 (N08E14 L=259)  1276    393        5 ( 624/ 973- 976/1053) -12.8 E24-E02 N03-N11
      7 1456  966 (S10W24 L=297)   589    113        1 (1420/ 912-1493/1030) -82.9 W21-W25 S13-S05
      8  430  999 (N15E37 L=236)   283     63        1 ( 397/ 979- 462/1019) -11.3 E39-E34 N13-N15
      9 1661  951 (S16W37 L=311)   325     25        0 (1642/ 923-1679/ 975) -90.0 W35-W39 S17-S14
     10  549  895 (N06E31 L=243)   222    104        0 ( 504/ 879- 594/ 914) -18.4 E33-E27 N05-N08
     11  262  712 (N01E59 L=215)   740     88        2 ( 236/ 671- 294/ 749)  38.7 E62-E54 S01-N03
     12  636  643 (S10E32 L=242)   772    170        3 ( 573/ 595- 686/ 695) -39.8 E35-E28 S13-S06
     13 1801  555 (S47W56 L=330)   694     71        1 (1758/ 539-1833/ 581) -10.6 W48-W65 S49-S44
     14 1347  529 (S34W08 L=282)   450     75        1 (1317/ 503-1387/ 553)  11.3 W06-W11 S35-S31
     15  571  515 (S16E41 L=232)   294     73        0 ( 554/ 482- 589/ 552)  68.2 E42-E38 S18-S13
     16  353  502 (S12E60 L=213)   583     88        1 ( 317/ 471- 382/ 535)  18.4 E65-E56 S14-S10
     17  400  393 (S20E64 L=209)  1683    233        6 ( 332/ 300- 475/ 464)  85.6 E69-E60 S27-S14
     18  776  354 (S31E35 L=238)  1304    215        2 ( 682/ 298- 840/ 427)  10.0 E44-E27 S34-S26
     19  775  171 (S45E53 L=220)  1557    124        3 ( 722/ 132- 814/ 223)  10.8 E65-E44 S48-S40
  

    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