Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1082 1767 (N48W09 L=282)   922    138        3 (1036/1723-1142/1818) -41.2 W05-W13 N43-N53
      2 1548 1656 (N37W47 L=320)  1594    353        1 (1364/1627-1691/1682)  -5.0 W30-W65 N34-N39
      3 1302 1529 (N28W21 L=294)  3275    751        4 ( 964/1377-1593/1612) -19.7 E02-W40 N17-N34
      4 1005 1399 (N20W00 L=273)   232     86        0 ( 980/1364-1039/1435) -53.1 E01-W02 N18-N22
      5 1799 1322 (N14W58 L=331)  1406    185        4 (1747/1256-1856/1402) -55.0 W54-W63 N09-N19
      6  610 1351 (N19E26 L=247)   310     75        2 ( 576/1333- 649/1372) -21.8 E28-E23 N17-N20
      7 1720 1295 (N12W49 L=322)   622    128        0 (1662/1254-1760/1330) -26.6 W44-W52 N09-N14
      8 1582 1245 (N09W37 L=310)   226     69        0 (1569/1206-1601/1271)  53.1 W35-W38 N06-N10
      9  763 1168 (N07E15 L=258)   400    130        1 ( 710/1122- 806/1220) -45.0 E18-E12 N04-N10
     10 1769  892 (S12W52 L=325)  2196    342        5 (1696/ 746-1841/1055)  68.7 W45-W58 S20-S02
     11 1149  871 (S12W07 L=280)   193     56        1 (1129/ 841-1173/ 896)  56.3 W05-W08 S13-S10
     12 1425  774 (S19W25 L=298)   647    244        0 (1395/ 659-1486/ 876)  69.0 W23-W28 S25-S12
     13 1878  789 (S18W67 L=340)   730     94        3 (1850/ 755-1904/ 834) -32.0 W63-W72 S20-S15
     14  205  763 (S14E64 L=209)   568     92        1 ( 173/ 741- 254/ 795) -26.6 E67-E57 S15-S11
     15  305  686 (S20E55 L=218)   476    112        2 ( 278/ 635- 325/ 729)  71.6 E57-E52 S22-S16
     16 1677  540 (S34W52 L=325)  1702    245        1 (1571/ 480-1765/ 627)  33.7 W42-W59 S38-S28
     17 1108  591 (S30W04 L=277)   203     79        0 (1082/ 557-1138/ 624)  45.0 W02-W06 S31-S27
     18 1314  463 (S39W20 L=293)   392     92        1 (1288/ 437-1357/ 502) -39.8 W18-W24 S41-S36
     19  970  420 (S41E07 L=266)   385     64        1 ( 933/ 404-1005/ 441)  11.3 E09-E04 S42-S39
  

    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