Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1308 1643 (N36W39 L=292)  1482    334        1 (1139/1606-1431/1675) -14.0 W25-W49 N31-N39
      2 1602 1654 (N27W65 L=318)  1014    125        1 (1535/1634-1658/1675) -13.2 W58-W75 N24-N29
      3  290 1377 (N43E54 L=199)  1572    251        2 ( 231/1268- 359/1497)  71.6 E59-E46 N36-N51
      4 1570 1352 (N12W43 L=296)   429    110        0 (1521/1312-1615/1380) -50.2 W39-W44 N08-N14
      5 1225 1257 (N16W17 L=270)   630    173        1 (1181/1162-1255/1311)  83.7 W15-W19 N10-N19
      6 1656 1243 (N04W45 L=298)   281     46        1 (1629/1223-1680/1266) -14.0 W42-W46 N02-N05
      7  509 1116 (N23E31 L=222)   235     66        0 ( 496/1082- 526/1149) -90.0 E31-E29 N20-N24
      8 1847 1075 (S11W58 L=311)   806    126        1 (1832/1007-1868/1138)  76.0 W55-W60 S15-S07
      9 1898 1104 (S12W66 L=319)   517     57        2 (1875/1079-1918/1136)  56.3 W62-W69 S13-S09
     10  668  969 (N11E22 L=231)   490    193        0 ( 610/ 885- 711/1035) -73.3 E24-E20 N05-N15
     11  812  814 (S00E17 L=236)   958    310        0 ( 737/ 681- 921/ 877)  21.8 E24-E09 S07-N02
     12 1235  706 (S16W05 L=258)   541    164        1 (1209/ 654-1270/ 754)  51.3 W03-W07 S19-S12
     13  638  678 (S05E31 L=222)   369    112        1 ( 603/ 651- 686/ 704) -45.0 E33-E28 S07-S03
     14  564  640 (S06E37 L=216)   241     63        2 ( 546/ 609- 596/ 665) -76.0 E38-E34 S08-S04
     15  276  585 (S06E65 L=188)  1177     96        2 ( 231/ 551- 315/ 620) -24.0 E71-E61 S08-S03
     16  598  581 (S10E37 L=216)   507     68        1 ( 566/ 552- 628/ 615)  31.0 E39-E34 S12-S08
     17  373  547 (S09E56 L=197)   565     73        1 ( 358/ 504- 395/ 584)  56.3 E59-E53 S12-S06
     18 1567  472 (S42W26 L=279)  1864    254        1 (1466/ 393-1652/ 553)  22.4 W16-W34 S46-S37
     19  424  502 (S13E54 L=199)   536     45        0 ( 405/ 477- 445/ 529)  21.8 E56-E51 S14-S10
     20 1107  470 (S28E08 L=245)   242     76        0 (1063/ 457-1142/ 492) -11.3 E11-E05 S29-S26
     21  732  438 (S22E33 L=220)   887    117        2 ( 691/ 393- 765/ 486) -90.0 E35-E30 S25-S18
     22  459  424 (S18E56 L=197)   696    102        1 ( 439/ 371- 480/ 465)  49.4 E59-E52 S22-S15
  

    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