Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1219 1763 (N46W18 L= 74)   343      9        0 (1198/1743-1241/1781)  11.3 W15-W20 N44-N47
      2 1286 1666 (N38W21 L= 77)   293     32        0 (1266/1646-1311/1690) -71.6 W19-W22 N36-N39
      3 1783 1552 (N31W67 L=124)  1410    161        2 (1712/1516-1846/1593) -16.4 W58-W79 N28-N33
      4 1062 1546 (N29W03 L= 59)   383     67        1 (1030/1515-1095/1576) -36.9 W01-W05 N27-N31
      5 1803 1374 (N19W59 L=115)  1741    214        3 (1735/1303-1853/1457) -56.3 W51-W63 N14-N23
      6 1731 1292 (N13W49 L=105)  1242    272        2 (1675/1176-1816/1392) -58.4 W44-W55 N06-N19
      7  218 1286 (N15E59 L=357)  2160    228        8 ( 175/1191- 271/1388) -77.0 E64-E53 N08-N21
      8  135 1174 (N09E68 L=349)  2253    112        2 (  94/1133- 180/1231)  14.0 E75-E61 N06-N12
      9  398 1073 (N01E40 L= 16)   409    112        0 ( 355/1034- 447/1095) -15.9 E43-E36 S01-N02
     10  316 1062 (N01E47 L=  9)   271     43        0 ( 290/1043- 345/1088)  14.0 E49-E44 N00-N02
     11  653  892 (S10E23 L= 33)  1487    444        3 ( 613/ 673- 678/1086) -90.0 E26-E21 S23-N01
     12  321  832 (S13E48 L=  8)  2985    215       10 ( 237/ 702- 432/ 990) -71.6 E55-E40 S21-S03
     13 1406  925 (S09W23 L= 80)   318    101        0 (1370/ 906-1455/ 951)  -9.5 W20-W26 S10-S07
     14  417  879 (S10E40 L= 17)   733    118        1 ( 368/ 823- 460/ 925) -51.3 E43-E36 S13-S07
     15  211  693 (S21E64 L=352)  3506    303        6 ( 169/ 579- 246/ 813)  25.7 E84-E56 S26-S13
     16  987  715 (S22E03 L= 54)   579    154        0 ( 941/ 671-1040/ 782) -54.5 E05-W00 S24-S17
     17 1160  686 (S24W08 L= 65)   681    232        0 (1070/ 658-1261/ 750)  18.4 W02-W14 S25-S19
     18  475  480 (S36E45 L= 11)  2765    463        3 ( 319/ 368- 665/ 628)  14.5 E82-E24 S42-S26
     19 1685  532 (S33W53 L=110)  1248    169        2 (1609/ 508-1764/ 566)  14.9 W44-W62 S34-S30
     20 1317  392 (S44W24 L= 80)  1207    206        3 (1224/ 343-1409/ 451)  21.8 W16-W31 S47-S39
     21 1153  330 (S49W11 L= 67)   276     36        0 (1126/ 307-1174/ 350) -31.0 W07-W12 S50-S47
     22 1298  241 (S57W30 L= 86)   496     72        0 (1274/ 216-1329/ 268)  68.2 W25-W32 S59-S54
  

    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