Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1567 1700 (N27W66 L=  1)   477     87        0 (1528/1681-1607/1717) -11.3 W60-W71 N24-N28
      2 1155 1451 (N27W21 L=315)   380     88        2 (1104/1431-1194/1469) -38.7 W17-W22 N24-N28
      3  893 1396 (N31W03 L=297)   491    155        0 ( 825/1366- 975/1418) -11.3 E02-W08 N29-N32
      4  797 1175 (N21E09 L=286)   761    291        3 ( 668/1136- 938/1204) -12.5 E18-W00 N17-N23
      5 1874 1107 (S14W61 L=355)  1638    170        2 (1801/1044-1921/1178)  10.0 W50-W68 S16-S11
      6 1121 1119 (N10W08 L=303)   247    159        0 (1061/1062-1179/1161) -63.4 W05-W09 N05-N13
      7  151 1038 (N27E67 L=228)   948    146        4 ( 132/ 974- 166/1101) -63.4 E70-E64 N22-N30
      8  639  958 (N13E24 L=271)   951    263        3 ( 600/ 846- 692/1074)  77.9 E25-E21 N05-N19
      9 1708  927 (S18W40 L=334)   345     61        0 (1686/ 894-1731/ 957)  26.6 W37-W42 S19-S16
     10  446  785 (N07E41 L=254)   616    109        3 ( 405/ 737- 484/ 824) -80.5 E43-E38 N03-N09
     11 1654  760 (S26W32 L=327)   551    123        0 (1627/ 689-1682/ 814)  39.8 W29-W35 S30-S23
     12  343  681 (N03E53 L=242)  1477    293        4 ( 292/ 577- 374/ 792)  35.5 E62-E47 S03-N09
     13 1166  596 (S21E04 L=291)   484     98        3 (1126/ 549-1206/ 630)  26.6 E06-W00 S23-S18
     14  442  532 (S08E51 L=244)   322     45        1 ( 417/ 512- 468/ 552) -33.7 E52-E49 S09-S06
     15  678  507 (S14E35 L=260)   827    233        5 ( 610/ 446- 765/ 551)   8.7 E41-E28 S17-S11
     16 1103  477 (S27E11 L=284)   474    113        2 (1080/ 419-1126/ 538)  71.6 E13-E08 S31-S22
     17  382  442 (S12E63 L=232)  3809    300       11 ( 317/ 349- 481/ 532) -68.2 E74-E54 S19-S06
     18  738  419 (S21E35 L=259)   842    233        1 ( 635/ 375- 811/ 478)  -4.4 E42-E28 S24-S17
     19  707  364 (S24E41 L=254)   358     81        0 ( 679/ 338- 737/ 398) -78.7 E42-E39 S26-S21
     20  952  202 (S43E37 L=258)   682     48        0 ( 918/ 172- 983/ 226) -45.0 E40-E32 S45-S40
  

    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