Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1797 1484 (N11W73 L=273)   707     59        1 (1761/1467-1829/1497) -16.7 W68-W79 N09-N12
      2 1626 1184 (N01W41 L=241)  1449    268        1 (1557/1077-1721/1234)   7.1 W32-W48 S03-N03
      3  388 1173 (N29E40 L=161)   757    173        1 ( 303/1137- 460/1203)   0.0 E48-E33 N27-N30
      4 1844  998 (S16W56 L=256)  3288    283       10 (1782/ 845-1909/1093)  36.3 W48-W66 S24-S11
      5  145 1045 (N24E69 L=132)  1456     72        2 (  98/1017- 183/1074)   3.4 E80-E63 N22-N25
      6  478  985 (N16E35 L=166)   226    102        0 ( 427/ 961- 524/1005)   7.1 E39-E31 N15-N16
      7 1339  905 (S07W15 L=216)   254    122        1 (1296/ 860-1389/ 950)  20.6 W11-W19 S08-S05
      8 1154  791 (S09W02 L=203)   911    279        2 (1106/ 682-1206/ 914)  65.2 E03-W05 S14-S01
      9  564  804 (N04E33 L=168)   231     69        0 ( 533/ 787- 604/ 819)   0.0 E34-E29 N03-N04
     10 1261  717 (S16W07 L=207)  1178    348        4 (1125/ 583-1376/ 802)  17.5 E04-W15 S21-S11
     11 1468  735 (S20W20 L=221)   229      9        1 (1450/ 716-1486/ 755)  18.4 W18-W21 S21-S19
     12  846  709 (S07E17 L=183)   219     65        2 ( 816/ 685- 879/ 735) -26.6 E19-E15 S08-S05
     13  700  669 (S06E27 L=173)   373     44        1 ( 672/ 639- 719/ 696) -90.0 E29-E25 S08-S04
     14  778  665 (S08E23 L=178)   301     56        2 ( 746/ 633- 801/ 686) -76.0 E24-E20 S10-S06
     15  698  567 (S12E31 L=170)  1522    128        2 ( 630/ 511- 779/ 625) -40.6 E36-E25 S16-S07
     16  670  474 (S18E36 L=165)  1224    261        1 ( 564/ 433- 778/ 503) -11.3 E44-E28 S21-S14
     17  883  373 (S29E27 L=174)  1147    335        2 ( 772/ 283-1004/ 494)  17.7 E39-E14 S34-S23
     18  644  431 (S20E40 L=161)   276     32        0 ( 622/ 414- 669/ 450) -56.3 E41-E38 S21-S18
     19  579  327 (S26E52 L=149)  2619    282        2 ( 507/ 208- 632/ 427)  48.4 E67-E47 S36-S18
     20  516  321 (S26E59 L=141)  2693    195        6 ( 461/ 255- 570/ 406)  65.2 E68-E54 S31-S18
     21  655  363 (S25E43 L=158)   328     58        2 ( 631/ 343- 677/ 383) -45.0 E45-E40 S26-S23
  

    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