Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1603 1684 (N48W61 L=248)   601     37        0 (1581/1655-1626/1706)  15.9 W54-W68 N45-N49
      2 1231 1547 (N37W14 L=202)   399     76        0 (1199/1521-1269/1572)   9.5 W11-W17 N35-N39
      3 1294 1482 (N33W19 L=206)   468    110        1 (1257/1448-1344/1519) -15.9 W15-W22 N30-N35
      4  460 1476 (N29E45 L=142)   655    112        0 ( 431/1427- 506/1507)  68.2 E48-E41 N26-N31
      5  565 1457 (N29E35 L=152)   445    102        1 ( 521/1439- 623/1479)  -6.3 E39-E30 N27-N30
      6 1307 1327 (N22W18 L=205)   332     73        0 (1291/1287-1327/1369)  80.5 W16-W19 N19-N25
      7  318 1153 (N08E50 L=138)   657    143        1 ( 295/1095- 347/1225) -53.1 E53-E46 N04-N12
      8 1674 1147 (N11W44 L=232)   507     98        0 (1629/1110-1709/1182) -39.8 W40-W47 N08-N13
      9 1796 1137 (N10W56 L=243)   346     69        0 (1782/1096-1812/1166) -90.0 W54-W58 N07-N12
     10 1728  987 (N01W48 L=236)  1080    210        1 (1696/ 906-1755/1076) -83.7 W45-W51 S03-N06
     11  359  816 (S12E46 L=142)   274     72        1 ( 337/ 793- 374/ 843)  56.3 E47-E44 S13-S10
     12 1618  757 (S13W41 L=228)   388     42        1 (1592/ 736-1644/ 779)  26.6 W39-W43 S14-S11
     13  288  693 (S21E55 L=132)   678    114        1 ( 235/ 664- 333/ 735)  19.7 E63-E49 S22-S17
     14  903  582 (S25E07 L=180)   970    104        1 ( 839/ 544- 985/ 639) -21.8 E11-E01 S27-S21
     15 1771  574 (S25W64 L=251)  2286    171        2 (1697/ 517-1826/ 635)  48.8 W56-W72 S29-S21
     16  709  585 (S26E21 L=167)   443    134        1 ( 644/ 559- 756/ 621)  26.6 E25-E17 S27-S23
     17 1378  233 (S54W43 L=231)   652     92        1 (1349/ 216-1411/ 259)  53.1 W36-W49 S55-S50
     18 1298  213 (S56W35 L=222)   818     77        3 (1272/ 185-1329/ 244) -26.6 W29-W41 S59-S52
     19 1228  207 (S57W27 L=214)  1012    106        3 (1172/ 185-1269/ 243)  35.5 W19-W32 S59-S52
  

    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