Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1493 1661 (N43W48 L=214)   700    136        1 (1426/1626-1554/1697) -31.0 W42-W53 N40-N46
      2 1158 1662 (N46W15 L=181)   995    211        2 (1071/1634-1257/1687) -14.0 W07-W23 N43-N48
      3  848 1653 (N47E13 L=153)   359     88        2 ( 807/1632- 877/1680) -29.7 E16-E09 N45-N49
      4 1388 1511 (N33W30 L=196)   299     63        1 (1360/1483-1413/1534) -76.0 W27-W32 N31-N35
      5  727 1291 (N22E19 L=147)   696    211        3 ( 649/1246- 790/1327)   0.0 E24-E14 N18-N24
      6 1445 1271 (N17W29 L=195)   534    150        0 (1392/1218-1489/1326) -58.0 W26-W31 N13-N21
      7 1558  985 (S01W34 L=201)   262     77        1 (1537/ 952-1591/1002)  33.7 W32-W36 S02-N00
      8 1301  933 (S03W17 L=183)   486    184        1 (1216/ 892-1359/ 992) -29.1 W11-W20 S05-N01
      9  897  839 (S07E08 L=158)   281    126        0 ( 858/ 784- 928/ 885) -60.3 E10-E06 S10-S03
     10 1778  835 (S12W54 L=220)   374     98        0 (1760/ 795-1806/ 872)  68.2 W52-W56 S14-S09
     11 1725  784 (S15W49 L=215)   811    193        0 (1671/ 732-1753/ 862)  69.4 W44-W51 S17-S09
     12  412  769 (S10E43 L=123)   823    190        2 ( 377/ 680- 454/ 856)  56.3 E47-E38 S16-S04
     13  160  790 (S10E72 L= 94)  1405     94        3 ( 137/ 739- 180/ 835)  49.4 E76-E67 S13-S06
     14  195  746 (S13E68 L= 98)   831     66        3 ( 173/ 711- 223/ 785)  40.6 E73-E63 S15-S09
     15  282  684 (S16E58 L=108)   875    142        2 ( 234/ 645- 328/ 723) -16.7 E64-E53 S18-S13
     16 1014  687 (S17E02 L=164)   348     93        1 ( 975/ 651-1059/ 723)  31.0 E04-W01 S18-S14
     17  949  707 (S15E06 L=160)   218    115        0 ( 895/ 694-1002/ 721)  -8.1 E09-E02 S16-S14
     18 1332  598 (S24W19 L=185)  1440    336        3 (1235/ 465-1441/ 685)  47.1 W12-W26 S33-S18
     19 1686  604 (S27W49 L=215)  1023    191        1 (1628/ 543-1748/ 681)  48.4 W44-W54 S30-S21
     20 1073  622 (S21W02 L=168)   450     86        1 (1034/ 595-1113/ 658)  45.0 W00-W04 S22-S18
     21  535  303 (S45E54 L=112)   714     68        2 ( 509/ 276- 562/ 334) -63.4 E56-E49 S47-S42
     22 1142  236 (S54W07 L=173)   364     32        0 (1125/ 213-1157/ 259) -51.3 W05-W09 S56-S51
     23 1252  207 (S58W21 L=187)   563     55        0 (1232/ 176-1271/ 241) -76.0 W19-W24 S62-S54
     24 1314  191 (S62W33 L=199)   880     87        2 (1287/ 156-1329/ 237) -42.7 W27-W45 S68-S55
  

    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