Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1  480 1711 (N27E59 L=289)  3659    250        9 ( 410/1627- 554/1813) -58.0 E68-E53 N20-N36
      2 1265 1679 (N40W02 L=351)   586     91        1 (1225/1648-1306/1705)  -9.5 E01-W05 N37-N42
      3 1383 1660 (N42W12 L=  0)   636     60        2 (1351/1629-1419/1693) -26.6 W08-W14 N38-N44
      4  471 1574 (N17E50 L=299)  1081    230        1 ( 407/1490- 553/1675)  85.9 E52-E47 N11-N25
      5  578 1580 (N19E41 L=307)   733    254        2 ( 549/1486- 623/1672) -77.9 E45-E38 N12-N26
      6 1677 1420 (N32W38 L= 26)   323     39        0 (1648/1399-1702/1436) -11.3 W35-W40 N30-N33
      7  690 1360 (N07E26 L=322)   322     81        1 ( 653/1322- 719/1395)  68.2 E28-E24 N04-N09
      8 1350 1296 (N15W14 L=  3)   489    127        1 (1297/1241-1396/1325)  -8.1 W10-W17 N12-N16
      9 1170 1270 (N10W04 L=352)   365     57        2 (1147/1237-1196/1312) -76.0 W02-W05 N08-N12
     10 1714 1270 (N23W41 L= 30)   368     55        1 (1688/1241-1737/1298) -11.3 W38-W43 N21-N24
     11  296 1093 (S14E50 L=298)  1155    291        1 ( 189/ 992- 383/1170)  39.1 E61-E42 S21-S08
     12 1402 1126 (N06W20 L=  9)   212     74        1 (1373/1100-1416/1162)  90.0 W18-W21 N05-N08
     13 1622 1070 (N08W36 L= 24)   336     86        0 (1610/1028-1637/1112) -78.7 W34-W37 N05-N11
     14  420  859 (S27E38 L=311)  1634    572        2 ( 273/ 693- 519/1091)  50.6 E55-E32 S39-S11
     15  794  963 (S15E12 L=336)   267    132        2 ( 740/ 931- 833/ 978)  38.7 E15-E09 S17-S13
     16 1691  742 (S08W50 L= 38)   271     50        2 (1667/ 716-1712/ 767)  71.6 W48-W51 S09-S06
     17 1760  729 (S07W56 L= 45)   494     66        1 (1742/ 691-1786/ 754)  76.0 W54-W59 S09-S05
     18 1467  569 (S23W40 L= 28)  1111    260        3 (1419/ 455-1520/ 702) -68.2 W35-W44 S30-S15
     19 1741  581 (S15W63 L= 51)  4087    421       19 (1598/ 494-1836/ 665)  37.9 W53-W76 S23-S09
     20 1588  399 (S30W61 L= 50)  1701    308        3 (1482/ 343-1716/ 499)  49.4 W54-W67 S35-S20
  

    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