Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1515 1635 (N25W55 L= 38)   739     76        1 (1479/1597-1541/1666) -90.0 W53-W58 N22-N27
      2 1517 1527 (N20W48 L= 30)   367     85        0 (1495/1492-1536/1577)  20.6 W44-W52 N17-N21
      3 1283 1492 (N25W30 L= 13)   364    122        0 (1223/1471-1337/1514) -50.2 W27-W33 N22-N28
      4 1168 1383 (N23W19 L=  1)   712    277        1 (1039/1331-1256/1422) -30.3 W10-W22 N17-N26
      5  222 1390 (N49E66 L=276)   632     92        0 ( 195/1349- 260/1416)  16.7 E72-E58 N45-N50
      6  945 1308 (N25W03 L=346)   221     94        1 ( 925/1273- 970/1354)  38.7 W01-W06 N22-N26
      7  888 1286 (N25E01 L=342)   193     50        1 ( 866/1257- 904/1307) -90.0 E01-W00 N22-N26
      8  351 1271 (N38E43 L=300)   506     53        1 ( 319/1243- 376/1296) -23.2 E46-E39 N35-N39
      9  431 1231 (N33E35 L=308)   501     81        2 ( 397/1201- 474/1257)   9.5 E37-E30 N31-N35
     10  956 1172 (N17W00 L=342)   607    278        2 ( 859/1069-1063/1242) -66.8 E03-W03 N08-N22
     11  544 1133 (N25E27 L=315)   408    110        1 ( 506/1090- 585/1179) -66.8 E29-E24 N21-N28
     12  161 1009 (N25E67 L=275)   643     33        0 ( 144/ 980- 177/1038)  56.3 E69-E64 N23-N26
     13  186  933 (N20E64 L=278)  2679    217        7 ( 133/ 849- 233/1038)  48.0 E73-E57 N15-N26
     14 1725  929 (S19W42 L= 24)   884    206        0 (1701/ 836-1745/1035)  61.4 W38-W45 S24-S13
     15 1439  877 (S13W20 L=  2)  1049    315        0 (1374/ 752-1503/1014)  40.6 W12-W27 S18-S06
     16  677  899 (N08E23 L=319)   577    173        1 ( 615/ 836- 737/ 966) -68.2 E25-E20 N03-N13
     17 1185  619 (S21E02 L=341)   358    125        1 (1152/ 594-1239/ 662) -45.0 E03-W01 S23-S17
     18 1427  592 (S30W13 L=355)   732    135        3 (1380/ 535-1473/ 639)  29.7 W08-W16 S33-S26
     19 1131  302 (S41E17 L=325)   486    109        0 (1094/ 263-1162/ 355)  26.6 E22-E12 S43-S37
     20  937  256 (S39E33 L=309)   684    118        0 ( 909/ 201- 959/ 318)  51.3 E38-E30 S43-S33
  

    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