Color  xc   yc  (LatLon LCarr)  Area Length Branches (  x0/y0     x1/y1  )  Tilt Location
      1 1319 1724 (N42W45 L=252)  1233    262        4 (1194/1688-1432/1748)  -9.1 W32-W57 N38-N46
      2 1011 1676 (N48W17 L=224)   333     65        0 ( 988/1643-1042/1700)  15.9 W14-W21 N45-N49
      3  698 1555 (N47E13 L=194)  1618    320        5 ( 592/1493- 851/1621)   2.4 E23-W01 N43-N48
      4 1576 1355 (N14W43 L=250)   664    227        0 (1489/1268-1630/1423) -71.6 W39-W44 N07-N19
      5  504 1345 (N36E31 L=176)   401     85        0 ( 460/1316- 540/1368) -29.7 E34-E27 N33-N37
      6  888 1138 (N16E06 L=201)  1105    335        0 ( 811/1004- 974/1274) -77.5 E08-E03 N07-N25
      7  605 1231 (N27E23 L=184)   383    112        0 ( 549/1217- 662/1245)  -7.1 E27-E19 N25-N27
      8  209  982 (N17E61 L=146)   514     81        1 ( 191/ 951- 238/1020)  76.0 E62-E56 N14-N18
      9 1497  990 (S05W28 L=235)   270     54        0 (1475/ 965-1522/1019) -76.0 W26-W29 S06-S02
     10 1571  872 (S13W31 L=238)   251     59        0 (1548/ 844-1591/ 904)  45.0 W29-W32 S14-S11
     11  303  770 (N03E54 L=153)   522     69        1 ( 277/ 732- 328/ 803) -68.2 E56-E51 N00-N05
     12  711  737 (S04E24 L=183)   308     87        1 ( 697/ 698- 723/ 791)  59.0 E25-E22 S06-S01
     13 1629  722 (S24W34 L=241)   878    174        1 (1573/ 684-1691/ 782) -35.0 W29-W39 S27-S19
     14 1763  534 (S43W53 L=260)   706     54        1 (1734/ 515-1792/ 561) -28.3 W47-W61 S46-S39
     15 1594  437 (S45W33 L=240)  2409    396        3 (1426/ 344-1742/ 520)   3.3 W15-W51 S49-S41
     16  355  439 (S19E66 L=141)  4437    224        9 ( 276/ 370- 448/ 517) -48.0 E77-E55 S24-S13
     17  602  407 (S24E43 L=164)  1302    213        1 ( 572/ 307- 631/ 500)  51.8 E49-E37 S31-S17
     18 1204  445 (S33E01 L=206)   236     74        0 (1172/ 417-1236/ 476)  31.0 E03-W02 S34-S31
     19 1039  378 (S34E14 L=193)   447    120        1 (1021/ 312-1069/ 419)  58.0 E16-E10 S39-S30
  

    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